用Open() 函數(shù)打開文件
打開文件的常用方法是:
復(fù)制代碼 代碼如下:
open(FH, " $filename")
or die "Couldn't open $filename for reading: $!";
open() 函數(shù)通常帶有兩個(gè)參數(shù),第一個(gè)為文件句柄,用于指向打開的文件,第二個(gè)參數(shù)是文件名及模式(文件的打開模式)的混合體,如果文件被成功打開,open()函數(shù)返回true,否則為false。我們用“or”來測(cè)試該條件。
上述代碼中的模式由小于字符()來表示。如果文件不存在,open()將返回false。此時(shí),你可以讀文件句柄,但不可以寫。
大于字符表示寫。如果文件不存在,就會(huì)被創(chuàng)建。如果文件存在,文件被清除,以前的數(shù)據(jù)將會(huì)丟失。你可以寫入文件句柄,但不可以讀入。
復(fù)制代碼 代碼如下:
# 如果文件不存在,就創(chuàng)建它
open(FH, "> $filename")
or die "Couldn't open $filename for writing: $!";
如果文件不存在,添加模式(用兩個(gè)大于符號(hào)表示)可以用來創(chuàng)建新文件,如果文件存在,該模式并不會(huì)清除原來的數(shù)據(jù)。
同“”或“讀”模式一樣,你只能對(duì)文件句柄進(jìn)行寫操作。 (所以的寫入內(nèi)容都添加到文件尾)。企圖進(jìn)行讀操作,會(huì)產(chǎn)生運(yùn)行錯(cuò)誤。
復(fù)制代碼 代碼如下:
open(FH, ">> $filename")
or die "Couldn't open $filename for appending: $!";
通過“+”模式,你可以既可以讀文件,又可以寫文件。你可以通過tell() 函數(shù)在文件內(nèi)部移動(dòng),通過seek()函數(shù)進(jìn)行定位。如果文件不存在,就會(huì)被創(chuàng)建。如果文件已經(jīng)存在,原來的數(shù)據(jù)不會(huì)被清除。
如果你打算清除原來的文件內(nèi)容,或者自己調(diào)用truncate() 函數(shù),或者使用“+>”模式。
復(fù)制代碼 代碼如下:
open(FH, "+> $filename")
or die "Couldn't open $filename for reading and writing: $!";
注意“+”和“+>”的區(qū)別,兩者都可以可讀可寫。前者為非破壞性寫,后者為破壞性寫。
錯(cuò)誤
錯(cuò)誤是如何出現(xiàn)的?很多地方都會(huì)出現(xiàn)錯(cuò)誤:如目錄不存在,文件不可寫入,你的程序丟失了文件句柄等等。
你應(yīng)該檢查系統(tǒng)調(diào)用的結(jié)果 (如open() 和sysopen()),看看是否調(diào)用成功。
為了幫助用戶查錯(cuò),通常使用“or die()”,你應(yīng)記住這些用法。首先,應(yīng)寫出系統(tǒng)調(diào)用失敗(“open”)的信息。其次,應(yīng)寫出文件名的信息,以便修正錯(cuò)誤時(shí)更容易地定位。第三,要寫出打開文件的方式, (“for writing,”“for appending”)。第四,輸出操作系統(tǒng)的出錯(cuò)信息(包含在$!中)。這樣,一旦出現(xiàn)文件不能打開的問題,使用你的程序的用戶會(huì)大體上知道為什么不能打開。有時(shí),我們把第一個(gè)和第三個(gè)合并在一起:
or die "unable to append to $filename: $!";
如果在open() 和出錯(cuò)信息中都寫了文件的全名,你會(huì)冒改變了open() 的風(fēng)險(xiǎn),使得出錯(cuò)信息不合時(shí)宜或不正確。
復(fù)制代碼 代碼如下:
# 下面會(huì)出現(xiàn)虛假的出錯(cuò)信息
open(FH, "/var/run/file.pid")
or die "Can't open /var/log/file.pod for writing : $!";
用 Sysopen()進(jìn)行更多的控制
為了更好的控制文件的打開方式,可以使用 sysopen() 函數(shù):
復(fù)制代碼 代碼如下:
use Fcntl;
sysopen(FH, $filename, O_RDWR|O_CREAT, 0666)
or die "Can't open $filename for reading/writing/creating : $!";
函數(shù) sysopen() 帶有四個(gè)參數(shù),第一個(gè)是同open()函數(shù)類似的文件句柄參數(shù),第二個(gè)參數(shù)是不帶模式信息的文件名,第三個(gè)參數(shù)是模式參數(shù),由Fcntl 模塊提供的邏輯OR運(yùn)算組合起來的常數(shù)構(gòu)成,第四個(gè)參數(shù)(可選),為八進(jìn)制屬性值(0666表示數(shù)據(jù)文件, 0777表示程序)。如果文件可以被打開,sysopen() 返回true,如果打開失敗,則返回false。
不同于open()函數(shù),sysopen()不提供模式說明的簡(jiǎn)寫方式,而是把一些常數(shù)組合起來,而且,每個(gè)模式常數(shù)有唯一的含義,只有通過邏輯OR運(yùn)算才能將它們組合起來,你可以設(shè)置多個(gè)行為的組合。
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)
當(dāng)你需要小心行事的時(shí)候,就使用sysopen() 函數(shù),例如,如果你打算添加內(nèi)容到文件中,如果文件不存在,不創(chuàng)建新文件,可以這樣寫:
復(fù)制代碼 代碼如下:
sysopen(LOG, "/var/log/myprog.log", O_APPEND, 0666)
or die "Can't open /var/log/myprog.log for appending: $!";