Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: sorting ip octets

by Tanktalus (Canon)
on Feb 16, 2005 at 18:59 UTC ( #431680=note: print w/replies, xml ) Need Help??

in reply to sorting ip octets


my @ips = qw( ); my @sorted = map { $_->[1]; } sort { $a->[0] cmp $b->[0] } map { [ sprintf("%03d.%03d.%03d.%03d", split /\./), $_ ] } @ips; print map { $_.$/ } @sorted;
Is that reasonable? (I did test it - it seems to work for the example above.)

Update: Change the @sorted line to this also works:

my @sorted = map { $_->[1]; } sort { $a->[0] <=> $b->[0] } map { [ sprintf("%03d%03d%03d%03d", split /\./), $_ ] } @ips;

This one uses numerical comparison... not really sure which one would be faster. I like the first one better if only because it looks to me like I'm doing what I say I'm doing, where as this one looks more like I'm faking it.

Replies are listed 'Best First'.
Re^2: sorting ip octets
by Anonymous Monk on Feb 16, 2005 at 19:04 UTC
    thanks it works but I open it from a txt file and read it line by line.

    thank you for the help

      Normally, we recommend reading files and dealing with them line-by-line. That doesn't really work for sorting. So just read your text file into @ips, chomping as appropriate, and then sort as above. All I was helping you with was the sorting of ip octets, not the reading of a file or writing to a file. Those are left as an excersise for the reader. (I never knew how much fun it was to say that until I left university... :-})

        I appreciate all the help you have given me.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2022-08-19 08:57 GMT
Find Nodes?
    Voting Booth?

    No recent polls found