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