Perl使用技巧7：模塊Switch

arche77

眾所周知，Perl5中沒有 switch case語句，寫一大堆if還是很痛苦的。高版本中支持given when函數(shù)，不過這單詞太蹩腳了吧。

我們還是找一個(gè)Switch模塊吧。

use Switch;

switch ($val) {
    case 1          { print "number 1" }
    case "a"        { print "string a" }
    case [1..10,42] { print "number in list" }
    case (\@array)  { print "number in list" }
    case /\w+/      { print "pattern" }
    case qr/\w+/    { print "pattern" }
    case (\%hash)   { print "entry in hash" }
    case (\&sub)    { print "arg to subroutine" }
    else            { print "previous case not true" }
}

文檔上關(guān)于用法說的太清晰了，這里就不一一解釋了。

根據(jù)我的測試，這個(gè)模塊不可以只寫在pub.pm中，而是那個(gè)perl用必須再引入一遍。