Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
1 9 b
6 8 a
  2. or download this
    my @sorted = map {$_->[0]} sort {
    $a->[3] cmp $b->[3] || # sorted ascending alpha on col 3
...
} map {[ $_ ,/(\w+)\s+(\w+)\s+(\w+)/]} <DATA>   ;

print  for @sorted;