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

Sorting a list of IP addresses (aka Why I hate Big O)

by jeffa (Bishop)
on Aug 03, 2000 at 00:15 UTC ( [id://25833] : perlmeditation . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #naive: O(N*logN)
    my @sorted = sort {
    ...
        pack('C4' => $b =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
    
    } @unsorted;
    
  2. or download this
    Benchmark: timing 5000 iterations of naive, packed...
         naive: 11 wallclock secs ( 9.91 usr +  0.32 sys = 10.23 CPU)
        packed:  8 wallclock secs ( 7.95 usr +  0.08 sys =  8.03 CPU)