日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

本文和大家重點(diǎn)討論一下Perl文件讀寫(xiě)詳細(xì)說(shuō)明，首先看一下打開(kāi)、關(guān)閉Perl文件，語(yǔ)法為open(filevar,filename)，其中filevar為Perl文件句柄，或者說(shuō)是程序中用來(lái)代表某Perl文件的代號(hào)，filename為Perl文件名，其路徑可為相對(duì)路徑，亦可為絕對(duì)路徑。

創(chuàng)新互聯(lián)專(zhuān)注于塔河網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供塔河營(yíng)銷(xiāo)型網(wǎng)站建設(shè)，塔河網(wǎng)站制作、塔河網(wǎng)頁(yè)設(shè)計(jì)、塔河網(wǎng)站官網(wǎng)定制、小程序定制開(kāi)發(fā)服務(wù)，打造塔河網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供塔河網(wǎng)站排名全網(wǎng)營(yíng)銷(xiāo)落地服務(wù)。

Perl文件讀寫(xiě)詳細(xì)說(shuō)明

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

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

 
 
 

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

 當(dāng)Perl文件打開(kāi)失敗時(shí)結(jié)束程序：

 
 
 

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

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

二、讀Perl文件

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

三、寫(xiě)Perl文件

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

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

1、Perl文件測(cè)試操作符

語(yǔ)法為：-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"); 
  
  
  
} 
 
 
 

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

五、命令行參數(shù)

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

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

 
 
 

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

將把Perl文件myfile1和myfile2的內(nèi)容打印出來(lái)。

六、打開(kāi)管道

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

 
 
 

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

網(wǎng)頁(yè)名稱(chēng)：Perl文件讀寫(xiě)詳細(xì)說(shuō)明
網(wǎng)站鏈接：http://www.5511xx.com/article/cosoodc.html