請教：如何在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 發(fā)表：

謝謝烈火兄，能不能再教我如何在　system("sh urscript"里面帶一個AWK里的變量$2，就好像這樣system("sh urscript $2"--顯然這樣不行，有沒有其它辦法！！
謝謝�。�

RealRaul

原帖由 "夢藍" 發(fā)表：
)
                        $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

老貼老問題!