Perl檔案讀取的經典用法分享

用open() 函式開啟檔案

開啟檔案的常用方法是:

複製** **如下:

open(fh, "< $filename")

or die "couldn't open $filename for reading: $!";

open() 函式通常帶有兩個引數，第乙個為檔案控制代碼，用於指向開啟的檔案，第二個引數是檔名及模式(檔案的開啟模式)的混合體，如果檔案被成功開啟，open()函式返回true，否則為false。我們用「or」來測試該條件。

上述**中的模式由小於字元(

大於字元表示寫。如果檔案不存在，就會被建立。如果檔案存在，檔案被清除，以前的資料將會丟失。你可以寫入檔案控制代碼，但不可以讀入。

複製** **如下:

# 如果檔案不存在，就建立它

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()」，你應記住這些用法。首先，應寫出系統呼叫失敗(「opewww.cppcns.comn」)的資訊。其次，應寫出檔名的資訊，以便修正錯誤時更容易地定位。第三，要寫出開啟檔案的方式， (「for writing,」「for appending」)。第四，輸出作業系統的出錯資訊(包含在$!中)。這樣，一旦出現檔案不能開啟的問題，使用你的程式的使用者會大體上知道為什麼不能開啟。有時，我們把第乙個和第三個合併在一起：

or die "unable to append to $filename: $!";

如果在open() 和出錯資訊中都寫了檔案的全名，你會冒改變了open() 的風險，使得出錯資訊不合時宜或不正確。

複製** **如下:

# 下面會出現虛假的出錯資訊

open(fh, "or die "can't open /var/log/file.pod for writing : $!";

用 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 www.cppcns.comopen /var/log/myprog.log for appending: $!";

本文標題: perl檔案讀取的經典用法分享

本文位址: /jiaoben/perl/92065.html

Perl檔案讀取的經典用法分享

關於perl的檔案讀取

Perl開啟讀取檔案

讀取excel檔案（使用perl處理）

Perl檔案讀取的經典用法分享

關於perl的檔案讀取

Perl開啟讀取檔案

讀取excel檔案（使用perl處理）

相關推薦