作者pqman (who want some?)
看板Perl
标题Re: [问题] 一个关於perl读档的问题 请各位高手帮忙！
时间Thu May 1 21:45:53 2008
※ 引述《pqman (who want some?)》之铭言：
: 想请问大家
: 现在我有一个档案 file.txt
: 内容是
: a b c d e
: f g h i j
: 1 2 3 4 5
: 6 7 8 9 10
: 我想把这群资料重新排列成
: a 1 b 2 c 3 d 4 e 5 f 6 g 7 h 8 i 9 j 10
: 然後输出到data.txt
: 请问我该怎麽用perl达成呢？
: 谢谢喔！！
现在我卡在一个地方
那就是我想用常规表示法来搜寻字串
以下是我的code 例如我想找到a 把他贴到data.txt上
open (data1,"file.txt")
$text=<data1>;
while ($text){
if ($a = $text =~/\ba\b/){
$a="a";
}
else{
print "failed";
}
$text=<data1>;
}
open (data2,"data.txt")
print data2 "$a";
但是我开data.txt来看 他都没有写入a耶
好奇怪＠＠
有人能帮我一下吗＠＠？
--
◢ █
● █
█◥█ ◢
◢◣█ ◢●╯ ◣◢ ◣
███ ● ╯◤ ◢ ╮
▇▆◣ ◢▌ █ ◢◣│
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.170.178
※ 编辑: pqman 来自: 140.113.170.178 (05/01 21:47)
1F：推 LiloHuang:open (data2,"data.txt") 改 open (data2,">data.txt") 05/01 22:06
2F：→ pqman:谢谢！！ 05/02 12:48