Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re^4: Case where '( shift @_ )[ 0, 0 ]' returns only one value?

by stevieb (Canon)
on Jan 14, 2019 at 22:41 UTC ( [id://1228559]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Case where '( shift @_ )[ 0, 0 ]' returns only one value?
in thread Case where '( shift @_ )[ 0, 0 ]' returns only one value?

I was going to just edit my post after I got my perlbrew available issue sorted (which I did), but this warrants a new post.

In 5.10, it produces the result aa that is expected by OP:

spek@scelia ~/scratch $ perlbrew exec perl -le '@_ = qw( a b c ); @A = + ( shift @_ )[ 0, 0 ]; print @A' perl-5.27.10 ========== aa perl-5.26.1 ========== aa perl-5.20.0 ========== aa perl-5.18.4 ========== a perl-5.10.1 ========== aa

Going full out, and am installing as many versions as I can to see where it "broke", where it "fixed" and where it "broke" again. Help desired.

Update: To further, on Unix, it "works" up to 5.12.5, from my testing so far, then goes awry:

spek@scelia ~/scratch $ perlbrew exec perl -le '@_ = qw( a b c ); @A = + ( shift @_ )[ 0, 0 ]; print @A' perl-5.27.10 ========== aa perl-5.26.1 ========== aa perl-5.20.0 ========== aa perl-5.18.4 ========== a perl-5.16.0 ========== a perl-5.14.4 ========== a perl-5.12.5 ========== aa perl-5.10.1 ========== aa

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (2)
As of 2024-04-25 06:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found