用Open() 函數(shù)打開文件

打開文件的常用方法是:

代碼如下:
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ì)丟失。你可以寫入文件句柄，但不可以讀入。

代碼如下:
# 如果文件不存在，就創(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ò)誤。

代碼如下:
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ù)，或者使用“+>”模式。

代碼如下:
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í)宜或不正確。