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

用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: $!";