學習perl的unless控制結(jié)構(gòu)
更新時間：2013年02月05日 12:01:45 作者：
在perl的if控制結(jié)構(gòu)中，只有當條件表達式為真時才執(zhí)行某塊代碼。如果想讓程序塊在條件為假時才執(zhí)行，此時可以把if改成unless
例如：
復(fù)制代碼 代碼如下:
unless ($fred =~ /^([A-Z_]\w*$/i) {
print "The value of \$fred doesn't look like a Perl identifier name. \n";
}
使用unless意味著，要么條件為真，要么執(zhí)行某塊代碼。這就好像使用if控制結(jié)構(gòu)來判斷相反的條件。另一種說法是它類似于獨立的else子句。也就是說，當看不懂某個unless語句時，可以用如下的if語句來代替：
復(fù)制代碼 代碼如下:
if ($fred =~ /^([A-Z_]\w*$/i) {
//什么都不做
} else {
print "The value of \$fred doesn't look like a Perl identifier name. \n";
}
如此操作與運行效率高低無關(guān)，兩種寫法應(yīng)該會被統(tǒng)譯成相同的內(nèi)部字節(jié)碼。另外一個改寫的方法，就是以取反操作符!來否定條件：
復(fù)制代碼 代碼如下:
if ( ! ($fred =~ /^([A-Z_]\w*$/i) ) {
print "The value of \$fred doesn't look like a Perl identifier name. \n";
}
通常應(yīng)該選擇最容易理解的方法來寫代碼，因為這通常對于維護程序員來說也是最容易理解的。如果用if來表達最合適，那么就這么寫也行。但是更多的情況下使用unless能使你的表達更加自然。
unless附帶的else子句
其實哪怕是在unless結(jié)構(gòu)中也可以使用else語句，雖然支持這樣的語法，但是可能會導致困惑：
復(fù)制代碼 代碼如下:
#!/usr/bin/perl -w
unless ($mon =~ /^Feb/) {
print "This month has at least thirty days.\n";
} lese {
print "Do you see what's going on here?\n";
}
#如果用if語句我們可以寫成這樣：
if ($mon =~ /^Feb/) {
print "Do you see what's going on here?\n";
} else {
print "This month has at least thirty days.\n";
}
相關(guān)文章
Perl實現(xiàn)刪除Windows下的圖片緩存縮略圖Thumbs.db
這篇文章主要介紹了Perl實現(xiàn)刪除Windows下的圖片緩存縮略圖Thumbs.db,本文實現(xiàn)了批量刪除Thumbs.db文件,需要的朋友可以參考下2014-12-12
perl的logwrapper可以對任何的函數(shù)將標準輸出和錯誤輸出重定向到對應(yīng)的log文件2013-02-02
這篇文章主要介紹了Perl中的文件讀寫學習筆記,本文講解了打開、關(guān)閉文件、讀文件、寫文件、判斷文件狀態(tài)等內(nèi)容,需要的朋友可以參考下2015-02-02
這篇文章主要介紹了perl讀寫文件代碼實例,本文直接給出實現(xiàn)代碼,需要的朋友可以參考下2015-05-05
在perl中用{}修飾變量名，可以防止 _ 被解釋為變量名的一部分2013-02-02
有關(guān)perl文件操作的一些例子，供大家學習參考2013-02-02
如果要對使用的lib指定路徑，可以使用下面的語法2013-02-02
這篇文章主要介紹了Perl批量下載Gmail附件的代碼,本文重點在使用Mail::POP3Client模塊和Gmail通信的方法,需要的朋友可以參考下2014-06-06
處理生物數(shù)據(jù)時，常常需要行列置換，這在R里面異常的簡單容易，一個t()就解決了2013-02-02
這篇文章主要介紹了Perl中的10個操作日期和時間的CPAN模塊介紹,本文介紹了Date::Manip、DateTime、Time::Format、Time::Interval、Date::Convert、Benchmark、Time::Normalize、Regexp::Common::time等10個模塊,需要的朋友可以參考下2015-02-02