如何在Perl中讀寫(xiě)文件
Perl是處理文件的理想語(yǔ)言。它具有任何shell腳本和**工具(如正則表達(dá)式)的基本功能,使其有用。為了使用Perl文件,您首先需要學(xué)習(xí)如何讀取和寫(xiě)入它們。通過(guò)向特定資源打開(kāi)文件手柄,可以在Perl中完成讀取文件。
讀取Perl
中的文件為了使用本文中的示例,您需要一個(gè)Perl腳本讀取的文件。創(chuàng)建一個(gè)名為的新文本文檔data.txt 并將其放置在與下面的Perl程序相同的目錄中。
在文件本身中,只需輸入幾個(gè)名稱-每行一個(gè):
運(yùn)行腳本時(shí),輸出應(yīng)與文件本身相同。該腳本只是打開(kāi)指定的文件并逐行循環(huán),逐行打印每一行。
接下來(lái),創(chuàng)建一個(gè)名為MYFILE的文件手柄,打開(kāi)它,并將其指向data.txt文件。
然后使用簡(jiǎn)單的循環(huán)一次自動(dòng)讀取數(shù)據(jù)文件的每一行。這將每行的值放在一個(gè)循環(huán)的臨時(shí)變量$UU中。
在循環(huán)內(nèi)部,使用chomp函數(shù)清除每行末尾的新線,然后打印$UU的值以顯示已讀取。
最后,關(guān)閉filehandle完成程序。
寫(xiě)入Perl
中的文件在學(xué)習(xí)以Perl讀取文件時(shí),請(qǐng)使用與之相同的數(shù)據(jù)文件。這次,你會(huì)寫(xiě)下來(lái)。要寫(xiě)入Perl中的文件,必須打開(kāi)一個(gè)文件手柄并將其指向'重新寫(xiě)入的文件。如果您'重新使用Unix,Linux或Mac,您可能還需要仔細(xì)檢查您的文件權(quán)限,以查看是否允許Perl腳本寫(xiě)入數(shù)據(jù)文件。
如果您運(yùn)行此程序,然后運(yùn)行上一節(jié)中關(guān)于讀取文件的程序Perl,you'請(qǐng)參閱它在列表中添加了另外一個(gè)名稱。
實(shí)際上,每次運(yùn)行程序時(shí),它都會(huì)在文件末尾添加另一個(gè)"Bob"。發(fā)生這種情況是因?yàn)樵撐募愿郊幽J酱蜷_(kāi)。要以附加模式打開(kāi)文件,只需在文件名前面加上>>符號(hào)。這告訴你想要寫(xiě)入文件的開(kāi)放功能,方法是在文件的末尾粘貼更多。
相反,如果要用新文件覆蓋現(xiàn)有文件,則使用>單個(gè)大于符號(hào)來(lái)告訴打開(kāi)功能每次需要新文件。嘗試用a>替換>>然后看到data.txt每次運(yùn)行程序時(shí),文件都會(huì)縮減為一個(gè)名稱-Bob。
接下來(lái),使用打印功能將新名稱打印到文件中。您按照print語(yǔ)句和filehandle打印到filehandle。
最后,關(guān)閉filehandle完成程序。
建筑常識(shí)