Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Sort an array of strings based on two fields

by sundialsvc4 (Abbot)
on Mar 14, 2013 at 13:21 UTC ( #1023475=note: print w/replies, xml ) Need Help??

in reply to Sort an array of strings based on two fields

As perldoc -f sort will tell you, the sort verb in Perl takes a subroutine name or an in-line code block as its argument.   That piece of code is handed two variables named $a and $b corresponding to the two items now being compared, and it must return a value that is less than, equal to, or greater than zero.   Perl provides a special operator, <=>, specifically to assist with this.   Also cmp ... which compares strings.   (Do not get tripped-up by this peculiarity of Perl!)

The || operator is also useful because it is a “short-circuit logical-OR.”   If the expression on the left side is nonzero (“true”), the right side won't be evaluated.   Perfect for chaining comparisons together to sort by more than one field.

For anything but very simple cases, I prefer to define a separate sort-comparison subroutine, because an in-line code block can easily devolve into “chicken scratches.”   The code, however you choose to write it, should be extremely obvious, able to be tested in isolation, and also very easily changed.   It will be executed tens of thousands of times.

  • Comment on Re: Sort an array of strings based on two fields

Replies are listed 'Best First'.
Re^2: Sort an array of strings based on two fields
by Anonymous Monk on Mar 14, 2013 at 14:00 UTC
    As perldoc -f sort will tell you, weak description of it, and stories about how I'm cool like that in the obviousness of my code I say I write but never post on perlmonks

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1023475]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (10)
As of 2018-07-23 15:58 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (472 votes). Check out past polls.