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