Perl 文件操作

Perl 使用一種叫做文件句柄類型的變數來操作文件。

從文件讀取或者寫入數據需要使用文件句柄。

文件句柄(file handle)是一個I/O連接的名稱。

Perl提供了三種文件句柄:STDIN,STDOUT,STDERR，分別代表標準輸入、標準輸出和標準出錯輸出。

Perl 中打開文件可以使用以下方式：

open FILEHANDLE, EXPR
open FILEHANDLE
sysopen FILEHANDLE, FILENAME, MODE, PERMS
sysopen FILEHANDLE, FILENAME, MODE

參數說明:

• FILEHANDLE：文件句柄，用於存放一個文件唯一標識符。

• EXPR：文件名及文件訪問類型組成的表達式。

• MODE：文件訪問類型。

• PERMS：訪問許可權位(permission bits)。

Open 函數

以下代碼我們使用 open 函數以只讀的方式(<)打開文件 file.txt：

open(DATA, "<file.txt");

<表示只讀方式。

代碼中的 DATA 為文件句柄用於讀取文件，以下實例將打開文件並將文件內容輸出：

實例

#!/usr/bin/perlopen(DATA, "<file.txt")ordie"file.txt 文件無法打開, $!";
while(<DATA>){print"$_";}

以下代碼以寫入( > )的方式打開文件 file.txt:

open(DATA, ">file.txt") or die "file.txt 文件無法打開, $!";

>表示寫入方式。

如果你需要以讀寫方式打開文件，可以在 > 或 < 字元前添加 + 號：

open(DATA, "+<file.txt"); or die "file.txt 文件無法打開, $!";

這種方式不會刪除文件原來的內容，如果要刪除，格式如下所示：

open DATA, "+>file.txt" or die "file.txt 文件無法打開, $!";

如果要向文件中追加數據，則在追加數據之前，只需要以追加方式打開文件即可：

open(DATA,">>file.txt") || die "file.txt 文件無法打開, $!";

>> 表示向現有文件的尾部追加數據，如果需要讀取要追加的文件內容可以添加 + 號：

open(DATA,"+>>file.txt") || die "file.txt 文件無法打開, $!";

下表列出了不同的訪問模式：

Sysopen函數

sysopen 函數類似於 open 函數，只是它們的參數形式不一樣。

以下實例是以讀寫(+<filename)的方式打開文件：

sysopen(DATA, "file.txt", O_RDWR);

如果需要在更新文件前清空文件，則寫法如下：

sysopen(DATA, "file.txt", O_RDWR|O_TRUNC );

你可以使用 O_CREAT 來創建一個新的文件， O_WRONLY 為只寫模式， O_RDONLY 為只讀模式。

The PERMS 參數為八進位屬性值，表示文件創建後的許可權，默認為 0x666。

下表列出了可能的模式值：

Close 函數

在文件使用完後，要關閉文件，以刷新與文件句柄相關聯的輸入輸出緩衝區，關閉文件的語法如下：

close FILEHANDLE
close

FILEHANDLE 為指定的文件句柄，如果成功關閉則返回 true。

close(DATA) || die "無法關閉文件";

讀寫文件

向文件讀寫信息有以下幾種不同的方式：

<FILEHANDL> 操作符

從打開的文件句柄讀取信息的主要方法是 <FILEHANDLE> 操作符。在標量上下文中，它從文件句柄返回單一行。

當我們使用 <FILEHANDLE> 操作符時，它會返迴文件句柄中每一行的列表，例如我們可以導入所有的行到數組中。

實現創建 import.txt 文件，內容如下：

$ cat import.txt
123

讀取 import.txt 並將每一行放到 @lines 數組中：

實例

#!/usr/bin/perlopen(DATA,"<import.txt")ordie"無法打開數據";@lines = <DATA>;print@lines; # 輸出數組內容close(DATA);

執行以上程序，輸出結果為：

123

getc 函數

xgetc 函數從指定的 FILEHANDLE 返回單一的字元，如果沒指定返回 STDIN：

getc FILEHANDLE
getc

如果發生錯誤，或在文件句柄在文件末尾，則返回 undef。

read 函數

read 函數用於從緩衝區的文件句柄讀取信息。

這個函數用於從文件讀取二進位數據。

read FILEHANDLE, SCALAR, LENGTH, OFFSET
read FILEHANDLE, SCALAR, LENGTH

參數說明:

• FILEHANDLE：文件句柄，用於存放一個文件唯一標識符。

• SCALAR：存貯結果，如果沒有指定OFFSET，數據將放在SCALAR的開頭。否則數據放在SCALAR中的OFFSET位元組之後。

• LENGTH：讀取的內容長度。

• OFFSET：偏移量。

如果讀取成功返回讀取的位元組數，如果在文件結尾返回 0，如果發生錯誤返回 undef。

print 函數

對於所有從文件句柄中讀取信息的函數，在後端主要的寫入函數為 print：

print FILEHANDLE LISTprint LISTprint

利用文件句柄和 print 函數可以把程序運行的結果發給輸出設備(STDOUT：標準輸出)，例如：

print "Hello World!
";

文件拷貝

以下實例我們將打開一個已存在的文件 file1.txt ，並讀取它的每一行寫入到文件 file2.txt 中：

實例

#!/usr/bin/perl# 只讀方式打開文件open(DATA1, "<file1.txt");
# 打開新文件並寫入open(DATA2, ">file2.txt");
# 拷貝數據while(<DATA1>){printDATA2$_;}close(DATA1);close(DATA2);

文件重命名

以下實例，我們將已存在的文件 file1.txt 重命名為 file2.txt，指定的目錄是在 /usr/runoob/test/ 下：

#!/usr/bin/perlrename ("/usr/runoob/test/file1.txt", "/usr/runoob/test/file2.txt" );

函數 renames 只接受兩個參數，只對已存在的文件進行重命名。

刪除文件

以下實例我們演示了如何使用 unlink 函數來刪除文件：

實例

#!/usr/bin/perlunlink("/usr/runoob/test/file1.txt");

指定文件位置

你可以使用 tell 函數來獲取文件的位置，並通過使用 seek 函數來指定文件內的的位置：

tell 函數

tell 函數用於獲取文件位置：

tell FILEHANDLE
tell

如果指定 FILEHANDLE 該函數返迴文件指針的位置，以位元組計。如果沒有指定則返回默認選取的文件句柄。

seek 函數

seek()函數是通過文件句柄來移動文件讀寫指針的方式來讀取或寫入文件的，以位元組為單位進行讀取和寫入：

seek FILEHANDLE, POSITION, WHENCE

參數說明:

• FILEHANDLE：文件句柄，用於存放一個文件唯一標識符。

• POSITION：表示文件句柄(讀寫位置指針)要移動的位元組數。

• WHENCE：表示文件句柄(讀寫位置指針)開始移動時的起始位置，可以取的值為0、1、2；分別表示文件開頭、當前位置和文件尾。

以下實例為從文件開頭讀取 256 個位元組：

seek DATA, 256, 0;

文件信息

Perl 的文件操作也可以先測試文件是否存在，是否可讀寫等。

我么可以先創建 file1.txt 文件，內如如下：

$ cat file1.txt
www.runoob.com

實例

#/usr/bin/perlmy$file = "/usr/test/runoob/file1.txt";my(@description, $size);if(-e$file){push@description, "是一個二進位文件"if(-B_); push@description, "是一個socket(套接字)"if(-S_); push@description, "是一個文本文件"if(-T_); push@description, "是一個特殊塊文件"if(-b_); push@description, "是一個特殊字元文件"if(-c_); push@description, "是一個目錄"if(-d_); push@description, "文件存在"if(-x_); push@description, (($size = -s_)) ? "$size 位元組" : "空"; print"$file 信息：", join(", ",@description),"
";}

執行以上程序，輸出結果為：

file1.txt 信息：是一個文本文件, 15 位元組

文件測試操作符如下表所示：

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！