Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

At the risk of there being 1,000 replies by the time I finish mine:

by gryng (Hermit)
on Aug 03, 2000 at 02:28 UTC ( [id://25867] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my @sorted = sort {
    
    ...
        pack('C4' => $b =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
    
    } @unsorted;
    
  2. or download this
    my @sorted = sort {
    
    ...
        $a[3] <=> $b[3]
    
    } @unsorted;
    
  3. or download this
    my @sorted = sort {
    
    ...
        pack('C4' => $b =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
    
    } @unsorted;