perl - 三元产生与 If 不同的结果

Question

这个问题在这里已经有了答案:





Assigning using ternary operator?

(7 个回答)


8 个月前关闭。




编辑:对于遇到此问题的任何人，我发现在 https://perldoc.perl.org/perlop#Conditional-Operator 的 perldoc 中几乎是逐字记录的。
在编写一个简单的子程序时，我发现我使用三元运算符不断得到错误的结果，但使用更简单的 if 语句得到正确的结果。我确定有一个解释，但我只是没有看到它。
当输入以下输入时:

my @input = (4, 5, 7, 8, 1, 2, 3, 0);
sum_square_even_root_odd(\@input);

结果应该是 91.61。
以下(使用三元)结果为 175.61。

sub sum_square_even_root_odd {
    my ($nums) = @_;
    my $sum = 0;
    map { $_ % 2 ? $sum+= sqrt $_ : $sum += $_ ** 2 } @{$nums};
    return sprintf('%.2f', $sum) + 0;
};

但是，结果是简单地更改为 if 语句时的预期结果

sub sum_square_even_root_odd {
    my ($nums) = @_;
    my $sum = 0;
    map { if( $_ % 2 ) { $sum+= sqrt $_ } else { $sum += $_ ** 2 } } @{$nums};
    return sprintf('%.2f', $sum) + 0;
};

有人可以解释为什么会这样吗？我假设一个我不期望的值正在偷偷进入 $_，但我不确定为什么。
谢谢!

Answer 1

事实上，这是一个优先级问题。诊断优先级问题的方法是使用 B::Deparse :

$ perl -MO=Deparse,-p -e 'map { $_ % 2 ? $sum+= sqrt $_ : $sum += $_ ** 2 } @ARGV'
map({((($_ % 2) ? ($sum += sqrt($_)) : $sum) += ($_ ** 2));} @ARGV);
-e syntax OK

啊哈， :具有比 += 更高的优先级在它的右边。要做到您的意思，请在三元运算的最后一个子句上使用括号:

$_ % 2 ? $sum+= sqrt $_ : ($sum += $_ ** 2)