Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: How to sort output?

by quester (Vicar)
on Jul 22, 2007 at 07:00 UTC ( #628089=note: print w/ replies, xml ) Need Help??

in reply to How to sort output?

Try replacing your calculation of @sorted with a Schwartzian Transform, something like this:

my @sorted= map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [$_, ( / (\d*\.\d*) ms/ and $1 or 0 ) ] } @data;
The part of the "expensive function" in merlyn's note is played by
/ (\d*\.\d*) ms/ and $1 or 0
which just returns the first (and in this case only) thing that looks like a ping time in the current string. (Update: I should mention the "or 0" is to make sure any lines with no valid ping time sort to the bottom.)

IMPORTANT NOTE: GrandFather++ is right about my absent-mindedly using "cmp" instead of "<=>". It should have been

my @sorted= map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [$_, ( / (\d*\.\d*) ms/ and $1 or 0 ) ] } @data;

Comment on Re: How to sort output?
Select or Download Code
Re^2: How to sort output?
by GrandFather (Cardinal) on Jul 22, 2007 at 07:05 UTC

    It's a numeric sort so the spaceship (<=>) is appropriate rather than the string cmp operator. Consider how '2', '100' and '11' sort for example.

    DWIM is Perl's answer to Gödel
      Thanks, I've put that into play (with the suggested <=> replacement), and it seems to be working great!

      Thanks to everybody who responded!


Log In?

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (2)
As of 2014-10-25 03:37 GMT
Find Nodes?
    Voting Booth?

    For retirement, I am banking on:

    Results (141 votes), past polls