perl修改原檔案內容

來源:互聯網
上載者:User

http://www.cnblogs.com/morebetter/archive/2007/05/10/741752.html

 

很多時候,我們希望對原有檔案的內容進行一定的修改,linux雖然有sed這個強大的文本編輯命令,但是他只能產生新檔案或列印到screen上(或許sed也具有修改原檔案的功能,小的才疏學淺,尚不知道,煩請大家告訴我),但在perl裡卻有這麼一個命令$^I
例子:
#!/usr/bin/perl
use strict;

$^I="";
while(<>){
        s/^rate.*/rate=0/;
        s/^testMode.*/testMode=0/;
        print;
}

$^I的值可以決定是要重寫檔案,還是備份檔案,若要重寫,只須將其值設為空白就可,若要備份,則$^I=".bak", 他就會把改過的檔案命名為filename.bak了

http://hi.baidu.com/uncletuuthu/blog/item/862adb0062248e04728da501.html

 

當你編寫指令碼或是安裝程式的時候,就需要修改特定檔案的資料,如果這時有自動修改檔案的功能,那將會是非常實用的。例如,當你需要移動一個檔案中的某個字串或是命令,當你要改變許多檔案的IP地址的時候,這個功能就可以拿來利用了。

手動改變這些檔案會耗費很長的時間,特別當它是一件重複性的任務。但是,你可以使用Perl程式來完成。所有的Linux供應商都有這個程式。執行以下操作:

$ perl -pi -e 's|[old_string]|[new_string]|g' [file]

字串可以是簡單的命令或是常規的運算式。如果你要改變目錄的位置(例:從/var/spool/mail到/var/spool/messages),你想要改變目錄/etc下的每個檔案來反映路徑變化。執行以下操作:

$ find /etc -type f| xargs perl -pi -e 's|/var/spool/mail|/var/spool/messages|g'

在這個例子上,我們使用搜尋和xargs來確保系統只運行常規檔案的命令,而不是非常規目錄或其它檔案類型的命令。這也就運行了/etc分類樹,而且會遞迴的改變所有檔案。

由於我們/標識,所以我們必須輸入了像/var這樣的路徑而不是/var。我們也可以在Perl運算式使用分隔字元。(除了使用|,你也能夠使用/, #,@作為分隔字元。)

執行以下操作,從整個檔案裡移開一個命令

$ perl -pi -e 's|myword||g' file

這就從基本上沒有使用任何東西卻代替了“myword”.(需要注意的是在第二個和第三個分隔字元之間沒有空格)。

以這種方式使用Perl的話,當你修改設定檔或其它任何類型的資料的時候,你就會極具創造力。它就是一個自動搜尋和代替的功能。

 

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.