Question

我有一个我想测试的值（$ field）。阅读perl doc（http://perldoc.perl.org/Switch.html#Allowing-fall-through），并认为我已将其钉入。似乎没有，因为如果我通过'Exposure Bias'，就没有输出，尽管'Exposure Bias Value'可以正常工作。它没有错误，所以我没有任何线索。

use Switch;
use strict; use warnings;

my $field = 'Exposure Bias';

switch($field){
    case 'Exposure Bias' {next;}
    case 'Exposure Bias Value' {print "Exp: $field\n";}
}

更新

我假设看起来错了。如果匹配任何一种情况，我想用这个开关做的是打印运行。我认为接下来会将控制权交给下一个案例的代码，但那是我的错误。

我如何对此进行编码，以便在第一种情况匹配时第二种情况下的代码运行？

工作解决方案

given($field){
    when(['Exposure Bias','Exposure Bias Value']){print "Exp: $field\n";}
}

Answer 1

DVK关于你的开关没有按预期工作的原因的评论是正确的，但是他忽略了提供一种更好，更安全的方式来实现你的开关。

Switch是使用source filters和has been deprecated构建的，最好避免使用。如果您使用的是Perl 5.10或更高版本，请使用given和when来构建您的switch语句：

use strict;
use warnings;

use feature qw(switch);

my $field = 'Exposure Bias';

given($field) {
    when ([ 
        'Exposure Bias', 
        'Exposure Bias Value',
    ]) {
        print 'Exp: ' . $field . "\n"; 
    }
}

有关详细信息，请参阅perlsyn。

Answer 2

切换值'Exposure Bias'不等于第二种情况的值（两者都是字符串，字符串相等根据POD开头的表使用）。

因此，当跌落导致开关转到第二种情况时;它根本无法匹配。由于没有更多的案例，它会退出。

为了说明，如果你运行它，这段代码将打印输出Second case for bias：

use Switch;
use strict; use warnings;

my $field = 'Exposure Bias';

switch($field){
    case 'Exposure Bias' {next;}
    case 'Exposure Bias Value' {print 'Exp: ' . $field . "\n";}
    case /Exposure Bias/ { print "Second case for bias\n";} # RegExp match
}

它开始像你的代码一样工作（第一个匹配，next导致第二个匹配，第二个不匹配）并且因为有第三个案例，并且它匹配，那个是块被执行。

我不完全确定你希望第二种情况如何匹配（例如，在“曝光偏差值”与“曝光偏差”值相匹配的逻辑下） - 唯一想到的是你想要的“场” “充当正则表达式，每个case值都是与该正则表达式匹配的字符串。如果是这样，你需要按如下方式编写它，使用一个开关值可以作为子程序引用的事实（不幸的是，它不能是一个正则表达式，尽管如上所示，情况可以如此）：

use Switch;
use strict; use warnings;

my $field = sub { return $_[0] =~ /Exposure Bias/ };

switch($field){
    case 'Exposure Bias' {next;}
    case 'Exposure Bias Value' {print "Exp\n";}
}

后者产生Exp输出。

<强>更新

根据问题中的更新信息，最简单的方法是在第二种情况下将两个字符串指定为arrayref：

use Switch;
use strict; use warnings;

my $field = "Exposure Bias";

switch($field){
    case 'Exposure Bias' { print "First match\n"; next;}
    case ['Exposure Bias Value', 'Exposure Bias'] {print "Exp: $field\n";}
}

$ perl ~/a.pl
First match
Exp: Exposure Bias

最好抽象出价值，当然：

use Switch;
use strict; use warnings;

my $field = "Exposure Bias";
my $exp_bias = 'Exposure Bias';

switch($field){
    case "$exp_bias" { print "First match\n"; next;}
    case ['Exposure Bias Value', "$exp_bias" ] {print "Exp: $field\n";}
}

Perl开关没有正常掉落？

2 个答案: