例如:複製代碼 代碼如下:unless ($fred =~ /^([A-Z_]\w*$/i) { print "The value of \$fred doesn't look like a Perl identifier name. \n";}使用unless意味著,要麼條件為真,要麼執行某塊代碼。這就好像使用if控制結構來判斷相反的條件。另一種說法是它類似於獨立的else子句。也就是說,當看不懂某個unless語句時,可以用如下的if語句來代替:複製代碼 代碼如下:if
1. 一次性將檔案中的所有內容讀入一個數組中(該方法適合小檔案): 複製代碼 代碼如下:open(FILE,"filename")||die"can not open the file: $!";@filelist=<FILE>;foreach $eachline (@filelist) { chomp $eachline;}close FILE;@filelist=<FILE>
1. 尋找已有的模組http://search.cpan.org/2. 輸入XML查詢,選擇評價較高的,且可以滿足自己需求的模組:XML::Simpleuse warnings;use XML::Simple;use Data::Dumper;#將XML檔案轉化為Hash結果複製代碼 代碼如下:my $xml=XMLin('abstract_sample.xml');open(HASH,'>>XML_hash')||die"can not open the file:
從而使得有些字元(尤其是寬字元)無法正確地顯示,即不再是utf-8格式了。解決辦法:開啟輸出檔案時即指定編碼格式,就不會出現輸出檔案開啟以後亂碼的情況了。普通的預設open輸出檔案:複製代碼 代碼如下:open(OUTPUT,'>>output.txt')||die"can not open the file: $!";定義指定編碼格式檔案(或者成為使用Perl建立一個指定編碼格式的檔案):複製代碼 代碼如下:open OUTPUT, ">:encoding(utf-8)",
刪除檔案使用unlinke函數,比如unlink $file, unlink $file1, $file2, $file3開啟檔案使用三參數的形式開啟檔案,這樣非常便於區分模式和檔案名稱,perl 5.6之後的版本都支援這種方式。複製代碼 代碼如下:#Open the 'txt' file for readingopen FH, '<', "$file_name.txt" or die "Error:$!\n";#Open the 'txt' file for writing.