请教：如何在AWK中调用shell脚本，并在shell中使用AWK的变量

RealRaul

例如：有一文本list

1. 
   
2. #cat list
   
3. aaaa 123456.12 800001
   
4. bbbb 654321.22 800002
   
5. ccccc 124686554 800003
   
6. dddd -45846456.12 800004
   

复制代码

希望能生成一个新的文本newlist，效果如下

1. 
   
2. #cat newlist
   
3. aaaa 123,456.12 800001
   
4. bbbb 654,321.22 800002
   
5. ccccc 124,686,554.00 800003
   
6. dddd -45,846,456.12 800004
   

复制代码

现有数字处理脚本tho.sh：

1. 
   
2. #cat sho.sh
   
3. if test `echo $1 | grep '\.'`
   
4.         then
   
5.                 head=`echo $1 | cut -d. -f 1`
   
6.                 end=`echo $1 | cut -d. -f 2`
   
7.                 total=`echo $head | sed -e :a -e 's/\(.*[0-9]\)\([0-9]\{3\}\)/\1,\2/;ta'`.$end
   
8.         else
   
9.                 total=`echo $1 | sed -e :a -e 's/\(.*[0-9]\)\([0-9]\{3\}\)/\1,\2/;ta'`.00
   
10. fi
    
11. echo $total
    

复制代码

脚本使用方法及效果：

1. 
   
2. #./tho.sh 123456789
   
3. 123,456,789.00
   

复制代码

打算用AWK调用tho.sh把$2改变后输出，但在AWK中用system调用tho.sh后不能把$2传给tho.sh
请多指教，谢谢！！
或者用其他方法实现

寂寞烈火

system("sh urscript"

梦蓝

#对文件中的数字进行格式化，保留小数点两位，整数部分每三位一分割
#用法：awk -f frm_num.awk 目标文件
#文件名：frm_num.awk  

function format_number(STRING,  str,flag,str1,str2,i,j,array) {
           str=STRING       
       
        if(str ~ /^[-+]/){
                flag=substr(str,1,1)
                str=substr(str,2)
        }else
                flag=""
       
        i=index(str,"\."
        if(i>0){
                str2=substr(str,i+1)
                str1=substr(str,1,i-1)
               
                if(length(str2)>2)
                        str2=substr(str2,1,2)
                else if(length(str2)<2)
                        str2=str2 "0"               
                       
                str2="\." str2               
        } else{
                str1=str
                str2="\.00"
        }
       
        i=0
        while(length(str1)>3){
                array[++i]=substr(str1,length(str1)-2,3)
                str1=substr(str1,1,length(str1)-3)
        }       
        array[++i]=str1
       
        str1=""
        for(j=i;j>0;j--){
                str1=str1 array[j]
                if(j>1) str1=str1 ","                       
        }
       
        str=flag str1 str2
       
        return str       
}

{
        for(m=1;m<=NF;m++)       
        {               
                if($m ~ /[-+]?[0-9]+(\.[0-9]+)?/)
                        $m=format_number($m)               
        }
       
        print
}

RealRaul

[quote]原帖由 "寂寞烈火"]system("sh urscript"[/quote 发表：

谢谢烈火兄，能不能再教我如何在　system("sh urscript"里面带一个AWK里的变量$2，就好像这样system("sh urscript $2"--显然这样不行，有没有其它办法！！
谢谢！！

RealRaul

原帖由 "梦蓝" 发表：
)
                        $m=format_number($m)               
        }
       
        print
}

谢谢梦蓝的脚本！
但有时候我并不需要对所有的数字进行格式化，比如帐号等，而只需改变其中的一列或几列，有没有更好的办法！！
谢谢！！

寂寞烈火

to () {
echo $1|rev|sed 's/.../&,/g;s/,$//;s/^/00\./'|rev}
[/code]

梦蓝

#对文件中的数字进行格式化，保留小数点两位，整数部分每三位一分割
#用法：awk -f frm_num.awk 列号列表 目标文件
#最后一个参数为目标文件，其他为列号；没有列号则对所有数据格式化
#如：awk -f frm_num.awk 1 2 3 4 "a.txt"
#文件名：frm_num.awk  

function format_number(STRING,  str,flag,str1,str2,i,j,array) {
           str=STRING       
       
        if(str ~ /^[-+]/){
                flag=substr(str,1,1)
                str=substr(str,2)
        }else
                flag=""
       
        i=index(str,"\."
        if(i>0){
                str2=substr(str,i+1)
                str1=substr(str,1,i-1)
               
                if(length(str2)>2)
                        str2=substr(str2,1,2)
                else if(length(str2)<2)
                        str2=str2 "0"               
                       
                str2="\." str2               
        } else{
                str1=str
                str2="\.00"
        }
       
        i=0
        while(length(str1)>3){
                array[++i]=substr(str1,length(str1)-2,3)
                str1=substr(str1,1,length(str1)-3)
        }       
        array[++i]=str1
       
        str1=""
        for(j=i;j>0;j--){
                str1=str1 array[j]
                if(j>1) str1=str1 ","                       
        }
       
        str=flag str1 str2
       
        return str       
}

BEGIN{
        for(i=1;i<ARGC-1;i++){
                col_list[ARGV]=""
                delete ARGV
        }
       
        if(ARGC<=2)
                flag=0       
        else
                flag=1
}

{
        for(m=1;m<=NF;m++)       
        {               
                if((flag==0 || m in col_list) && $m ~ /[-+]?[0-9]+(\.[0-9]+)?/)
                        $m=format_number($m)               
        }
       
        print
}

netwares

system("sh urscript "$2)
这样就可以了

blackold

老贴老问题!