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;