三項演算子の挙動についてお教えください

Question

use strict;
use warnings;

my %hash = ('1'=>10, '3'=>9, '5'=>8, '7'=>7, '9'=>6);
my ($one, $other) = (0, 0);

for my $k (sort { $b cmp $a } keys %hash) {
    ($k ne '1') ? $other += $hash{$k} : $one = $hash{$k};
}

print $one, " と ", $other;

上記のようなコードの時、
感覚的には、「１０と３０」のように表示してほしいのですが、
どうしてか、「１０と９」と表示されます。

#($k ne '1') ? $other += $hash{$k} : $one = $hash{$k};
if ($k ne '1') {
    $other += $hash{$k};
} else {
    $one = $hash{$k};
}

三項演算子の部分を、上記のように変更すると期待通りの結果が表示されるのですが、
今ひとつ理解に苦しんでいます・・・

初歩的な質問ですが、三項演算子でなぜ「１０と３０」とならないのかお教えください。
perlのバージョンは、5.18.2です。
よろしくお願いします。

Answer 1

こうすれば上手くいくと思います。(v5.18.2で確認)

($k ne '1') ? ( $other += $hash{$k} ) : ( $one = $hash{$k} );

うまく説明できないのですが、Perlの場合は「コンテキスト」（文脈）と演算子の優先順位の関係でこうなるようです。
詳しくは、下記リンク先の条件演算子の項を参照してください。

参考リンク：
perlop - Perl の演算子と優先順位 - perldoc.jp

Comments

[circus55]

教えていただいたリンク先のページで、どう式の解釈がされるのか理解しました。
ありがとうございました

Answer 2

うーんこれはPerl関係ないかと思います。
PHPでもJavascriptでも考え方は同じです。

A ? B : C

上記三項演算子は、「Aが正（成立する）ならばBを実行、偽（成立しない）ならばCを実行」となります。
これをif文にすると、
if (A) {
B
} else {
C
}
となります。

…と、ここまでこれば大体お分かりかと思いますが、三項演算子とIF構文でCの式が違うために得られる結果が違うのではないでしょうか。

Comments

[circus55]

すみません、質問のコードの変数名が間違っていました・・・
修正しました。

三項演算子でもif分でも、Cの式は同じ式なのに結果が違うのです・・・
三項演算子の場合とif文の場合、式が変わってしまうのでしょうか？
その場合、どのような式で解釈されてしまうのでしょうか・・・？

[yu-ri]

おお…そうでしたか（汗
既に回答が出ておりますが、Perlは演算子の優先順位についてちょっと毛色が違うようですね。私も勉強になりました。

[circus55]

確認が足らず、いらぬ混乱を出しました、すみませんでした
ありがとうございました