| 标题 | perl读写文件代码实例 |
| 范文 | 这篇文章主要介绍了perl读写文件代码实例,本文直接给出实现代码,需要的朋友可以参考下 #mode operand create truncate #read < #write > yes yes #append >> yes Case 1: Throw an exception if you cannot open the file: 代码如下: use strict; use warnings; my $filename = 'data.txt'; open(my $fh, '<:encoding(UTF-8)', $filename) or die "Could not open file '$filename' with the error $!"; while (my $row = <$fh>) { chomp $row; print "$row\n"; } close($fh); Case 2: Give a warning if you cannot open the file, but keep running: 代码如下: use strict; use warnings; 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 "Could not open file '$filename' $!"; } Case 3: Read one file into array 代码如下: use strict; use warnings; my $filename = 'data.txt'; open (FILEIN, "<", $filename) or die "Could not open file '$filename' with the error $!"; my @FileContents = ; for my $l (@FileContents){ print "$l\n"; } close FILEIN; |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。