急，请高人们帮我看看这个AWK脚本!

gcllk

我有一个要分析的文件，如下：

各模块CPU占用率

---------------

   模块号     CPU占用状况



       0      30%,正常

       1      28%,正常

       2      26%,正常

       3      25%,正常

       4      21%,正常

       5      33%,正常

       6      22%,正常

       7      27%,正常

       8      27%,正常

       9      26%,正常

      10      05%,正常

(结果个数 = 11)



---    END
检查时间是:   2008-01-28 13:17:00

我想用AWK分析这个文件，把里面的时间（最后一行）提取出来，放到这个文件的第一列，模块号和cpu占用状况下的具体数值都提取出来形成一个新的文件，格式如下:
2008-01-28 13:17:00|0|30|正常
2008-01-28 13:17:00|1|28|正常
2008-01-28 13:17:00|2|26|正常
2008-01-28 13:17:00|3|25|正常
2008-01-28 13:17:00|4|21|正常
2008-01-28 13:17:00|5|33|正常
2008-01-28 13:17:00|6|22|正常
2008-01-28 13:17:00|7|27|正常
2008-01-28 13:17:00|8|27|正常
2008-01-28 13:17:00|9|26|正常
2008-01-28 13:17:00|10|05|正常


写了一个脚本:

BEGIN {
}

index($0,"各模块CPU占用率")

        {
        dn =0           #模块号
        baifenbi =0   #百分比
       
while(readline())
        {
                if(index($0,"---    END"))
                {
                break;
    }
  else if($NF=="CPU占用状况" && NF==2)
    while(readline())
                {       
  if(index($0,"(结果个数"))
                {
                break;
    }
  dn =$1
        baifenbi=$2
        split(baifenbi,u,",");
        x1=u[1]
  x2=u[2]
  split(x1,z,"%");
  y=z[1]

        print dn"|"y"|"x2
                }               
}
}

END{
}       
可以分析出这样的结果，可是时间不知道如何取出，请问高手如何处理，谢谢!
1|28|正常
2|26|正常
3|25|正常
4|21|正常
5|33|正常
6|22|正常
7|27|正常
8|27|正常
9|26|正常
10|05|正常

ly5066113

awk '$1~/^[0-9]+$/{sub(/,/,"|",$2);a[$1"|"$2]++}/^检查时间/{b=$2" "$3}END{for(i in a) print b"|"i}' urfile

gcllk

老大，看看能在我写的脚本上想想办法吗？

springwind426

1. 
   
2. awk 'BEGIN{FS="[| ]+"}
   
3. /各模块CPU占用/{
   
4. while( getline > 0 ){
   
5.         if($0~/检查时间是/){
   
6.                 dstr=$2" "$3
   
7.                 for(i=0;i<=10;i++) print dstr a[i]
   
8.                 break
   
9.         }
   
10.         if($0~/^[[:blank:]]*[0-9]/){
    
11.                 gsub(/[[:blank:]]+/,"|")
    
12.                 sub(/%,/,"|")
    
13.                 a[$2]=$0
    
14.         }
    
15. }
    
16. }'  数据文件
    

复制代码

gcllk

高人的回答真是让我眼界大开呀

gcllk

awk 'BEGIN{FS="[| ]+"}
/各模块CPU占用/{
while( getline > 0 ){
        if($0~/检查时间是/){
                dstr=$2" "$3
                for(i=0;i<=10;i++) print dstr a
                break
        }
        if($0~/^[[:blank:]]*[0-9]/){
                gsub(/[[:blank:]]+/,"|")
                sub(/%,/,"|")
                a[$2]=$0
        }
}
}'  数据文件

还有一个问题，就是我要分析的文件中模块号是不固定的，可能有10个模块，也可能有20个，这就导致
for(i=0;i<=10;i++) print dstr a
这个语句有问题，请问怎么在这个基础上改呢，谢了!

gcllk

急啊，请高手帮忙看看

jinl

原帖由 gcllk 于 2008-1-29 09:38 发表


还有一个问题，就是我要分析的文件中模块号是不固定的，可能有10个模块，也可能有20个，这就导致
for(i=0;i

如果检查时间总是文件的最后一行，那么直接使用下面的代码，缺点是顺序会乱，不会从模块1－n 排列

1. for (i in a) print destr a[i]

复制代码

如果要顺序显示，那么可以考虑通过“(结果个数 = 11)”这个行来获得模块数，然后循环打印

[ 本帖最后由 jinl 于 2008-1-29 10:08 编辑 ]

jinl

再附上一个我的代码：

1. 
   
2. BEGIN {FS="[ %(),=]+"}
   
3. $2 ~ /[0-9]+/ && $1 !~ /检查/ {a[$2]=$2"|"$3"|"$4}
   
4. /结果个数/ {mod_number=$3}
   
5. /检查时间/ {u_time=$2" "$3}
   
6. END {
   
7. for (i=0;i<mod_number;i++) print u_time "|" a[i];
   
8. }
   

复制代码

[ 本帖最后由 jinl 于 2008-1-29 10:45 编辑 ]

springwind426

1. 
   
2. awk 'BEGIN{FS="[| ]+"}
   
3. /各模块CPU占用/{
   
4. max=0
   
5. while( getline > 0 ){
   
6.         if($0~/检查时间是/){
   
7.                 dstr=$2" "$3
   
8.                 for(i=0;i<=max;i++)if(a[i]) print dstr a[i]
   
9.                 break
   
10.         }
    
11.         if($0~/^[[:blank:]]*[0-9]/){
    
12.                 gsub(/[[:blank:]]+/,"|")
    
13.                 sub(/%,/,"|")
    
14.                 a[$2]=$0
    
15.                 max=(max<$2)?$2:max
    
16.         }
    
17. }
    
18. }' 数据文件
    

复制代码

思路是出现一个模块记录的时候，就将max（用来记录最大值）设置为0，然后每次匹配到序号的时候，就把max设置为最大的序号。
if(a) print dstr a 是防止出现序号间断的时候，会只打印日期。