Почему не работает условный оператор в Perl?

Question

[Leytenant]

Почему код выводит "photo", а не "text"?

my $JSON;
$JSON->{message}->{text} = '111';
my $type; 
$JSON->{message}->{text} ne '' ? $type = 'text' : $type = 'photo';
print $type; # выводит photo

if($JSON->{message}->{text} ne '' ) { $type = 'text'; } else { $type = 'photo';}
print $type; # выводит text

Comments

[wisgest]

А так:

($JSON->{message}->{text} ne '') ? $type = 'text' : $type = 'photo';

?

[Leytenant]

Все равно - photo

[wisgest]

Если ещё взять в скобки альтернативы, то работает, но, в чём дело, не понимаю.

[Oleg]

Условный оператор он как оператор "плюс", вычисляется для присвоения результата. В документации говорится о том что он возвращает, и ни слова про то как он вычисляется. В примере результат не присваивается ничему. Не забываем и про то, что он может выступать в качестве lvalue. Для прикола оставьте скобки только у первой альтернативы и задумайтесь:

Assignment to both a list and a scalar at 11.pl line 4, near "'photo';"
Execution of 11.pl aborted due to compilation errors.

Answer 1

[Oleg]

Потому что тернарный оператор неправильно используется, и сравнение тут лишнее, нужно прим. так:

$type = $JSON->{message}->{text} ? 'text' : 'photo';

Comments

[wisgest]

И всё-таки надо сравнение с пустой строкой (или проверка длины строки). Потому как строка '0'— это тоже ложь (в Raku от этого отказались, а в PHP тупо переняли).