建站
咨詢
售后
建站咨詢
新聞中心
本文和大家重點討論一下如何讀寫Perl文件，主要包括打開、關閉Perl文件，讀寫Perl文件，Perl文件的狀態(tài)，命令行參數(shù)和打開管道六部分內(nèi)容，希望通過本文的學習你對讀寫Perl文件有深刻的認識。
創(chuàng)新互聯(lián)建站網(wǎng)站建設服務商，為中小企業(yè)提供成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設服務，網(wǎng)站設計，網(wǎng)站改版維護等一站式綜合服務型公司，專業(yè)打造企業(yè)形象網(wǎng)站，讓您在眾多競爭對手中脫穎而出創(chuàng)新互聯(lián)建站。
讀寫Perl文件
一、打開、關閉Perl文件
語法為open(filevar,filename)，其中filevar為Perl文件句柄，或者說是程序中用來代表某Perl文件的代號，filename為Perl文件名，其路徑可為相對路徑，亦可為絕對路徑。
open(FILE1,"file1");
open(FILE1,"/u/jqpublic/file1");
打開Perl文件時必須決定訪問模式，在Perl中有三種訪問模式：讀、寫和添加。后兩種模式的區(qū)別在于寫模式將原Perl文件覆蓋，原有內(nèi)容丟失，形式為：open(outfile,">outfile");而添加模式則在原Perl文件的末尾處繼續(xù)添加內(nèi)容，形式為：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文件
語句$line=
語句@array=
三、寫Perl文件
形式為：
open(OUTFILE,">outfile");
printOUTFILE("Hereisanoutputline.\n");
注：STDOUT、STDERR為標準輸出和標準錯誤Perl文件，通常為屏幕，且不需要打開。
四、判斷Perl文件狀態(tài)
1、Perl文件測試操作符
語法為：-opexpr，如：
if(-e"/path/file1"){
printSTDERR("Filefile1exists.\n");
}
Perl文件測試操作符
例：
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");
五、命令行參數(shù)
象C一樣，Perl也有存儲命令行參數(shù)的數(shù)組@ARGV，可以用來分別處理各個命令行參數(shù)；與C不同的是，$ARGV[0]是***個參數(shù)，而不是程序名本身。
$var=$ARGV[0];#***個參數(shù)
$numargs=@ARGV;#參數(shù)的個數(shù)
Perl中，<>操作符實際上是對數(shù)組@ARGV的隱含的引用，其工作原理為：
1、當Perl解釋器***次看到<>時，打開以$ARGV[0]為Perl文件名的Perl文件；
2、執(zhí)行動作shift(@ARGV);即把數(shù)組@ARGV的元素向前移動一個，其元素數(shù)量即減少了一個。
3、<>操作符讀取在***步打開的Perl文件中的所有行。
4、讀完后，解釋器回到***步重復。
例：
@ARGV=("myfile1","myfile2");#實際上由命令行參數(shù)賦值
while($line=<>){
print($line);
}
將把Perl文件myfile1和myfile2的內(nèi)容打印出來。
六、打開管道
用程序的形式也可以象命令行一樣打開和使用管道(ex:ls>tempfile)。如語句open(MYPIPE,"|cat>hello");打開一個管道，發(fā)送到MYPIPE的輸出成為命令"cat>hello"的輸入。由于cat命令將顯示輸入Perl文件的內(nèi)容，故該語句等價于open(MYPIPE,">hello");用管道發(fā)送郵件如下：
open(MESSAGE,"|maildave");
printMESSAGE("Hi,Dave!YourPerlprogramsentthis!\n");
close(MESSAGE);
【編輯推薦】
- Perl文件句柄概念詳解
- 術語匯編 全面認識Perl文件句柄
- Perl二維數(shù)組用法全程剖析
- 暢談Perl操作符用法
- Perl字符串處理函數(shù)大全
網(wǎng)頁標題：學習筆記 如何讀寫Perl文件
文章URL：http://m.5511xx.com/article/cochccj.html
