Perl的經典用法

用Open() 函數打開文件

打開文件的常用方法是:

open(FH, "< $filename")

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

open() 函數通常帶有兩個參數,第一個爲文件句柄,用于指向打開的文件,第二個參數是文件名及模式(文件的打開模式)的混合體,假如文件被成功打開,open()函數返回true,否則爲false。我們用“or”來測試該條件。

上述代碼中的模式由小于字符(<)來表示。假如文件不存在,open()將返回false。此時,你可以讀文件句柄,但不可以寫。

大于字符表示寫。假如文件不存在,就會被創建。假如文件存在,文件被清除,以前的數據將會丟失。你可以寫入文件句柄,但不可以讀入。

# 假如文件不存在,就創建它

open(FH, "> $filename")

or die "Couldn't open $filename for writing: $!";

假如文件不存在,添加模式(用兩個大于符號表示)可以用來創建新文件,假如文件存在,該模式並不會清除原來的數據。

同“<”或“讀”模式一樣,你只能對文件句柄進行寫操作。 (所以的寫入內容都添加到文件尾)。企圖進行讀操作,會産生運行錯誤。

open(FH, ">> $filename")

or die "Couldn't open $filename for appending: $!";

通過“+<”模式,你可以既可以讀文件,又可以寫文件。你可以通過tell() 函數在文件內部移動,通過seek()函數進行定位。假如文件不存在,就會被創建。假如文件已經存在,原來的數據不會被清除。

假如你打算清除原來的文件內容,或者自己調用truncate() 函數,或者使用“+>”模式。

open(FH, "+> $filename")

or die "Couldn't open $filename for reading and writing: $!";

注重“+<”和“+>”的區別,兩者都可以可讀可寫。前者爲非破壞性寫,後者爲破壞性寫。

錯誤

錯誤是如何出現的?很多地方都會出現錯誤:如目錄不存在,文件不可寫入,你的程序丟失了文件句柄等等。

你應該檢查系統調用的結果 (如open() 和sysopen()),看看是否調用成功。

爲了幫助用戶查錯,通常使用“or die()”,你應記住這些用法。首先,應寫出系統調用失敗(“open”)的信息。其次,應寫出文件名的信息,以便修正錯誤時更輕易地定位。第三,要寫出打開文件的方式, (“for writing,”“for appending”)。第四,輸出操作系統的出錯信息(包含在$!中)。這樣,一旦出現文件不能打開的問題,使用你的程序的用戶會大體上知道爲什麽不能打開。有時,我們把第一個和第三個合並在一起:

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

假如在open() 和出錯信息中都寫了文件的全名,你會冒改變了open() 的風險,使得出錯信息不合時宜或不正確。

# 下面會出現虛假的出錯信息

open(FH, "</var/run/file.pid")

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

作 者:不詳

--

Perl的經典用法
用Open() 函數打開文件 打開文件的常用方法是: open(FH, "< $filename") or die "Couldn't open $filename for reading: $!"; open() 函數通常帶有兩個參數,第一個爲文件句柄,用于指向打開的文件,第二個參...查看完整版>>Perl的經典用法
 
Perl的經典用法 6
用正則表達式對文件進行操作 一旦你有個包含了整個串的變量,你可以使用正則表達式,對整個文件進行操作,而不是對文件中的某個塊進行操作。有兩個有用的正則表達式標記/s和/m。一般,Perl的正則表達式對行進行處理,...查看完整版>>Perl的經典用法 6
 
Perl的經典用法 5
讀入段落 $/ =""的寫法是用來指示Perl讀入段落的,段落是由兩個或兩個以上的換行符構成的文本塊。這不同于設置爲"nn",後者僅讀入由兩行組成的文本塊。在這種情況下,將出現這樣一個問題:如果有連續的空行存在,...查看完整版>>Perl的經典用法 5
 
Perl的經典用法 4
讀入多個記錄 如果你調用,返回文件中剩余的記錄。如果你處于文件尾,則返回空表: @records = ; if (@records) { print "There were ", scalar(@records), " records read.n"; } 在下面的一步中,進行賦值...查看完整版>>Perl的經典用法 4
 
Perl的經典用法 3
讀入單個記錄 有一個容易的方法讀入filehandles:用 操作符。在標量內容下,它返回文件中的下一個記錄,或者返回未定義出錯信息。我們可以使用它來把一行讀入到一個變量中: $line = ; die "Unexpected end-of-f...查看完整版>>Perl的經典用法 3
 
Perl的經典用法 2
用 Sysopen()進行更多的控制 爲了更好的控制文件的打開方式,可以使用 sysopen() 函數: use Fcntl; sysopen(FH, $filename, O_RDWR|O_CREAT, 0666) or die "Can open $filename for reading/writing/creati...查看完整版>>Perl的經典用法 2
 
Perl的經典用法 1
用Open() 函數打開文件 打開文件的常用方法是: open(FH, "< $filename") or die "Couldn open $filename for reading: $!"; open() 函數通常帶有兩個參數,第一個爲文件句柄,用于指向打開的文件,第...查看完整版>>Perl的經典用法 1
 
EXCEL經典用法全集
  01、如何在已有的單元格中批量加入一段固定字符?  例如:在單位的人事資料,在excel中輸入後,由于上級要求在原來的職稱證書的號碼全部再加兩位,即要在每個人的證書號碼前再添上兩位數13,如果一個一個改的話...查看完整版>>EXCEL經典用法全集
 
告訴你爽膚水的十大經典用法
  潔面後,不論多滋潤的潔面乳,總是有點緊繃。習慣要即使爲肌膚補上爽膚水,心理上才感到肌膚得到保護。其實爽膚水除了作潔面後的緩兵之計,用途廣泛的很。一支爽膚水,隨時可以頂替你化妝台上十支八支護膚品,可...查看完整版>>告訴你爽膚水的十大經典用法
 
 
回到王朝網路首頁