Perl學習筆記之文件操作

這篇文章主要介紹了Perl學習筆記之文件操作,本文分別給出了打開文件、讀取文件、寫入文件代碼實例,需要的朋友可以參考下

Perl對文件的操作，跟其它的語言類似，無非也就是打開，讀與寫的操作。
1. 打開文件

#! c:/perl/bin/perl -w 
use utf8; 
use strict; 
use warnings; 
 
my $filename = 'test.txt'; # 或者用絕對路徑,如: c:/perl/Learn/test.txt 
 
if(open(MYFILE,$filename)) # MYFILE是一個標誌 
{ 
 printf "Can open this file:%s!", $filename;  
 close(MYFILE); 
} 
else{ 
 print "Can't open this file!"; 
} 

2. 讀取文件

#! c:/perl/bin/perl -w 
use utf8; 
use strict; 
use warnings; 
 
my $filename = 'test.txt';  
if(open(MYFILE,$filename)) 
{ 
 my @myfile = <MYFILE>;  #如果要讀取多行，用此方法，如果只讀取一行爲:$myfile = <>; 
 my $count = 0;     #要讀取的行數，初始值爲0     
 printf "I have opened this file: %s\n", $filename; 
 while($count < @myfile){ #遍歷 
  print ("$myfile[$count]\n"); #注意此種寫法. 
  $count++; 
 } 
 close(MYFILE); 
} 
else{ 
 print "I can't open this file!"; 
} 
exit; 

3. 寫入文件

#! c:/perl/bin/perl -w 
use utf8; 
use strict; 
use warnings; 
 
my $filename = 'test.txt';  
 
if(open(MYFILE,">>".$filename))  #此種寫發，添加不刪除 
{                 #此種寫法，重寫文件內容 MYFILE,">".$filename 
 print MYFILE "Write File appending Test\n"; 
 close(MYFILE); 
} 
else{ 
 print "I can't open this file!"; 
} 
exit;