2Â¥: Originally posted by liuderong at 2014-11-29 10:37:18
Äã¸ø³öµÄÊý¾ÝÀý×ÓÊÇ´æ·Åµ½Îı¾ÎļþÀïµÄÂð£¿

3Â¥: Originally posted by kinshi at 2014-12-01 08:50:54
ÊÇÎļþÀïÃ棬µ«ÊÇÕâ¸ö²½ÖèÎһᣬֻÊÇÐèÒªÖмä¹ý³Ì£¬¶®µÃÔ­Àí´ó¸Å¾Í»áдÁË...

#!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