Perl學習筆記之文件操作
發(fā)布日期：2021-12-31 15:07 | 文章來源：腳本之家
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; #要讀取的行數(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;
版權(quán)聲明：本站文章來源標注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請保持原文完整并注明來源及原文鏈接。禁止復制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務器上建立鏡像，否則將依法追究法律責任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學習參考，不代表本站立場，如有內(nèi)容涉嫌侵權(quán)，請聯(lián)系alex-e#qq.com處理。
相關(guān)文章
關(guān)注官方微信