这样的需求如何处理

uselsee

我有下面的文件
[root@fk-fengkun ~]# cat b.txt
a d 1
a d 2
cc ff 77
cc ff 99
如何选出下面的结果
a d 2
cc ff 99
就是前面字段相同的行中取最后一个字段值最大的行，其他行删除

cxfcxf

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. open (BT, "b.txt") or die $!;
   
8. my %hash;
   
9. 
   
10. while (<BT>) {
    
11.     chomp;
    
12.     my @array = split;
    
13.     my $string = "$array[0] $array[1]";
    
14.     push @{$hash{$string}},$array[2];
    
15. }
    
16. 
    
17. foreach (keys %hash) {
    
18.     my @new = sort {$a <=> $b} @{$hash{$_}};
    
19.     my $big = pop @new;
    
20.     print "$_ $big\n";
    
21. }
    
22. close BT;
    

复制代码

ywlscpl

awk '{a[$1" "$2]=$3>a[$1" "$2]?$3:a[$1" "$2]}END{for (j in a) print j,a[j]}' file

la19850302

楼上akw高手,上次承蒙赐教,写了个差不多的

awk '{if(a[$1" "$2]<$NF) a[$1" "$2]=$NF}END{for (i in a) print i,a}'  tables.txt

[ 本帖最后由 la19850302 于 2009-11-4 15:56 编辑 ]

uselsee

原帖由 ywlscpl 于 2009-11-4 07:48 发表
awk '{a[$1" "$2]=$3>a[$1" "$2]?$3:a[$1" "$2]}END{for (j in a) print j,a[j]}' file

兄弟能否解释一下啊，或者给个相关文档连接把，我找了会，没找到

blackold

associative array and ternary opertaor

awk 资料都有这些吧。

haimming

http://bbs2.chinaunix.net/thread-1425973-1-2.html

NTRY

原帖由 ywlscpl 于 2009-11-4 07:48 发表
awk '{a[$1" "$2]=$3>a[$1" "$2]?$3:a[$1" "$2]}END{for (j in a) print j,a[j]}' file

awk '$3>max[$1]{max[$1]=$3;line[$1]=$0}END{for (j in line) print line[j]}' ufile


呵呵，看着眼熟吧 ！

lz这个也行。试试！！

寂寞烈火

典型的需求经典的回复