作者IIR (XML schema)
看板perl
标题Re: [问题] 请问删除问题
时间Thu Sep 15 11:24:10 2005
: 一个A.txt档内容为
: ~~~~~~~~~~~~~~~~~~~
: ~~~~~~~~~~~~~~~~~~~~
: ~~~~~~~~~~~~~~~~~~~~
: delete_delete
: ~~~~~~~~~~~~~~~~~~~~~
: ~~~~~~~~~~~~~~~~~~~~~
: 若要把 delete_delete行以後全删掉写入 B.txt
: open(file1,"<A.txt)
: open(file2,">B.txt)
while(<file1>){
last if ($_ =~ m/delete_delete/);
print file2 $_;
}
: close(file1);
: close(file2);
: 请问各位大大中间要怎麽写 谢谢
这样是所要的吗?!
另外上面 open 後面要 ;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 221.169.88.150
1F：推 deitel:谢了 210.58.30.38 09/15