本文和大家重點(diǎn)討論一下Perl文件讀寫的概念，打開Perl文件時(shí)必須決定訪問模式，在PERL中有三種訪問模式：讀、寫和添加。后兩種模式的區(qū)別在于寫模式將原Perl文件覆蓋，原有內(nèi)容丟失，形式為：open(outfile,">outfile")。

創(chuàng)新互聯(lián)公司擁有一支富有激情的企業(yè)網(wǎng)站制作團(tuán)隊(duì)，在互聯(lián)網(wǎng)網(wǎng)站建設(shè)行業(yè)深耕十載，專業(yè)且經(jīng)驗(yàn)豐富。十載網(wǎng)站優(yōu)化營銷經(jīng)驗(yàn)，我們已為數(shù)千家中小企業(yè)提供了網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)解決方案，定制制作，設(shè)計(jì)滿意，售后服務(wù)無憂。所有客戶皆提供一年免費(fèi)網(wǎng)站維護(hù)!

Perl文件讀寫

一、打開、關(guān)閉Perl文件

語法為open(filevar,filename)，其中filevar為Perl文件句柄，或者說是程序中用來代表某Perl文件的代號(hào)，filename為Perl文件名，其路徑可為相對(duì)路徑，亦可為絕對(duì)路徑。
open(FILE1,"file1");
open(FILE1,"/u/jqpublic/file1");

打開Perl文件時(shí)必須決定訪問模式，在PERL中有三種訪問模式：讀、寫和添加。后兩種模式的區(qū)別在于寫模式將原Perl文件覆蓋，原有內(nèi)容丟失，形式為：open(outfile,">outfile");而添加模式則在原Perl文件的末尾處繼續(xù)添加內(nèi)容，形式為：open(appendfile,">>appendfile")。要注意的是，不能對(duì)Perl文件同時(shí)進(jìn)行讀和寫/添加操作。
open的返回值用來確定打開Perl文件的操作是否成功，當(dāng)其成功時(shí)返回非零值，失敗時(shí)返回零，因此可以如下判斷：
if(open(MYFILE,"myfile")){
#here'swhattodoifthefileopenedsuccessfully
}

當(dāng)Perl文件打開失敗時(shí)結(jié)束程序：
unless(open(MYFILE,"file1")){
die("cannotopeninputfilefile1\n");
}

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

二、讀Perl文件

語句$line=;從Perl文件中讀取一行數(shù)據(jù)存儲(chǔ)到簡(jiǎn)單變量$line中并把Perl文件指針向后移動(dòng)一行。為標(biāo)準(zhǔn)輸入Perl文件，通常為鍵盤輸入，不需要打開。
語句@array=;把Perl文件的全部?jī)?nèi)容讀入數(shù)組@array，Perl文件的每一行(含回車符)為@array的一個(gè)元素。

三、寫Perl文件

形式為：
open(OUTFILE,">outfile");
printOUTFILE("Hereisanoutputline.\n");
注：STDOUT、STDERR為標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)錯(cuò)誤Perl文件，通常為屏幕，且不需要打開。

四、判斷Perl文件狀態(tài)

1、Perl文件測(cè)試操作符
語法為：-opexpr，如：
if(-e"/path/file1"){
printSTDERR("Filefile1exists.\n");
}

本文來自：蟲蟲實(shí)驗(yàn)室在線(www.ix88.com)原文鏈接：http://www.ix88.com/biancheng/cgi/20507.html

【編輯推薦】

1. 解析讀寫Perl文件的簡(jiǎn)明步驟
2. Perl文件句柄概念詳解
3. Perl文件句柄概念詳解
4. 術(shù)語匯編 全面認(rèn)識(shí)Perl文件句柄
5. 學(xué)習(xí)筆記 Perl數(shù)字與字符串間的自動(dòng)轉(zhuǎn)換

名稱欄目：Perl文件讀寫方法詳解
分享URL：http://uogjgqi.cn/article/dhgdhpc.html