perl读写文件代码实例
#modeoperandcreatetruncate
#read <
#write > yesyes
#append >>yes
Case1:Throwanexceptionifyoucannotopenthefile:
usestrict;
usewarnings;
my$filename='data.txt';
open(my$fh,'<:encoding(UTF-8)',$filename)
ordie"Couldnotopenfile'$filename'withtheerror$!";
while(my$row=<$fh>){
chomp$row;
print"$row\n";
}
close($fh);
Case2:Giveawarningifyoucannotopenthefile,butkeeprunning:
usestrict;
usewarnings;
my$filename='data.txt';
if(open(my$fh,'<:encoding(UTF-8)',$filename)){
while(my$row=<$fh>){
chomp$row;
print"$row\n";
}
close($fh);
}else{
warn"Couldnotopenfile'$filename'$!";
}
Case3:Readonefileintoarray
usestrict;
usewarnings;
my$filename='data.txt';
open(FILEIN,"<",$filename)
ordie"Couldnotopenfile'$filename'withtheerror$!";
my@FileContents=<FILEIN>;
formy$l(@FileContents){
print"$l\n";
}
closeFILEIN;
end
热门推荐
10 八一幼儿祝福语大全简短
11 公司乔迁食堂祝福语简短
12 婚礼结束聚餐祝福语简短
13 儿媳买车妈妈祝福语简短
14 毕业送礼老师祝福语简短
15 同事辞职正常祝福语简短
16 恭贺新婚文案祝福语简短
17 金店立秋祝福语简短英文
18 婆婆高寿祝福语大全简短