问一个awk数组问题

ly5066113

try:

1. awk '{a[$1]=a[$1]" "$2}END{for(i in a){l=split(a[i],b," ");for(j=1;j<l;j++) for(k=j+1;k<=l;k++) print i,b[j]"-"b[k]}}' urfile

复制代码

merlin852

原帖由 ly5066113 于 2009-3-9 11:22 发表
try:

awk '{a[$1]=a[$1]" "$2}END{for(i in a){l=split(a,b," ");for(j=1;j

xyzlsh

pfpf，真没想到[$1]=a[$1]" "$2

ywlscpl

想不出别的办法了

1. [root@Mylinux tmp]# cat file
   
2. A G1
   
3. A G2
   
4. A G3
   
5. A G4
   
6. B G1
   
7. B G2
   
8. D G2
   
9. D G3
   
10. E G1
    
11. E G3
    
12. E G4
    
13. [root@Mylinux tmp]# awk -v v="A" '$1==v{a[$2]++}END{printf v;for(i in a) if(i!=j)for (j in a) if(i!=j){c[i"-"j]++;if (!c[j"-"i]) d[i"-"j]++}for (k in d) printf " "k;print ""}' file
    
14. A G3-G4 G1-G2 G1-G3 G1-G4 G2-G3 G2-G4
    
15. [root@Mylinux tmp]# awk -v v="B" '$1==v{a[$2]++}END{printf v;for(i in a) if(i!=j)for (j in a) if(i!=j){c[i"-"j]++;if (!c[j"-"i]) d[i"-"j]++}for (k in d) printf " "k;print ""}' file
    
16. B G1-G2

复制代码

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

ywlscpl

1. [root@Mylinux tmp]# cat mysh
   
2. #!/bin/ksh
   
3. awk '{a[$1]=$1}END{for (i in a) print a[i]}' file>tmpfile
   
4. while read n
   
5. do
   
6.   awk -v v="$n" '$1==v{a[$2]++}END{printf v;for(i in a) if(i!=j)for (j in a) if(i!=j){c[i"-"j]++;if (!c[j"-"i]) d[i"-"j]++}for (k in d) printf " "k;print ""}' file
   
7. done<tmpfile
   
8. [root@Mylinux tmp]# ./mysh
   
9. A G3-G4 G1-G2 G1-G3 G1-G4 G2-G3 G2-G4
   
10. B G1-G2
    
11. D G2-G3
    
12. E G3-G4 G1-G3 G1-G4

复制代码

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

FightingWu

[wuyc@S102226 shell]$ cat test
A G1
A G2
A G3
B G1
B G2
D G2
D G3
E G1
E G3
E G4[wuyc@S102226 shell]$ ./k.sh
A
G1 - G2
G1 - G3
G2 - G3
B
G1 - G2
D
G2 - G3
E
G1 - G3
G1 - G4
G3 - G4
[wuyc@S102226 shell]$ cat k.sh
#! /bin/bash
awk '{if(a[$1]==0)a[$1]=$2;else a[$1]=a[$1]"-"$2}END{
for(i in a)
{
print i;
for(j=1;j<=length(a);j+=3)
        for(k=j+3;k<=length(a);k+=3)
                {print substr(a,j,2),"-",substr(a,k,2)}
}
#
}' test
[wuyc@S102226 shell]$

cooljean2008

我也贴一下吧，思路和tim基本一致，排序方面符合楼主
awk '{a[$1]=a[$1]" "$2}
END{
         for (i in a)
         {
               printf i" "
               b=split(a[i],d," ")
               for(j=1;j<b;j++)
               {
                    printf d[j]"-"d[j+1]" "
               }
               for(k=b;k>2;k--)
               {
                    for(m=1;m<k-1;m++)
                    {
                         printf d[k]"-"d[m]" "
                    }
               }
               print ""
         }
      }' file

result:
E G1-G2 G2-G3 G3-G4 G4-G1 G4-G2 G3-G1

seepsun

#! /bin/awk -f

BEGIN{FLAG="A"; BOOL=0}

{
        if($1==FLAG)
        {
                a[BOOL++]=$2;
        }
        else
        {
                printf("%s ", FLAG);
                for(i=0; i<BOOL; i++)
                {
                        for(j=i; j<BOOL-1; j++)
                        {
                                printf("%s-%s ", a, a[j+1]);
                        }
                }
                printf("\n");
                FLAG=$1;
                BOOL=0;
                a[BOOL++]=$2;
        }
}

file.log
A G1
A G2
A G3
A G4
A G5
B G1
B G2
B G9
D G2
D G3
E G1
E G3
E G4

result:
A G1-G2 G1-G3 G1-G4 G1-G5 G2-G3 G2-G4 G2-G5 G3-G4 G3-G5 G4-G5
B G1-G2 G1-G9 G2-G9
D G2-G3
E G1-G3 G1-G4 G3-G4

[ 本帖最后由 seepsun 于 2009-3-9 16:34 编辑 ]

ywlscpl

不错不错

locale

虚心学习