您好,登錄后才能下訂單哦!
這篇文章將為大家詳細(xì)講解有關(guān)怎樣讀寫Perl文件,小編覺得挺實(shí)用的,因此分享給大家做個參考,希望大家閱讀完這篇文章后可以有所收獲。
讀寫Perl文件
一、打開、關(guān)閉Perl文件
語法為open(filevar,filename),其中filevar為Perl文件句柄,或者說是程序中用來代表某Perl文件的代號,filename為Perl文件名,其路徑可為相對路徑,亦可為絕對路徑。
open(FILE1,"file1");
open(FILE1,"/u/jqpublic/file1");
讀寫Perl文件之前首先要打開Perl文件,打開Perl文件時必須決定訪問模式,在Perl中有三種訪問模式:讀、寫和添加。后兩種模式的區(qū)別在于寫模式將原Perl文件覆蓋,原有內(nèi)容丟失,形式為:open(outfile,">outfile");而添加模式則在原Perl文件的末尾處繼續(xù)添加內(nèi)容,形式為:open(appendfile,">>appendfile")。要注意的是,不能對Perl文件同時進(jìn)行讀和寫/添加操作。
open的返回值用來確定打開Perl文件的操作是否成功,當(dāng)其成功時返回非零值,失敗時返回零,因此可以如下判斷:
if(open(MYFILE,"myfile")){
#here'swhattodoifthefileopenedsuccessfully
}
當(dāng)Perl文件打開失敗時結(jié)束程序:
unless(open(MYFILE,"file1")){
die("cannotopeninputfilefile1\n");
}
亦可用邏輯或操作符表示如下:
open(MYFILE,"file1")||die("Couldnotopenfile");
當(dāng)Perl文件操作完畢后,用close(MYFILE);關(guān)閉Perl文件。
二、讀Perl文件
讀寫Perl文件中的語句$line=<MYFILE>;從Perl文件中讀取一行數(shù)據(jù)存儲到簡單變量$line中并把Perl文件指針向后移動一行。<STDIN>為標(biāo)準(zhǔn)輸入Perl文件,通常為鍵盤輸入,不需要打開。
語句@array=<MYFILE>;把Perl文件的全部內(nèi)容讀入數(shù)組@array,Perl文件的每一行(含回車符)為@array的一個元素。
三、寫Perl文件
形式為:
open(OUTFILE,">outfile");
printOUTFILE("Hereisanoutputline.\n");
注:STDOUT、STDERR為標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)錯誤Perl文件,通常為屏幕,且不需要打開。
四、判斷Perl文件狀態(tài)
Perl文件測試操作符
語法為:-opexpr,如:
if(-e"/path/file1"){
printSTDERR("Filefile1exists.\n");
}
五、命令行參數(shù)
讀寫Perl文件過程中象C一樣,Perl也有存儲命令行參數(shù)的數(shù)組@ARGV,可以用來分別處理各個命令行參數(shù);與C不同的是,$ARGV[0]是***個參數(shù),而不是程序名本身。
$var=$ARGV[0];#***個參數(shù)
$numargs=@ARGV;#參數(shù)的個數(shù)
Perl中,<>操作符實(shí)際上是對數(shù)組@ARGV的隱含的引用,其工作原理為:
1、當(dāng)Perl解釋器***次看到<>時,打開以$ARGV[0]為Perl文件名的Perl文件;
2、執(zhí)行動作shift(@ARGV);即把數(shù)組@ARGV的元素向前移動一個,其元素?cái)?shù)量即減少了一個。
3、<>操作符讀取在***步打開的Perl文件中的所有行。
4、讀完后,解釋器回到***步重復(fù)。
例:
@ARGV=("myfile1","myfile2");#實(shí)際上由命令行參數(shù)賦值
while($line=<>){
print($line);
}
將把Perl文件myfile1和myfile2的內(nèi)容打印出來。
六、打開管道
讀寫Perl文件過程中用程序的形式也可以象命令行一樣打開和使用管道(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);
關(guān)于“怎樣讀寫Perl文件”這篇文章就分享到這里了,希望以上內(nèi)容可以對大家有一定的幫助,使各位可以學(xué)到更多知識,如果覺得文章不錯,請把它分享出去讓更多的人看到。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。