Perl檔案讀取的經典用法分享_perl

來源:互聯網
上載者:User

用Open() 函數開啟檔案

開啟檔案的常用方法是:

複製代碼 代碼如下:

open(FH, "< $filename")
or die "Couldn't open $filename for reading: $!";

open() 函數通常帶有兩個參數,第一個為檔案控制代碼,用於指向開啟的檔案,第二個參數是檔案名稱及模式(檔案的開啟模式)的混合體,如果檔案被成功開啟,open()函數返回true,否則為false。我們用“or”來測試該條件。

上述代碼中的模式由小於字元(<)來表示。如果檔案不存在,open()將返回false。此時,你可以讀檔案控制代碼,但不可以寫。

大於字元表示寫。如果檔案不存在,就會被建立。如果檔案存在,檔案被清除,以前的資料將會丟失。你可以寫入檔案控制代碼,但不可以讀入。

複製代碼 代碼如下:

# 如果檔案不存在,就建立它
open(FH, "> $filename")
or die "Couldn't open $filename for writing: $!";

如果檔案不存在,添加模式(用兩個大於符號表示)可以用來建立新檔案,如果檔案存在,該模式並不會清除原來的資料。

同“<”或“讀”模式一樣,你只能對檔案控制代碼進行寫操作。 (所以的寫入內容都添加到檔案尾)。企圖進行讀操作,會產生運行錯誤。

複製代碼 代碼如下:

open(FH, ">> $filename")
or die "Couldn't open $filename for appending: $!";

通過“+<”模式,你可以既可以讀檔案,又可以寫檔案。你可以通過tell() 函數在檔案內部移動,通過seek()函數進行定位。如果檔案不存在,就會被建立。如果檔案已經存在,原來的資料不會被清除。

如果你打算清除原來的檔案內容,或者自己調用truncate() 函數,或者使用“+>”模式。

複製代碼 代碼如下:

open(FH, "+> $filename")
or die "Couldn't open $filename for reading and writing: $!";

注意“+<”和“+>”的區別,兩者都可以可讀可寫。前者為非破壞性寫,後者為破壞性寫。

錯誤

錯誤是如何出現的?很多地方都會出現錯誤:如目錄不存在,檔案不可寫入,你的程式丟失了檔案控制代碼等等。

你應該檢查系統調用的結果 (如open() 和sysopen()),看看是否調用成功。

為了協助使用者查錯,通常使用“or die()”,你應記住這些用法。首先,應寫出系統調用失敗(“open”)的資訊。其次,應寫出檔案名稱的資訊,以便修正錯誤時更容易地定位。第三,要寫出開啟檔案的方式, (“for writing,”“for appending”)。第四,輸出作業系統的出錯資訊(包含在$!中)。這樣,一旦出現檔案不能開啟的問題,使用你的程式的使用者會大體上知道為什麼不能開啟。有時,我們把第一個和第三個合并在一起:
or die "unable to append to $filename: $!";

如果在open() 和出錯資訊中都寫了檔案的全名,你會冒改變了open() 的風險,使得出錯資訊不合時宜或不正確。

複製代碼 代碼如下:

# 下面會出現虛假的出錯資訊
open(FH, "</var/run/file.pid")
or die "Can't open /var/log/file.pod for writing : $!";

用 Sysopen()進行更多的控制
為了更好的控制檔案的開啟檔案,可以使用 sysopen() 函數:

複製代碼 代碼如下:

use Fcntl;
sysopen(FH, $filename, O_RDWR|O_CREAT, 0666)
or die "Can't open $filename for reading/writing/creating : $!";

函數 sysopen() 帶有四個參數,第一個是同open()函數類似的檔案控制代碼參數,第二個參數是不帶模式資訊的檔案名稱,第三個參數是模式參數,由Fcntl 模組提供的邏輯OR運算組合起來的常數構成,第四個參數(可選),為八進位屬性值(0666表示資料檔案, 0777表示程式)。如果檔案可以被開啟,sysopen() 返回true,如果開啟失敗,則返回false。

不同於open()函數,sysopen()不提供模式說明的簡寫方式,而是把一些常數組合起來,而且,每個模式常數有唯一的含義,只有通過邏輯OR運算才能將它們組合起來,你可以設定多個行為的組合。

O_RDONLYRead-only
O_WRONLY Write-only
O_RDWR Reading and writing
O_APPEND Writes go to the end of the file
O_TRUNC Truncate the file if it existed
O_CREAT Create the file if it didn't exist
O_EXCLError if the file already existed (used with O_CREAT)

當你需要小心行事的時候,就使用sysopen() 函數,例如,如果你打算新增內容到檔案中,如果檔案不存在,不建立新檔案,可以這樣寫:

複製代碼 代碼如下:

sysopen(LOG, "/var/log/myprog.log", O_APPEND, 0666)
or die "Can't open /var/log/myprog.log for appending: $!";

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在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.