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
}