如何在Perl中讀寫文件

Perl是處理文件的理想語言。它具有任何shell腳本和**工具(如正則表達式)的基本功能,使其有用。為了使用Perl文件,您首先需要學(xué)習(xí)如何讀取和寫入它們。通過向特定資源打開文件手柄,可以在Perl中完成讀取文件。

讀取Perl

中的文件

為了使用本文中的示例,您需要一個Perl腳本讀取的文件。創(chuàng)建一個名為的新文本文檔data.txt 并將其放置在與下面的Perl程序相同的目錄中。

在文件本身中,只需輸入幾個名稱-每行一個:

運行腳本時,輸出應(yīng)與文件本身相同。該腳本只是打開指定的文件并逐行循環(huán),逐行打印每一行。

接下來,創(chuàng)建一個名為MYFILE的文件手柄,打開它,并將其指向data.txt文件。

然后使用簡單的循環(huán)一次自動讀取數(shù)據(jù)文件的每一行。這將每行的值放在一個循環(huán)的臨時變量$UU中。

在循環(huán)內(nèi)部,使用chomp函數(shù)清除每行末尾的新線,然后打印$UU的值以顯示已讀取。

最后,關(guān)閉filehandle完成程序。

寫入Perl

中的文件

在學(xué)習(xí)以Perl讀取文件時,請使用與之相同的數(shù)據(jù)文件。這次,你會寫下來。要寫入Perl中的文件,必須打開一個文件手柄并將其指向'重新寫入的文件。如果您'重新使用Unix,Linux或Mac,您可能還需要仔細檢查您的文件權(quán)限,以查看是否允許Perl腳本寫入數(shù)據(jù)文件。

如果您運行此程序,然后運行上一節(jié)中關(guān)于讀取文件的程序Perl,you'請參閱它在列表中添加了另外一個名稱。

實際上,每次運行程序時,它都會在文件末尾添加另一個"Bob"。發(fā)生這種情況是因為該文件以附加模式打開。要以附加模式打開文件,只需在文件名前面加上>>符號。這告訴你想要寫入文件的開放功能,方法是在文件的末尾粘貼更多。

相反,如果要用新文件覆蓋現(xiàn)有文件,則使用>單個大于符號來告訴打開功能每次需要新文件。嘗試用a>替換>>然后看到data.txt每次運行程序時,文件都會縮減為一個名稱-Bob。

接下來,使用打印功能將新名稱打印到文件中。您按照print語句和filehandle打印到filehandle。

教育資源網(wǎng)_1

最后,關(guān)閉filehandle完成程序。

建筑常識