三元产生与If不同的结果

编辑：对于遇到此问题的任何人，我发现在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;
};

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

谢谢！

回答

$ 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)