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

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 drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2020-11-30 12:04 GMT
Find Nodes?
    Voting Booth?

    No recent polls found