????：Perl對(duì)文件的操作，跟其它的語(yǔ)言類似，無(wú)非也就是打開，讀與寫的操作。1. 打開文件#! c:/perl/bin/perl -w use utf8; use strict; use warnings;   my $filename = 'test.txt'; # 

Perl對(duì)文件的操作，跟其它的語(yǔ)言類似，無(wú)非也就是打開，讀與寫的操作。
1. 打開文件

#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;  
my $filename = 'test.txt'; # 或者用絕對(duì)路徑,如: c:/perl/Learn/test.txt  
if(open(MYFILE,$filename)) # MYFILE是一個(gè)標(biāo)志
{
 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;     #要讀取的行數(shù)，初始值為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))  #此種寫發(fā)，添加不刪除
{                 #此種寫法，重寫文件內(nèi)容 MYFILE,">".$filename
 print MYFILE "Write File appending Test\n";
 close(MYFILE);
}
else{
 print "I can't open this file!";
}
exit;

更多關(guān)于Perl學(xué)習(xí)筆記之文件操作請(qǐng)關(guān)注PHP中文網(wǎng)（ipnx.cn）其他文章！