※ 引述《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