如何使用Open()函數打開Perl文件

這篇文章給大家介紹如何使用Open()函數打開Perl文件，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

Perl的經典用法：用Open()函數打開Perl文件

打開Perl文件的常用法子是:
open(FH,"<$filename")

ordie"Couldn'topen$filenameforreading:$!";

◆open()函數通常帶有兩個參數，***個為Perl文件句柄，用于指向打開的Perl文件，第二個參數是Perl文件名及模式(Perl文件的打開模式)的混雜體，如果Perl文件被成功打開，open()函數返回true，否則為false。我們用“or”來該條件。

上述代碼中的模式由小于字符(<)來表現。如果Perl文件不存在，open()將返回false。此時，你可以讀Perl文件句柄，但不可以寫。

大于字符表現寫。如果Perl文件不存在，就會被創立。如果Perl文件存在，Perl文件被消除，以前的數據將會喪失。你可以寫入Perl文件句柄，但不可以讀入。

如果Perl文件不存在，就創立它

open(FH,">$filename")

ordie"Couldn'topen$filenameforwriting:$!";

如果Perl文件不存在，添加模式(用兩個大于符號表現)可以用來創立新Perl文件，如果Perl文件存在，該模式并不會消除原本的數據。

同“<”或“讀”模式一樣，你只能對Perl文件句柄進行寫操作。(所以的寫入內容都添加到Perl文件尾)。打算進行讀操作，會產生運行差錯。

open(FH,">>$filename")

ordie"Couldn'topen$filenameforappending:$!";

◆通過“+<”模式，你可以既可以讀Perl文件，又可以寫Perl文件。你可以通過tell()函數在Perl文件內部移動，通過seek()函數進行定位。如果Perl文件不存在，就會被創立。如果Perl文件已經存在，原本的數據不會被消除。

如果你籌劃消除原本的Perl文件內容，或者自己調用truncate()函數，或者使用“+>”模式。

open()函數通常帶有兩個參數，***個為Perl文件句柄，用于指向打開的Perl文件，第二個參數是Perl文件名及模式(Perl文件的打開模式)的混雜體，注意“+<”和“+>”的差別，兩者都可以可讀可寫。前者為非毀壞性寫，后者為毀壞性寫。


差錯

差錯是如何出現的？很多處所都會出現差錯：如目錄不存在，Perl文件不可寫入，你的程序喪失了Perl文件句柄等等。

你該當反省系統調用的效果(如open()和sysopen())，看看是否調用成功。

為了贊助用戶查錯，通常應用“ordie()”，你應記住這些用法。首先，應寫出系統調用失敗(“open”)的信息。其次，應寫出Perl文件名的信息，以便修正錯誤時更容易地定位。第三，要寫出打開Perl文件的法子，(“forwriting,”“forappending”)。第四，輸出操作系統的出錯信息(包孕在$!中)。這樣，一旦出現Perl文件不能打開的問題，應用你的程序的用戶會大體上知道為什么不能打開。有時，我們把***個和第三個合并在一起：

ordie"unabletoappendto$filename:$!";

如果在open()和出錯信息中都寫了Perl文件的全名，你會冒轉變了open()的風險，使得出錯信息不合時宜或不正確。

◆下面會出現虛偽的出錯信息
open(FH,"

ordie"Can'topen/var/log/file.podforwriting:$!";

關于如何使用Open()函數打開Perl文件就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。