由Perl程序啟動的所有進程都可以繼承Perl程序的工作目錄，但是對于啟動perl的進程，其工作目錄不會隨著perl工作目錄的變化而改變，下面就讓武林技術頻道小編帶你一起來學習Perl之文件操作的方法。
1. 打開文件
#! 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. 讀取文件
#! 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: %s/n", $filename; while($count < @myfile){ #遍歷 print ("$myfile[$count]/n"); #注意此種寫法. $count++; } close(MYFILE); } else{ print "I can't open this file!"; } exit; 3. 寫入文件
#! 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 Test/n"; close(MYFILE); } else{ print "I can't open this file!"; } exit; 上述是武林技術頻道和大家分享的關于Perl之文件操作的方法，希望對想要了解這方面信息的人有所幫助，感謝大家繼續支持武林技術頻道！
新聞熱點
疑難解答
圖片精選
