Perl對(duì)文件的操作，跟其它的語(yǔ)言類(lèi)似，無(wú)非也就是打開(kāi)，讀與寫(xiě)的操作。
1. 打開(kāi)文件
#! 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"); #注意此種寫(xiě)法.
$count++;
}
close(MYFILE);
}
else{
print "I can't open this file!";
}
exit;
3. 寫(xiě)入文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;
my $filename = 'test.txt';
if(open(MYFILE,">>".$filename)) #此種寫(xiě)發(fā)，添加不刪除
{ #此種寫(xiě)法，重寫(xiě)文件內(nèi)容 MYFILE,">".$filename
print MYFILE "Write File appending Test\n";
close(MYFILE);
}
else{
print "I can't open this file!";
}
exit;
標(biāo)簽：淮安 周口 周口 綿陽(yáng) 綏化 百色 秦皇島 合肥
巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《Perl學(xué)習(xí)筆記之文件操作》，本文關(guān)鍵詞 Perl,學(xué)習(xí),筆記,之,文件,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
