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 升学祝福语简短100个
11 爱心大叔生日祝福语简短
12 写给宝宝新年祝福语简短
13 艾伦老师祝福语简短
14 节日结束祝福语简短的
15 交个朋友蛋糕祝福语简短
16 经典座右铭简短祝福语英文
17 爸爸生日简单祝福语简短
18 写给老板祝福语简短高级