Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

IP Address sorting

by japhy (Canon)
on Oct 23, 2000 at 16:38 UTC ( #37889=sourcecode: print w/replies, xml ) Need Help??
Category: Text Processing
Author/Contact Info Jeff japhy Pinyan
Description: Sorts N IP addresses in O(Nk) time, each and every time. Uses the technique called radix sorting.
use Socket qw( inet_aton inet_ntoa );

sub IP_radix_sort {
  for (my $i = 3; $i >= 0; $i--) {
    my @table;
    for (@_) {
      push @{ $table[unpack "\@$i C", $_] }, $_;
    @_ = map @$_, @table;
  return @_;

sub IPsort {
  map inet_ntoa,
  map inet_aton,
Replies are listed 'Best First'.
RE: IP Address sorting
by japhy (Canon) on Oct 24, 2000 at 03:26 UTC
    jcwren (whose nick I CONTINUALLY mistype as 'jcrewn') suggested I define the limits of this function. It takes domain names, dotted IP addresses, and large decimal numbers. It RETURNS dotted IP addresses though.
    require ""; # assuming that's where you put it @IPs = IPsort(qw( 84394239 ));

Re: IP Address sorting
by tadman (Prior) on Feb 13, 2001 at 08:13 UTC
    japhy's code is certainly very quick, Benchmarking about 43% better than anything I could come up with on short notice. The 'radix_sort' is obviously more efficient for this kind of application than the built in sort of Perl.

    However, under Perl 5.6 + strict + '-w', the following change is required to avoid compilation errors:
    sub IPsort { map inet_ntoa($_), IP_radix_sort map inet_aton($_), @_; }
    The alternative code which Benchmarks in at #2, but has the advantage of simplicity:
    sub byip { inet_ntoa($a) cmp inet_ntoa($b) } foreach (sort byip @ip_list) ...
    BTW, I tested both with 100_000 random IP addresses by 10 runs (approx 86 to 150s per test).
Log In?

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (2)
As of 2020-08-10 06:40 GMT
Find Nodes?
    Voting Booth?
    Which rocket would you take to Mars?

    Results (56 votes). Check out past polls.