學(xué)習(xí)perl的unless控制結(jié)構(gòu)
更新時(shí)間:2013年02月05日 12:01:45 作者:
在perl的if控制結(jié)構(gòu)中,只有當(dāng)條件表達(dá)式為真時(shí)才執(zhí)行某塊代碼。如果想讓程序塊在條件為假時(shí)才執(zhí)行,此時(shí)可以把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)來判斷相反的條件。另一種說法是它類似于獨(dú)立的else子句。也就是說,當(dāng)看不懂某個(gè)unless語(yǔ)句時(shí),可以用如下的if語(yǔ)句來代替:
復(fù)制代碼 代碼如下:
if ($fred =~ /^([A-Z_]\w*$/i) {
//什么都不做
} else {
print "The value of \$fred doesn't look like a Perl identifier name. \n";
}
如此操作與運(yùn)行效率高低無(wú)關(guān),兩種寫法應(yīng)該會(huì)被統(tǒng)譯成相同的內(nèi)部字節(jié)碼。另外一個(gè)改寫的方法,就是以取反操作符!來否定條件:
復(fù)制代碼 代碼如下:
if ( ! ($fred =~ /^([A-Z_]\w*$/i) ) {
print "The value of \$fred doesn't look like a Perl identifier name. \n";
}
通常應(yīng)該選擇最容易理解的方法來寫代碼,因?yàn)檫@通常對(duì)于維護(hù)程序員來說也是最容易理解的。如果用if來表達(dá)最合適,那么就這么寫也行。但是更多的情況下使用unless能使你的表達(dá)更加自然。
unless附帶的else子句
其實(shí)哪怕是在unless結(jié)構(gòu)中也可以使用else語(yǔ)句,雖然支持這樣的語(yǔ)法,但是可能會(huì)導(dǎo)致困惑:
復(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語(yǔ)句我們可以寫成這樣:
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)文章
Windows10下安裝配置 perl 環(huán)境的詳細(xì)教程
Perl 最重要的特性是Perl內(nèi)部集成了正則表達(dá)式的功能,以及巨大的第三方代碼庫(kù)CPAN。這篇文章主要介紹了Windows10下安裝配置 perl 環(huán)境的詳細(xì)教程,需要的朋友可以參考下2020-12-12perl產(chǎn)生隨機(jī)數(shù)實(shí)現(xiàn)代碼
Perl利用函數(shù)rand()和srand()為隨機(jī)數(shù)(更確切的說是“偽隨機(jī)數(shù)”)字符串的生成提供了基本的工具2013-02-02Perl中的10個(gè)操作日期和時(shí)間的CPAN模塊介紹
這篇文章主要介紹了Perl中的10個(gè)操作日期和時(shí)間的CPAN模塊介紹,本文介紹了Date::Manip、DateTime、Time::Format、Time::Interval、Date::Convert、Benchmark、Time::Normalize、Regexp::Common::time等10個(gè)模塊,需要的朋友可以參考下2015-02-02