| 标题 | 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; |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。