Perl學習筆記之文件操作

         這篇文章主要介紹了Perl學習筆記之文件操作,本文分別給出了打開文件、讀取文件、寫入文件代碼實例,需要的朋友可以參考下

   

         Perl對文件的操作，跟其它的語言類似，無非也就是打開，讀與寫的操作。
1. 打開文件

? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 #! c:/perl/bin/perl -w use utf8; use strict; use warnings;   my $filename = 'test.txt'; # 或者用絕對路徑,如: c:/perl/Learn/test.txt   if(open(MYFILE,$filename)) # MYFILE是一個標志 { printf "Can open this file:%s!", $filename; close(MYFILE); } else{ print "Can't open this file!"; }

2. 讀取文件

? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 #! c:/perl/bin/perl -w use utf8; use strict; use warnings;   my $filename = 'test.txt'; if(open(MYFILE,$filename)) { my @myfile = <MYFILE>; #如果要讀取多行，用此方法，如果只讀取一行為:$myfile = <>; my $count = 0; #要讀取的行數，初始值為0 printf "I have opened this file: %sn", $filename; while($count < @myfile){ #遍歷 print ("$myfile[$count]n"); #注意此種寫法. $count++; } close(MYFILE); } else{ print "I can't open this file!"; } exit;

        3. 寫入文件

? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #! c:/perl/bin/perl -w use utf8; use strict; use warnings;   my $filename = 'test.txt';   if(open(MYFILE,">>".$filename)) #此種寫發，添加不刪除 { #此種寫法，重寫文件內容 MYFILE,">".$filename print MYFILE "Write File appending Testn"; close(MYFILE); } else{ print "I can't open this file!"; } exit;