Re: [問題] 搜尋與取代更改檔案內容

看板Perl作者 (找我玩五子棋)時間16年前 (2008/03/04 11:58), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/3 (看更多)
※ 引述《lalelee (找我玩五子棋)》之銘言: : 情境 : a 裡有某些內容我想要替換掉 : code 如下 : : open FILE,"a"; : open INPUT,">b"; : while<FILE> : { : s/要替換的內容/更改過後的內容/ ; : print INPUT $_; : } : close INPUT; : close FILE; : 我可不可以直接更改a的內容,而不需再另開一個b寫入更改過後的內容?? : 謝謝大家~ 推文裡說可用 $^I 來備分並直接修改a的內容 以下是我實驗的code : $^I = ".bak"; open FILE,">a"; while (<FILE>) { s/要替換的內容/更改過後的內容/; print; } close FILE; above code is not working~ 後來我發現 $^I 只對argument作用 所以改寫一下 $^I = ".bak"; @ARGV = "a"; while (<>) { s/要替換的內容/更改過後的內容/; print; } 呵呵~ 這樣就可以了~ 謝謝版友們的建議~ -- 蔣幹打電話給曹操 蔣幹:「操你嗎?我幹。」 曹操:「我操,你誰啊?」 蔣幹:「我幹啊!」 曹操:「我操,你到底是誰啊?」 蔣幹:「我幹啊,你操吧。」 曹操:「他媽的,你到底是誰啊,我操!」 蔣幹:「我幹,我幹啊!」 曹操:「我操!」 此時蔣幹的媽媽接過電話:「我幹他媽啊,你操吧?操你媽呢?」… -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.217.199.193
文章代碼(AID): #17pCZLZW (Perl)
文章代碼(AID): #17pCZLZW (Perl)