Latest web development tutorials

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/perl

open(DATA, "<file.txt") or die "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 文件无法打开, $!";

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

模式 描述
< 或r 只讀方式打開,將文件指針指向文件頭。
> 或w 寫入方式打開,將文件指針指向文件頭並將文件大小截為零。 如果文件不存在則嘗試創建之。
>> 或a 寫入方式打開,將文件指針指向文件末尾。 如果文件不存在則嘗試創建之。
+< 或r+ 讀寫方式打開,將文件指針指向文件頭。
+> 或w+ 讀寫方式打開,將文件指針指向文件頭並將文件大小截為零。 如果文件不存在則嘗試創建之。
+>> 或a+ 讀寫方式打開,將文件指針指向文件末尾。 如果文件不存在則嘗試創建之。

Sysopen函數

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

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

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

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

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

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

ThePERMS參數為八進制屬性值,表示文件創建後的權限,默認為0x666

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

模式 描述
O_RDWR 讀寫方式打開,將文件指針指向文件頭。
O_RDONLY 只讀方式打開,將文件指針指向文件頭。
O_WRONLY 寫入方式打開,將文件指針指向文件頭並將文件大小截為零。 如果文件不存在則嘗試創建之。
O_CREAT 創建文件
O_APPEND 追加文件
O_TRUNC 將文件大小截為零
O_EXCL 如果使用O_CREAT時文件存在,就返回錯誤信息,它可以測試文件是否存在
O_NONBLOCK 非阻塞I/O使我們的操作要么成功,要么立即返回錯誤,不被阻塞。

Close 函數

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

close FILEHANDLE
close

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

close(DATA) || die "无法关闭文件";

讀寫文件

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

<FILEHANDL> 操作符

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

#!/usr/bin/perl

print "本教程网址?\n";
$name = <STDIN>;
print "网址:$name\n";

以上程序執行後,會顯示以下信息,我們輸入網址後print 語句就會輸出:

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

實現創建import.txt 文件,內容如下:

$ cat import.txt 
1
2
3

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

#!/usr/bin/perl

open(DATA,"<import.txt") or die "无法打开数据";
@lines = <DATA>;
print @lines;    # 输出数组内容
close(DATA);

執行以上程序,輸出結果為:

1
2
3

getc 函數

xgetc 函數從指定的FILEHANDLE 返回單一的字符,如果沒指定返回STDIN:

getc FILEHANDLE
getc

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


read 函數

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

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

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

參數說明:

  • FILEHANDLE:文件句柄,用於存放一個文件唯一標識符。
  • SCALAR:開始讀取位置。
  • LENGTH:讀取的內容長度。
  • OFFSET:偏移量。

如果讀取成功返回讀取的字節數,如果在文件結尾返回0,如果發生錯誤返回undef。

print 函數

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

print FILEHANDLE LIST
print LIST
print

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

print "Hello World!\n";

文件拷貝

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

#!/usr/bin/perl

# 只读方式打开文件
open(DATA1, "<file1.txt");

# 打开新文件并写入
open(DATA2, ">file2.txt");

# 拷贝数据
while(<DATA1>)
{
   print DATA2 $_;
}
close( DATA1 );
close( DATA2 );

文件重命名

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

#!/usr/bin/perl

rename ("/usr/w3big/test/file1.txt", "/usr/w3big/test/file2.txt" );

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

刪除文件

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

#!/usr/bin/perl

unlink ("/usr/w3big/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.w3big.com
#/usr/bin/perl

my $file = "/usr/test/w3big/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),"\n";
}

執行以上程序,輸出結果為:

file1.txt 信息:是一个文本文件, 15 字节

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

操作符 描述
-A 文件上一次被訪問的時間(單位:天)
-B 是否為二進製文件
-C 文件的(inode)索引節點修改時間(單位:天)
-M 文件上一次被修改的時間(單位:天)
-O 文件被真實的UID所有
-R 文件或目錄可以被真實的UID/GID讀取
-S 為socket(套接字)
-T 是否為文本文件
-W 文件或目錄可以被真實的UID/GID寫入
-X 文件或目錄可以被真實的UID/GID執行
-b 為block-special (特殊塊)文件(如掛載磁盤)
-c 為character-special (特殊字符)文件(如I/O 設備)
-d 為目錄
-e 文件或目錄名存在
-f 為普通文件
-g 文件或目錄具有setgid屬性
-k 文件或目錄設置了sticky位
-l 為符號鏈接
-o 文件被有效UID所有
-p 文件是命名管道(FIFO)
-r 文件可以被有效的UID/GID讀取
-s 文件或目錄存在且不為0(返回字節數)
-t 文件句柄為TTY(系統函數isatty()的返回結果;不能對文件名使用這個測試)
-u 文件或目錄具有setuid屬性
-w 文件可以被有效的UID/GID寫入
-x 文件可以被有效的UID/GID執行
-z 文件存在,大小為0(目錄恆為false),即是否為空文件,