Question

foreach my $f($query->param) {
    foreach my $v($query->param($f)) {
        switch($f) {
            case 'a' {
                switch($v) {
                    case 1 { code1; }
                    case 2 { code2; }
                    case 3 { code3; }
                }

            case 'b' {
                switch($v) {
                    case 1 { code4; }
                    case 2 { code5; }
                }

            case 'c' {
                switch($v) {
                    case 1 { code6; }
                    case 2 { code7; }
                    case 3 { code8; }
                    case 4 { code9; }
                }
            }
        }
    }
}

Answer 1

最重要的是......不要使用Switch.pm。如果您使用的是Perl 5.10或更高版本，则给定/ when是本机切换语句。

调度表是您寻求的解决方案。 http://www.perlmonks.org/?node_id=587072描述了调度表，这是一种基于与散列键匹配的值通过散列执行代码的技术。

编辑，示例：

my %dispatch_table = (
    'a' => {
        '1' => sub { code1; },
        '2' => sub { code2; },
        '3' => sub { code3; },
    'b' => {
        '1' => \&some_sub,
        '2' => sub { code4; },
    }
)

if ( exists( $dispatch_table{$f} ) and exists( $dispatch_table{$f}{$v} ) ) {
    $dispatch_table{$f}{$v}->();
}
else {
    # some default
}

Answer 2

将其放入“调度表”中：

my %code = (
    a => {
        1 => sub { code1 },
        2 => sub { code2 },
        3 => sub { code3 },
    },
    b => {
        1 => sub { code4 },
        2 => sub { code5 },
    },
    c => {
        1 => sub { code6 },
        2 => sub { code7 },
        3 => sub { code8 },
        4 => sub { code9 },
    },
);

然后，一旦你有了$ f和$ v，就调用正确的子程序：

$code{$f}{$v}->();

Answer 3

根据“简化”的含义，您可能会考虑这样的事情（如果您确定$ f和$ v都不能包含','）：

foreach my $f ($query->param) {
    foreach my $v ($query->param($f)) {
        switch ("$f,$v") {
            case "a,1" { code; }
            case "a,2" { code; }
            case "a,3" { code; }

            case "b,1" { code; }
            case "b,2" { code; }

            case "c,1" { code; }
            case "c,2" { code; }
            case "c,3" { code; }
            case "c,4" { code; }
        }
    }   
}

（我假设所有出现的code;实际上都不同。）

这个perl代码可以简化吗？

3 个答案: