shell中以-f的方式调用awk脚本

#对文件中的数字进行格式化，保留小数点两位，整数部分每三位一分割
#用法：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[i]]=""
                delete ARGV[i]
        }
        
        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 
}