Perl的經(jīng)典用法:用Open()函數打開(kāi)文件
本文出自:www.zdnet.com.cn 作者:Nathan Torkington (2001-12-29 12:58:44)
打開(kāi)文件的常用方法是:
open(FH, "< $filename")
or die "Couldn‘t open $filename for reading: $!";
open() 函數通常帶有兩個(gè)參數，第一個(gè)為文件句柄，用于指向打開(kāi)的文件， 第二個(gè)參數是文件名及模式(文件的打開(kāi)模式)的混合體，如果文件被成功打開(kāi)， open()函數返回true，否則為false。我們用“or”來(lái)測試該條件。
上述代碼中的模式由小于字符(<)來(lái)表示。如果文件不存在，open()將返回false。 此時(shí)，你可以讀文件句柄，但不可以寫(xiě)。
大于字符表示寫(xiě)。如果文件不存在，就會(huì )被創(chuàng )建。如果文件存在，文件被清除， 以前的數據將會(huì )丟失。你可以寫(xiě)入文件句柄，但不可以讀入。
# 如果文件不存在，就創(chuàng )建它
open(FH, "> $filename")
or die "Couldn‘t open $filename for writing: $!";
如果文件不存在，添加模式(用兩個(gè)大于符號表示)可以用來(lái)創(chuàng )建新文件，如果文 件存在，該模式并不會(huì )清除原來(lái)的數據。
同“<”或“讀”模式一樣，你只能對文件句柄進(jìn)行寫(xiě)操作。 (所以的寫(xiě)入內 容都添加到文件尾)。企圖進(jìn)行讀操作，會(huì )產(chǎn)生運行錯誤。
open(FH, ">> $filename")
or die "Couldn‘t open $filename for appending: $!";
通過(guò)“+<”模式，你可以既可以讀文件，又可以寫(xiě)文件。你可以通過(guò)tell() 函數在文件內部移動(dòng)，通過(guò)seek()函數進(jìn)行定位。如果文件不存在，就會(huì )被創(chuàng )建。 如果文件已經(jīng)存在，原來(lái)的數據不會(huì )被清除。
如果你打算清除原來(lái)的文件內容，或者自己調用truncate() 函數，或者使 用“+>”模式。
open(FH, "+> $filename")
or die "Couldn‘t open $filename for reading and writing: $!";
注意“+<”和“+>”的區別，兩者都可以可讀可寫(xiě)。前者為非破壞性寫(xiě)， 后者為破壞性寫(xiě)。
錯誤
錯誤是如何出現的？很多地方都會(huì )出現錯誤：如目錄不存在，文件不可寫(xiě)入， 你的程序丟失了文件句柄等等。
你應該檢查系統調用的結果 (如open() 和sysopen())，看看是否調用成功。
為了幫助用戶(hù)查錯，通常使用“or die()”，你應記住這些用法。首先， 應寫(xiě)出系統調用失敗(“open”)的信息。其次，應寫(xiě)出文件名的信息，以便修正錯 誤時(shí)更容易地定位。第三，要寫(xiě)出打開(kāi)文件的方式， (“for writing,”“for appending”)。 第四，輸出操作系統的出錯信息(包含在$!中)。這樣，一旦出現文件不能打開(kāi)的問(wèn)題， 使用你的程序的用戶(hù)會(huì )大體上知道為什么不能打開(kāi)。有時(shí)，我們把第一個(gè)和第三個(gè)合并 在一起：
or die "unable to append to $filename: $!";
如果在open() 和出錯信息中都寫(xiě)了文件的全名，你會(huì )冒改變了open() 的風(fēng)險， 使得出錯信息不合時(shí)宜或不正確。
# 下面會(huì )出現虛假的出錯信息
open(FH, "
or die "Can‘t open /var/log/file.pod for writing : $!";
