本文和大家重點討論一下Perl文件讀寫詳細說明，首先看一下打開、關閉Perl文件，語法為open(filevar,filename)，其中filevar為Perl文件句柄，或者說是程序中用來代表某Perl文件的代號，filename為Perl文件名，其路徑可為相對路徑，亦可為絕對路徑。

Perl文件讀寫詳細說明

一、打開、關閉Perl文件

語法為open(filevar,filename)，其中filevar為Perl文件句柄，或者說是程序中用來代表某Perl文件的代號，filename為Perl文件名，其路徑可為相對路徑，亦可為絕對路徑。
open(FILE1,"file1");
open(FILE1,"/u/jqpublic/file1");
打開Perl文件時必須決定訪問模式，在Perl中有三種訪問模式：讀、寫和添加。后兩種模式的區別在于寫模式將原Perl文件覆蓋，原有內容丟失，形式為：open(outfile,">outfile");而添加模式則在原Perl文件的末尾處繼續添加內容，形式為：open(appendfile,">>appendfile")。要注意的是，不能對Perl文件同時進行讀和寫/添加操作。
open的返回值用來確定打開Perl文件的操作是否成功，當其成功時返回非零值，失敗時返回零，因此可以如下判斷：
 

if(open(MYFILE,"myfile")){  
#here'swhattodoifthefileopenedsuccessfully  
}  

 當Perl文件打開失敗時結束程序：
 

unless(open(MYFILE,"file1")){  
die("cannotopeninputfilefile1\n");  
}  

亦可用邏輯或操作符表示如下：
open(MYFILE,"file1")||die("Couldnotopenfile");
當Perl文件操作完畢后，用close(MYFILE);關閉Perl文件。

二、讀Perl文件

Perl文件讀寫中讀語句$line=<MYFILE>;從Perl文件中讀取一行數據存儲到簡單變量$line中并把Perl文件指針向后移動一行。<STDIN>為標準輸入Perl文件，通常為鍵盤輸入，不需要打開。
語句@array=<MYFILE>;把Perl文件的全部內容讀入數組@array，Perl文件的每一行(含回車符)為@array的一個元素。

三、寫Perl文件

Perl文件讀寫中寫語句形式為：
open(OUTFILE,">outfile");
printOUTFILE("Hereisanoutputline.\n");
注：STDOUT、STDERR為標準輸出和標準錯誤Perl文件，通常為屏幕，且不需要打開。

四、判斷Perl文件狀態

1、Perl文件測試操作符

語法為：-opexpr，如：
if(-e"/path/file1"){
printSTDERR("Filefile1exists.\n");
}

例： 

unless(open(INFILE,"infile")){  
die("Inputfileinfilecannotbeopened.\n");  
}  
if(-e"outfile"){  
die("Outputfileoutfilealreadyexists.\n");  
}  
unless(open(OUTFILE,">outfile")){  
die("Outputfileoutfilecannotbeopened.\n");  
}  

等價于
open(INFILE,"infile")&&!(-e"outfile")&&
open(OUTFILE,">outfile")||die("Cannotopenfiles\n");

五、命令行參數

象C一樣，Perl也有存儲命令行參數的數組@ARGV，可以用來分別處理各個命令行參數；與C不同的是，$ARGV[0]是第一個參數，而不是程序名本身。
$var=$ARGV[0];#第一個參數
$numargs=@ARGV;#參數的個數

Perl文件讀寫中，<>操作符實際上是對數組@ARGV的隱含的引用，其工作原理為：
1、當Perl解釋器第一次看到<>時，打開以$ARGV[0]為Perl文件名的Perl文件；
2、執行動作shift(@ARGV);即把數組@ARGV的元素向前移動一個，其元素數量即減少了一個。
3、<>操作符讀取在第一步打開的Perl文件中的所有行。
4、讀完后，解釋器回到第一步重復。
例： 

@ARGV=("myfile1","myfile2");#實際上由命令行參數賦值  
while($line=<>){  
print($line);  
}  

將把Perl文件myfile1和myfile2的內容打印出來。

六、打開管道

用程序的形式也可以象命令行一樣打開和使用管道(ex:ls>tempfile)。如語句open(MYPIPE,"|cat>hello");打開一個管道，發送到MYPIPE的輸出成為命令"cat>hello"的輸入。由于cat命令將顯示輸入Perl文件的內容，故該語句等價于open(MYPIPE,">hello");用管道發送郵件如下： 

open(MESSAGE,"|maildave");  
printMESSAGE("Hi,Dave!YourPerlprogramsentthis!\n");  
close(MESSAGE);  

【編輯推薦】

1. Perl文件讀寫方法詳解
2. 學習筆記 剖析Perl文件讀寫方法
3. Perl引用中直接引用用法解析
4. Perl語法 解析Perl變量使用
5. 技術分享 解析Perl模塊創建和導入方法