Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Using ternary operator as lvalue in push

by gam3 (Curate)
on Aug 01, 2007 at 14:16 UTC ( [id://630062]=note: print w/replies, xml ) Need Help??


in reply to Using ternary operator as lvalue in push

This problem is due to the prototype of the push function.

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

sub tst_push(\@@) { }
Also note that the code below works, as perl can optimize out the ternary.
push(1 ? @a : @b, 'asdf'); push(1 == 0 ? @a : @b, 'asdf');
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:
sub apush($@) { my $a = shift; push @$a, @_; }
and use
apush($cond>0 ? \@a : \@b, $elem);
But to answer the question you pose: the push @{$x ? \@a : \@b}, $elem; code is portable over all perl versions.
-- gam3
A picture is worth a thousand words, but takes 200K.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://630062]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2024-04-16 10:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found