| 導購 | 订阅 | 在线投稿
分享
 
 
 

Perl的經典用法

2008-06-01 01:10:26  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
  用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: $!";

  作 者:不詳

  --
 
用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: $!"; 作 者:不詳 --
󰈣󰈤
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
  免責聲明:本文僅代表作者個人觀點,與王朝網絡無關。王朝網絡登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
© 2005- 王朝網路 版權所有