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 官宣新年祝福语简短