in reply to sorting ip octets
Hmmm...
Is that reasonable? (I did test it - it seems to work for the example above.)my @ips = qw( 127.0.0.1 10.129.30.5 10.129.30.2 255.255.255.255 10.109.30.5 142.222.130.23 10.109.1.1 142.222.87.30 ); my @sorted = map { $_->[1]; } sort { $a->[0] cmp $b->[0] } map { [ sprintf("%03d.%03d.%03d.%03d", split /\./), $_ ] } @ips; print map { $_.$/ } @sorted;
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 | |
by Tanktalus (Canon) on Feb 16, 2005 at 19:08 UTC | |
by Anonymous Monk on Feb 16, 2005 at 19:10 UTC |
In Section
Seekers of Perl Wisdom