问一个awk数组问题

xyzlsh

有如下的文件：
A G1
A G2
A G3
B G1
B G2
D G2
D G3
E G1
E G3
E G4
能通过awk数组将它转为如下的格式吗？
A G1-G2 G2-G3 G3-G1
B G1-G2
D G2-G3
E G1-G3 G3-G4 G4-G1
谢谢！

welcome008

有序没有？
超过两个就循环？

xyzlsh

按第1列排序。第1列相同第2列不同的超过两个就循环，且认为类似G1-G2和G2-G1是等价的。

皇家救星

下面的代码未经测试，但希望能对LZ有所启发

1. 
   
2. 
   
3. 
   
4. awk '
   
5. if($1 != filed1)
   
6. {
   
7.         //第1列相同第2列不同的超过两个就循环
   
8.         if(count > 2)
   
9.         {
   
10.                 res[filed1] += " "filed2"-"star_filed2;
    
11.         }
    
12.        
    
13.         count = 1;
    
14.         filed1 = $1;
    
15.         star_filed2 = filed2 = $2;
    
16. }
    
17. else
    
18. {
    
19.         count++;
    
20.         //第1列相同第2列不同
    
21.         if(count > 1)
    
22.                 res[$1] += " "filed2"-"$2;
    
23.         filed2 = $2;
    
24.        
    
25. }
    
26. END
    
27. {
    
28.         for(result in res)
    
29.         {
    
30.                 print result, res[result]
    
31.         }
    
32. }' filename
    
33. 
    

复制代码

[ 本帖最后由 皇家救星 于 2009-3-9 00:00 编辑 ]

liaosnet

有重复的没呀?~?

ywlscpl

$1相同的行都是连续出现的话

1. [root@Mylinux tmp]# awk '{a[NR]=$1;b[NR]=$2;n[NR]=c[$1]++}END{for (i=1;i<=NR;i++) {if (n[i]==0) {printf a[i]" ";v=b[i]}if (a[i]==a[i+1]) printf " "b[i]"-"b[i+1];else {if (n[i]>1) printf " "b[i]"-"v;print ""}}}' file         
   
2. A  G1-G2 G2-G3 G3-G1
   
3. B  G1-G2
   
4. D  G2-G3
   
5. E  G1-G3 G3-G4 G4-G1

复制代码

[ 本帖最后由 ywlscpl 于 2009-3-9 09:32 编辑 ]

linuxboy823

原帖由 ywlscpl 于 2009-3-9 09:18 发表
$1相同的行都是连续出现的话
[root@Mylinux tmp]# awk '{a[NR]=$1;b[NR]=$2;n[NR]=c[$1]++}END{for (i=1;i1) printf " "b"-"v;print ""}}}' file         
A  G1-G2 G2-G3 G3-G1
B  G1-G2
D  G2-G3
E  G1- ...

学习了，好好推敲！

xyzlsh

好像有点小问题，如果数据是：
A G1
A G2
A G3
A G4
输出结果就是：
A G1-G2 G2-G3 G3-G4 G4-G1
我想要的结果是G1-G2 G2-G3 G3-G4  G4-G1 G4-G2 G1-G3，也就是对G1-G4做C(4,2),总共6种可能.

oldoger

问题没说清楚。哎。

littlefour

原帖由 linuxboy823 于 2009-3-9 11:08 发表



学习了，好好推敲！

大家好，我是新手，谁能给我解释下上面的awk表达式，感激不尽，拜谢，
看了好长时间，看不懂。