Help for this page

Select Code to Download


  1. or download this
    use strict;
use Data::Dumper;
...
A 00006360 A001054054 000000000.00
A 00005460 A001102002 000000000.00
A 00007360 A003015015 000000000.00
  2. or download this
    while (<DATA>) {
    chomp;
    push @data, [ split '\s', $_ ];
    $data[ -1 ][ 2 ] = substr( $data[ -1 ][ 2 ], 1 );
}
  3. or download this
    @data =  sort {         $a->[1]     <=>         $b->[1] or
                substr( $a->[2], 1) <=> substr( $b->[2], 1) } @data;