Perl三元错误地输入“else”条款？

我有以下代码：

# List of tests
my $tests = [("system_test_builtins_sin","system_test_builtins_cos","system_test_builtins_tan")];

# Provide overrides for certain variables that may be needed because of special cases
# For example,cos must be executed 100 times and sin only 5 times.
my %testOverrides = (
    system_test_builtins_sin => {
        reps => 5,},system_test_builtins_cos => {
        reps => 100,);

my %testDefaults = (
    system_test_reps => 10,);

# Execute a system tests
foreach my $testName (@$tests)
{
    print "Executing $testName\n";
    my $reps;

    if (exists $testOverrides{$testName}{reps})
        { $reps = $testOverrides{$testName}{reps}; }
    else
        { $reps = $testDefaults{system_test_reps}; }
    print "After long if: $reps\n";
    exists $testOverrides{$testName}{reps} ? $reps = $testOverrides{$testName}{reps} : $reps = $testDefaults{system_test_reps};
    print "After first ternary: $reps\n";
    exists $testOverrides{$testName}{reps} ? $reps = $testOverrides{$testName}{reps} : print "Override not found.\n";
    print "After second ternary: $reps\n";
}

这给出了以下输出：

Executing system_test_builtins_sin
After long if: 5
After first ternary: 10
After second ternary: 5
Executing system_test_builtins_cos
After long if: 100
After first ternary: 10
After second ternary: 100
Executing system_test_builtins_tan
After long if: 10
After first ternary: 10
Override not found.
After second ternary: 10

这个输出是最意想不到的！我不明白为什么第一个三元似乎总是在执行“if false”条款.它总是赋值为10.我也尝试将“false”子句改为$reps = 6,我看到它总是得到值6.为什么三元的逻辑取决于第三个的内容(如果虚假)条款？

解决方法

这是一个更简单的脚本来说明问题：

#!/usr/bin/perl

use strict;
use warnings;

my $x;

1 ? $x = 1 : $x = 0;
print "Without parentheses,\$x = $x\n";

1 ? ($x = 1) : ($x = 0);
print "With parentheses,\$x = $x\n";

它产生这个输出：

Without parentheses,$x = 0
With parentheses,$x = 1

我不确定赋值和？：之间的关系可以通过运算符优先级来完整解释. (例如,我相信在某些情况下C和C的行为会有所不同.)

运行perldoc perlop并搜索“条件运算符”,或查看here;它涵盖了这个确切的问题(比我在这里更简洁).

在任何情况下,我认为使用if / else语句比使用？：运算符更清晰.或者,既然“true”和“false”分支都分配给同一个变量,更好地使用？：将改变这个：

exists $testOverrides{$testName}{reps}
    ? $reps = $testOverrides{$testName}{reps}
    : $reps = $testDefaults{system_test_reps};

对此：

$reps = ( exists $testOverrides{$testName}{reps}
          ? testOverrides{$testName}{reps}
          : $testDefaults{system_test_reps} );

但同样,我必须包裹线以避免滚动这一事实很好地表明if / else会更清晰.

您可能还会考虑使用//运算符,除非您遇到不支持它的古老版本的Perl. (它是由Perl 5.10引入的.)它也被称为“定义或”运算符.这个：

$x // $y

相当于

defined($x) ? $x : $y

所以你可以写：

$reps = $testOverrides{$testName}{reps} // $testDefaults{system_test_reps};

这没有完全相同的语义,因为它使用defined而不是exists来测试表达式;如果$testOverrides {$testName} {reps}存在但值为undef,它的行为会有所不同.

原文链接：https://www.f2er.com/Perl/171860.html

Perl三元错误地输入“else”条款？

解决方法

猜你在找的Perl相关文章