Perl的經典用法 2 - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- Perl的經典用法 2 (http://www.webasp.net/article/8/7765.htm)

-- 作者：未知 -- 發佈日期： 2003-09-13

用 Sysopen()進行更多的控制 為了更好的控制文件的打開方式，可以使用 sysopen() 函數： use Fcntl; sysopen(FH, $filename, O_RDWR|O_CREAT, 0666)   or die "Can't open $filename for reading/writing/creating : $!"; 函數 sysopen() 帶有四個參數，第一個是同open()函數類似的文件句柄參數，第二個參數是不帶模式信息的文件名，第三個參數是模式參數，由Fcntl 模塊提供的邏輯OR運算組合起來的常數構成，第四個參數(可選)，為八進制屬性值(0666表示數據文件， 0777表示程序)。如果文件可以被打開，sysopen() 返回true，如果打開失敗，則返回false。 不同於open()函數，sysopen()不提供模式說明的簡寫方式，而是把一些常數組合起來，而且，每個模式常數有唯一的含義，只有通過邏輯OR運算才能將它們組合起來，你可以設置多個行為的組合。 O_RDONLYRead-only O_WRONLY   Write-only O_RDWR Reading and writing O_APPEND Writes go to the end of the file O_TRUNC Truncate the file if it existed O_CREAT Create the file if it didn't exist O_EXCLError if the file already existed (used with O_CREAT) 當你需要小心行事的時候，就使用sysopen() 函數，例如，如果你打算添加內容到文件中，如果文件不存在，不創建新文件，你可以這樣寫： sysopen(LOG, "/var/log/myprog.log", O_APPEND, 0666) or die "Can't open /var/log/myprog.log for appending: $!";

webasp.net