in reply to Using ternary operator as lvalue in push
The prototype for push is \@@ and this means that perl needs to check that the first argument to push is an array.
You can make your own function that will give the same errors with
Also note that the code below works, as perl can optimize out the ternary.sub tst_push(\@@) { }
The code above make it pretty clear to me that precedence is not the problem. If you don't like the push(@{$x ? \@a : \@b}.. syntax you could do this:push(1 ? @a : @b, 'asdf'); push(1 == 0 ? @a : @b, 'asdf');
and usesub apush($@) { my $a = shift; push @$a, @_; }
But to answer the question you pose: the push @{$x ? \@a : \@b}, $elem; code is portable over all perl versions.apush($cond>0 ? \@a : \@b, $elem);
|
|---|