作者tony0924 (北京烤鸭)
看板perl
标题Re: [问题] 请问删除问题
时间Thu Sep 15 18:29:20 2005
※ 引述《deitel (nothing)》之铭言：
: 一个A.txt档内容为
: ~~~~~~~~~~~~~~~~~~~
: ~~~~~~~~~~~~~~~~~~~~
: ~~~~~~~~~~~~~~~~~~~~
: delete_delete
: ~~~~~~~~~~~~~~~~~~~~~
: ~~~~~~~~~~~~~~~~~~~~~
: 若要把 delete_delete行以後全删掉写入 B.txt
: open(file1,"<A.txt)
: open(file2,">B.txt)
: close(file1);
: close(file2);
: 请问各位大大中间要怎麽写 谢谢
local($/) = undef;
$text = <file1>; # 一次读完整个档案
$text =~ s/delete_delete.*//; # 删除 delete_delete 之後的所有文字
print file2 $text; # 印出结果
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.23.101