perl讀寫檔案代碼執行個體

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;