shell中以-f的方式呼叫awk指令碼
阿新 • • 發佈：2019-01-24
#對檔案中的數字進行格式化，保留小數點兩位，整數部分每三位一分割
#用法：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
}
#用法：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)
}
}