［awk］数据归类

iori809

回复 10# 709101040516


    哈哈~一般高手都是单行的~我以前就经常写多行的。后来大拿们都是单行的，所以最近也练习单行呢~

ywlscpl

xiaobaixy

回复 1# orctyr


    看不明白，强大

709101040516

回复 11# iori809


    囧···

iori809

回复 14# 709101040516


    没事~你也会成为大拿的~只不过我们能不能等到那天就不好说了哈哈~写那种单行的需要对AWK十分熟悉，因为括号作用域啊，分号换行等细节，一点写不好就语法错误了
加油吧

springwind426

1. 
   
2. awk '{line[$0]=1}
   
3. END{
   
4.         num=1
   
5.         while (length(line)>0)
   
6.         {
   
7.                 for(i in line) break
   
8.                 delete line[i]
   
9.                 split(i,b)
   
10.                 a[b[1]]=1
    
11.                 a[b[2]]=1
    
12.                 do
    
13.                 {
    
14.                         search=0
    
15.                         for(i in line)
    
16.                         {
    
17.                                 split(i,b)
    
18.                                 if (b[1] in a || b[2] in a)
    
19.                                 {
    
20.                                         delete line[i]
    
21.                                         a[b[1]]=1
    
22.                                         a[b[2]]=1
    
23.                                         search=1
    
24.                                 }
    
25.                         }
    
26.                 }while(search)
    
27.                 for(i in a)
    
28.                 {
    
29.                         print num "\t" i
    
30.                 }
    
31.                 delete a
    
32.                 num++
    
33.         }
    
34. }
    
35. ' testfile.txt
    
36. 
    

复制代码

blackold

1. $ awk '{if(!($1 in a) && !($2 in a)) a[$1]=a[$2]=++p;else if(!(a[$1]*a[$2])) a[$1]=a[$2]=a[$1]+a[$2];print a[$1],$1;print a[$2],$2;}' urfile|sort -nuk 2|sort -n

复制代码

数据超大时可能超慢。

iori809

回复 16# springwind426


    一看就是程序员出身呵呵

springwind426

数据超大时可能超慢。
blackold 发表于 2010-04-01 11:46

这个结果不对

blackold

回复 19# springwind426


    哪里不对？