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
热门推荐
7 简短的二胎祝福语
10 简短霸气女儿生日 祝福语
11 祝福语高考小众诗句简短
12 元旦祝福语20秒简短
13 老师过年祝福语大全 简短
14 一生祝福语简短
15 产检祝福语简短霸气
16 朋友店开张祝福语简短
17 生日爱情祝福语大全简短
18 朋友女儿生日祝福语 简短