Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: A "strange" behaviour, at least to me :)

by NetWallah (Abbot)
on Apr 13, 2013 at 17:28 UTC ( #1028538=note: print w/ replies, xml ) Need Help??

in reply to A "strange" behaviour, at least to me :)

Perl is mis-parsing the line :
# 2 @values = sort arraynosort(Values=>\@orig_values);
@values = (sort arraynosort 'Values', \@orig_values);
and using the "arraynosort" as a Sort sub.

Adding parens fixes it:

@values = sort (arraynosort(Values=>\@orig_values));
An alternative fix is to give "sort" an empty "block", because it wants one:
@values = sort {},arraynosort(Values=>\@orig_values);

             "I'm fairly sure if they took porn off the Internet, there'd only be one website left, and it'd be called 'Bring Back the Porn!'"
        -- Dr. Cox, Scrubs

Comment on Re: A "strange" behaviour, at least to me :)
Select or Download Code
Replies are listed 'Best First'.
Re^2: A "strange" behaviour, at least to me :)
by ikegami (Pope) on Apr 13, 2013 at 17:36 UTC
    @values = sort {},arraynosort(Values=>\@orig_values);
    passes a hash ref to sort. You meant
    @values = sort { $a cmp $b } arraynosort(Values=>\@orig_values);

    By the way, the least invasive solution is:

    @values = sort +arraynosort(Values=>\@orig_values);

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2016-04-30 22:44 GMT
Find Nodes?
    Voting Booth?
    :nehw tseb si esrever ni gnitirW

    Results (441 votes). Check out past polls.