Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Sorted tied hash wierdness

by Chmrr (Vicar)
on Nov 18, 2003 at 23:49 UTC ( #308189=note: print w/replies, xml ) Need Help??

in reply to Sorted tied hash wierdness

You're getting too reference-happy. $_->[0] isn't the same as $_[0] -- the former treats $_ as an array ref, and takes the 0th element of that, while the second takes the 0th element of the @_ array. In this case, it's the latter you want. Change sub { $_->[0] <=> $_->[1] } to sub { $_[0] <=> $_[1] } and you'll have more luck.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

Replies are listed 'Best First'.
Re: Re: Sorted tied hash wierdness
by genecutl (Beadle) on Nov 19, 2003 at 00:01 UTC
    You're absolutely right. Don't you hate it when you waste time on something that should be completely obvious? Thanks!

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2021-04-10 14:20 GMT
Find Nodes?
    Voting Booth?

    No recent polls found