请问：awk: 对record排序

jorsa

原文件
FO: 33
- jtag_tck_in__L9_N32
  ( jtag_tck_in__L9_I32 x ) ( bsm293_psc3_9/di_2dff ck )

FO: 38
- jtag_tck_in__L9_N7
  ( jtag_tck_in__L9_I7 x ) ( bsm044_eth_14/do_2dff ck )

。。。

想按照 FO 后的数据排序打印出来得到：
FO: 38
- jtag_tck_in__L9_N7
  ( jtag_tck_in__L9_I7 x ) ( bsm044_eth_14/do_2dff ck )
FO: 33
- jtag_tck_in__L9_N32
  ( jtag_tck_in__L9_I32 x ) ( bsm293_psc3_9/di_2dff ck )

我的程序如下：
BEGIN {
     2          RS = "FO: "
     3          FS = "\n"
     4          printf ("\n Generated at --- "
     5          system("date"
     6          printf (" \n\n";
     8          fanout_max = 0
     9          }
    12          {      
    13                  if($1 > fout_max ) fanout_max = $1
    14                  print $0 | "sort"
    15          }
    16  END {
    17        printf ("\n\nmax fanout net: %d\n",fanout_max)
    18      }
结果得到：
     1  
     2   Generated at --- Fri Aug 27 17:38:30 GMT 2004
     8  
     9    ( jtag_tck_in__L9_I32 x ) ( bsm293_psc3_9/di_2dff ck )
    10    ( jtag_tck_in__L9_I7 x ) ( bsm044_eth_14/do_2dff ck )
    11  - jtag_tck_in__L9_N32
    12  - jtag_tck_in__L9_N7
    13  33
    14  38
    15  
    16  
    17  max fanout net: 38

jorsa

可以用perl的hash来实现，不过awk或shell呢, 不需要先读出全部的数来排序再查找打印吧

gunguymadman

不懂你的意思

bjgirl

[quote]原帖由 "gunguymadman"]不懂你的意思[/quote 发表：

me,too.

随风漂

BEGIN {
RS = "FO: "
FS = "\n"
}
{
   data[$1]=$0
}
END {
  for(i in data) print data
}


只能是从小到大进行排列

shaoping0330

但是，好像 “awk 在数组下标之间轮转时，它不会依照任何特定的顺序”。

jorsa

我的意思是
原文件：
FO:  38
aaaaa
FO:  32
bbbbbb
FO:  33
cccccc
希望得到
FO:  38
aaaaa
FO:  33
cccccc
FO:  32
bbbbbb

随风漂的好象如楼上所说起不到排序作用

shaoping0330

我的思路是这样：
1 首先判断该文件有多少条记录
2 将各条记录及记录中的第一个字段赋值
3 比较第一个字段的大小，输出记录

用awk求出文件记录数量的方法比较简单，假设我们已知有4条记录。
下面是将各记录赋值：
BEGIN {
……（记录分隔符省、字段分隔符标志省）
}
{
for(i=1;i<=4;i++)
{
   while(FNR==i)
   {
     text=$0
     first=$1
     print text
     print first
     break
   }
}
}
END{
＃根据first大小的顺序来输出text（不过这段代码我怎么也写不出，谁来完善？
＃那位是排序的高手，come on！
}

bjgirl

用grep试试

1. 
   
2. $cat file
   
3. FO: 38
   
4. aaaaa
   
5. FO: 32
   
6. bbbbbb
   
7. FO: 33
   
8. cccccc
   
9. $cat f
   
10. cat file|grep ^FO|sort -k2nr|while read i;do
    
11.     cat file|grep -A1 "$i" #可以调整A1的值
    
12. done
    
13. 
    
14. $ksh f
    
15. FO: 38
    
16. aaaaa
    
17. FO: 33
    
18. cccccc
    
19. FO: 32
    
20. bbbbbb
    

复制代码

ps:就是效率差了些

jorsa

1. 
   
2. BEGIN {
   
3.         RS = "FO: "
   
4.         FS = "\n"
   
5.         fout_max = 0
   
6. }
   
7. {
   
8.         data[$1]=$0
   
9.         if($1 > fout_max ) fout_max = $1
   
10. }
    
11. END {
    
12.         #for (i in data) print data[i]
    
13.         for(i = fout_max; i > 0; i--)
    
14.         #for(i = 1; i <= fout_max; i++)
    
15.         {
    
16.                 if(i in data) print data[i]
    
17.                 #print i
    
18.         }
    
19. }
    

复制代码

在awk里没找到sort函数，没法象perl一样对key排序，于是我就想试试最愚笨的办法如以上code,
奇怪的是只有最大的data被print了，但的确是都遍历到了(pinrt i 打印出了max->1所有的数)
不解压不解

ps: bjgirl 的只能处理FO后面只有一行， 如过有多行就没发处理了，例如
FO： 33
aaaaaa
aaaaaa