看板 Perl 關於我們 聯絡資訊
: 一個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
deitel:謝了 210.58.30.38 09/15