又一个shell（awk）编程问题，请教各位高手！

wxy214

MX10 net5 net6 PM W=10 L=20
CC1-XI-1 net1 net2 CP area=25P $param=20
CC23-XI-5 net3 net4 CW area=140P $param=65
MD30 net7 net8 NM W=5 L=5

以上是一个文件，要求经过shell处理后
实现如下要求：
1。 以CC开头的行中的带$param这个字段被删除；
2。 以CC开头的行中的包含area这个字段的数字要被开平方，然后数值分配给W和L，并且这个值要带单位（u）；
    例如：上面第二行被shell处理后要变成如下格式：
     CC1-XI-1 net1 net2 CP W＝5u L＝5u   
3。 把CC改成XC；

小弟在这方面实在是差劲，所以只有求助各位高手请赐教了！
多谢了！

admirer

假设代码文件名为r，待处理文件名为filename

1. cat r
   
2. #!/usr/bin/awk -f
   
3. {if($1~/^CC/){
   
4.         $NF=""
   
5.         split($5,a,"=")
   
6.         split(a[2],b,"p")
   
7.         $5=sprintf("W=%du L=%du",sqrt(b[1]),sqrt(b[1]))
   
8.         gsub(/^CC/,"XC",$1)
   
9.         }
   
10.         print $0
    
11. }
    
12. 调用方式
    
13. awk -f r filename
    
14. 执行结果
    
15. MX10 net5 net6 PM W=10 L=20
    
16. XC1-XI-1 net1 net2 CP W=5u L=5u
    
17. XC23-XI-5 net3 net4 CW W=11u L=11u
    
18. MD30 net7 net8 NM W=5 L=5

复制代码

   
跟红侠学的，不知可否达到楼主的要求？

nkliyong

格式固定不?
CC23-XI-5 net3 net4 CW area=140P $param=65
每一行都是六个字段吗?
140开平方应该的多少(你要求)?

anonimousboy

[$urStr="";
$sqr="";
open(INPUT,"input"||die("can't open the file IN";
open(OUTPUT,">output"||die("can't open the file OUT";
while($outData=<INPUT>{
        $urStr="";
        if($outData =~ /^CC/){
                    $outData =~ s/CC/XC/;
            @outArr=split(" ",$outData);
              foreach $iCnt(@outArr){
                    if($iCnt =~ /.*area=(\d+)P/){
                        $sqr="w=".int(sqrt($1))."u "."l=".int(sqrt($1))."u ";
                        $urStr=$urStr." ".$sqr;
                    }
                        if(($iCnt !~ /\$param=[0-9]*/)&&($iCnt !~ /.*area=[0-9]*/)){
                    $urStr=$urStr." ".$iCnt;
                    }        
           }
               print OUTPUT $urStr."\n";
    }else{
            print OUTPUT $outData;
        }
}       
close(OUTPUT)||die("can't close the file OUT";
close(INPUT)||die("can't close the file OUT";

anonimousboy

[quote]原帖由 "admirer"]У模?恢?煞翊锏铰ブ鞯囊?螅縖/quote 发表：
   
不会吧,GSUB不是GAWK的吗?难道也可以直接用??还有SPRINTF不是NAWK的吗?他们都可以在一起使用吗?要是可以的话,我可就真的走了弯路了~~

peterbingxu

awk '{ if($1~/^CC/){if($6~/\$param/) $6="";} print $0;}' a.txt |
sed  -e 's/^CC/XC/' -e 's/area=\([0-9]*\)P/\1 PPP/' |
awk '{if($6=="PP" {$6=sprintf("L=%du",sqrt($5));$5=sprintf("W=%du",sqrt($5));}print $0}'
是不是太复杂了？   

wxy214

谢谢各位大侠的无私帮助！

请教peterbingxu：
   
  sed -e 's/^CC/XC/' -e 's/area=\([0-9]*\)P/\1 PPP/'

这句中的后半句能不能给我解释一下，我很笨的！

to admirer：
  gsub 不能用呀！

wxy214

to admirer：
   
     请教一下split的用法！就结合上面的例子来解释吧！
  
     谢谢！

admirer

我是SCO UNIX 5.0.5 在我的机子上awk，nawk都可以执行的

1. #nawk -f r a
   
2. MX10 net5 net6 PM W=10 L=20
   
3. XC1-XI-1 net1 net2 CP W=5u L=5u
   
4. XC23-XI-5 net3 net4 CW W=11u L=11u
   
5. MD30 net7 net8 NM W=5 L=5
   
6. # awk -f r a
   
7. MX10 net5 net6 PM W=10 L=20
   
8. XC1-XI-1 net1 net2 CP W=5u L=5u
   
9. XC23-XI-5 net3 net4 CW W=11u L=11u
   
10. MD30 net7 net8 NM W=5 L=5

复制代码

split的用法

1. split(string,store,delim)  根据分界符delim,分解string为store的数组元素

复制代码

wxy214

谢谢admirer的指点：

   不过我这边用的是solaris2.8，所以gsub还是不能用！