perl如何实现case条件判断？

ilovemilk

就像shell中的
case "$1" in
    aa)
     ;;
    bb)
     ;;
esac

tandkzy

没有该结构。你可以用if来代。

正 愚

在5.10下好像有ginen-when这样的结构

badstd

use strict;
use warnings;
my $aa=2;
&{{1=>sub{print "ok"},
  2=>sub{print "NO"}->{$aa}}

badstd

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 (\%hash)   { print "entry in hash" }
            case (\&sub)    { print "arg to subroutine" }
            else            { print "previous case not true" }
        }