Perl經典用法：用Open()函數打開Perl文件
本文和大家重點討論一下Perl的經典用法：用Open()函數打開Perl文件，open()函數通常帶有兩個參數，***個為Perl文件句柄，用于指向打開的Perl文件，第二個參數是Perl文件名及模式(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:$!";
【編輯推薦】
