请教用脚本处理文本的问题

rafox

有一个文本 每行用空格分成了3段  一共大概 几十行 格式如下：
xxx     aaa    1000
xxx     aaa    999
xxx     aaa    998
...
xxx     aaa    123
yyy      aaa    890
yyy      aaa    870
yyy      aaa    230

第一段有很多行是重复的 第二段都一样 第三段是数字 在第一段相同的行里逐渐减小

我想 把每行第一段相同的行中  数字最大的扣出来 其他不要  如果是上面的例子既输出：
xxx    aaa    1000
yyy    aaa     890
想用perl或者shell  请高手给个例子

limingzhen456

没测试，不知道对不对...呵呵 看看
#! /usr/bin/perl -w
fopen(FL,"file") || die "cannot open file for read!\n";
while(<FL>){
$prex=$data[0];
@data=split('\s+',$_);
if($data[0]!=$prex){
if($prex!=~m"^\s+$"){
     $i++;
}
}
if($max[$i]<$data[2]){
$max[$i]=$data[2];
$line[$i]=$_;
}

}
close(FL);

rafox

多谢 ,我来试一下