求per怎么l比较相同行得到值最大的一行

[weixin_40901210]

例如：
94871 97178 01g000005 264
96199 97178 01g000005 418
108596 113329 01g000008 4124
108596 113329 01g000008 3984
249553 254561 01g000015 4999
249486 253550 01g000015 3854
249486 253550 01g000015 3854
249553 253550 01g000015 2523
285710 286478 01g000016 573
得到：
1 96199 97178 01g000005 418
1 108596 113329 01g000008 4124
1 249553 254561 01g000015 4999
1 285710 286478 01g000016 573

[立虻]

#!/usr/bin/perl

use strict;
use warnings;

my %hash = ();
while (<DATA>) {
	my @data = split /\s+/;
         chomp;
         my $key = $data[2];
         my $range = "$data[0]\t$data[1]";
         if (not exists $hash{$key} or $data[3] > $hash{$key}{'value'}) {
                 $hash{$key}{'value'} = $data[3];
                 $hash{$key}{'range'} = $range;
         }
}
foreach my $key (sort keys %hash) { print "$hash{$key}{'range'}\t$key\t$hash{$key}{'value'}\n"; }
<>;

__DATA__
94871 97178  01g000005 264
96199 97178  01g000005 418
108596 113329 01g000008 4124
108596 113329  01g000008 3984
249553 254561  01g000015 4999
249486 253550 01g000015 3854
249486 253550  01g000015 3854
249553 253550  01g000015 2523
285710 286478  01g000016 573

仅供参考！

[weixin_40901210]

谢谢大神~ 想问下$hash{$key}{'value'}是代表什么意思呢~