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 為文件句柄用於讀取文件,以下實例將打開文件併將文件內容輸出:
實例
以下代碼以寫入( > )的方式打開文件 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 為只讀模式。
The PERMS 參數為八進製屬性值,表示文件創建後的權限,默認為 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> 操作符。在標量上下文中,它從文件句柄返回單一行。例如:
實例
以上程序執行後,會顯示以下信息,我們輸入網址後 print 語句就會輸出:
當我們使用 <FILEHANDLE> 操作符時,它會返回文件句柄中每一行的列表,例如我們可以導入所有的行到數組中。
實現創建 import.txt 文件,內容如下:
$ cat import.txt 1 2 3
讀取 import.txt 併將每一行放到 @lines 數組中:
實例
執行以上程序,輸出結果為:
1 2 3
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 LIST print LIST print
利用文件句柄和 print 函數可以把程序運行的結果發給輸出設備(STDOUT:標准輸出),例如:
print "Hello World!\n";
文件拷貝
以下實例我們將打開一個已存在的文件 file1.txt ,併讀取它的每一行寫入到文件 file2.txt 中:
實例
文件重命名
以下實例,我們將已存在的文件 file1.txt 重命名為 file2.txt,指定的目錄是在 /usr/runoob/test/ 下:
#!/usr/bin/perl rename ("/usr/runoob/test/file1.txt", "/usr/runoob/test/file2.txt" );
函數 renames 只接受兩個參數,只對已存在的文件進行重命名。
刪除文件
以下實例我們演示了如何使用 unlink 函數來刪除文件:
實例
指定文件位置
你可以使用 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.sharebody.com
實例
執行以上程序,輸出結果為:
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),即是否為空文件, |