---

[20130904] Link http://fecbob.pixnet.net/blog/post/40361603-perl的經典用法：用open()函數打開檔


打開檔的常用方法是:
　　open(FH, "< $filename")
　　
　　or die "Couldn't open $filename for reading: $!";
　　
　　
　　上述代碼中的模式由小於字元(<)來表示。如果檔不存在，open()將返回false。 此時，你可以讀檔案控制代碼，但不可以寫。
　　
　　大於字元表示寫。如果檔不存在，就會被創建。如果檔存在，檔被清除， 以前的資料將會丟失。你可以寫入檔案控制代碼，但不可以讀入。
　　
　　# 如果檔不存在，就創建它
　　
　　open(FH, "> $filename")
　　
　　or die "Couldn't open $filename for writing: $!";
　　
　　如果檔不存在，添加模式(用兩個大於符號表示)可以用來創建新檔，如果文 件存在，該模式並不會清除原來的資料。
　　
　　同「<」或「讀」模式一樣，你只能對檔案控制代碼進行寫操作。 (所以的寫入內 容都添加到檔案結尾)。企圖進行讀操作，會產生運行錯誤。
　　
　　open(FH, ">> $filename")
　　
　　or die "Couldn't open $filename for appending: $!";
　　
　　
　　如果你打算清除原來的檔內容，或者自己調用truncate() 函數，或者使 用「+>」模式。
　　
　　open(FH, "+> $filename")
　　
　　or die "Couldn't open $filename for reading and writing: $!";
　　
　　注意「+<」和「+>」的區別，兩者都可以可讀可寫。前者為非破壞性寫， 後者為破壞性寫。
　　
　　錯誤
　　
　　錯誤是如何出現的？很多地方都會出現錯誤：如目錄不存在，檔不可寫入， 你的程式丟失了檔案控制代碼等等。
　　
　　你應該檢查系統調用的結果 (如open() 和sysopen())，看看是否調用成功。
　　
　　
　　or die "unable to append to $filename: $!";
　　
　　如果在open() 和出錯資訊中都寫了檔的全名，你會冒改變了open() 的風險， 使得出錯資訊不合時宜或不正確。
　　
　　# 下面會出現虛假的出錯資訊
　　
　　open(FH, "
　　
　　or die "Can't open /var/log/file.pod for writing : $!";


--
※ 作者: uefangsmith 時間: 2016-06-07 22:24:52