學習perl的unless控制結構

2020-10-31 15:19:57

字體：大中小

來源：轉載

供稿：網友

例如：

復制代碼代碼如下:

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 ($fred =~ /^([A-Z_]/w*$/i) {
  //什么都不做
} else {
   print "The value of /$fred doesn't look like a Perl identifier name. /n";
}

如此操作與運行效率高低無關，兩種寫法應該會被統譯成相同的內部字節碼。另外一個改寫的方法，就是以取反操作符!來否定條件：

復制代碼代碼如下:

if ( ! ($fred =~ /^([A-Z_]/w*$/i) ) {
  print "The value of /$fred doesn't look like a Perl identifier name. /n";
}

通常應該選擇最容易理解的方法來寫代碼，因為這通常對于維護程序員來說也是最容易理解的。如果用if來表達最合適，那么就這么寫也行。但是更多的情況下使用unless能使你的表達更加自然。

unless附帶的else子句

其實哪怕是在unless結構中也可以使用else語句，雖然支持這樣的語法，但是可能會導致困惑：

復制代碼代碼如下:

#!/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";
}