Re: create 2-D array and then sort from max. to min.

in reply to create 2-D array and then sort from max. to min.

use Data::Dumper;
use strict;

my @arr;

while (<DATA>) {
    s/\s+$//;
    push @arr, [split /\s+/, $_] if $_;
}

print Dumper(\@arr);

@arr = sort {
    $b->[2] <=> $a->[2]
} @arr;

print Dumper(\@arr);

__DATA__
A BBL 0.2

B BBH  0.3

C BB 0.1
[download]

Comment on Re: create 2-D array and then sort from max. to min. Download Code

Replies are listed 'Best First'.
Re^2: create 2-D array and then sort from max. to min. by 3dog (Initiate) on Jul 15, 2010 at 21:01 UTC
works great! thanks a lot!	[reply]

In Section Seekers of Perl Wisdom