数字转大写汉字

原帖链接：

#!/bin/awk -f
BEGIN{FS="";split("壹贰叁肆伍陆柒捌玖",a,"")}
{
        k=0
        for(i=0;i++<NF;){
                t=NF-i+1
                if(t!~/^5|9$/){
                        if(!$i){k++;continue}
                        if(k){k=0;printf "零"}
                }else{
                        if(k&&$i)printf "零"
                }
                printf a[$i]
                if(k>2&&t==5&&!$i)continue
                if(t==5)printf "万"
                if(t==9)printf "亿"
                if(t%4==2)printf "拾"
                if(t%4==3)printf "佰"
                if(t%4==0)printf "仟"
        }
        print $0?"圆整":"";
}