#!perl
use strict;

my %hash=();

while (<DATA>){
        chomp;
        my ($a,$b)=(split)[0,2];
        $hash{$a}{$b}=$_;
}

foreach my $key1(sort keys %hash){
        my @temp= (sort keys %{$hash{$key1}});
        my $key2= pop @temp;
        print "$hash{$key1}{$key2}\n"
}

__DATA__
m b  1
m c  2
m d  3
n b 4
n g  3
n s  5

2楼: Originally posted by liuderong at 2014-11-29 10:37:18
你给出的数据例子是存放到文本文件里的吗？