[awk]为数字加上千位符

wmjie

希望可以抛砖引玉，能看到犀利的脚本

从左到右，添加逗号

1. awk -F'.' '{len=length($1);offset=len%3;
   
2.                         if( len >= 3 && len%3 != 0 )
   
3.                         {
   
4.                                 str=substr($1,1,offset )","
   
5.                         }
   
6.                         for(idx=offset+1;idx<=len-3;idx++)
   
7.                         {
   
8.                                 if( ( idx - offset -1)% 3 == 0 )
   
9.                                 {
   
10.                                         str=str""substr($1,idx,3)","
    
11.                                 }
    
12.                         }
    
13.                         if( NF == 2 )
    
14.                         {
    
15.                                 str=str""substr($1,len-2,3)"."$2
    
16.                         }
    
17.                         else
    
18.                         {
    
19.                                 str=str""substr($1,len-2,3)
    
20.                         }
    
21.                         print str}'
    

复制代码

从右到左增加逗号,一个字符一个字符的玩!

1. awk -F'.' '{len=length($1);
   
2.                         if( NF == 2 )
   
3.                         {
   
4.                                 str="."$2;
   
5.                         }
   
6.                         j=0
   
7.                         for( i=len ; i>0; i-- )
   
8.                         {
   
9.                                 if( j % 3 ==0 && j != 0 )
   
10.                                 {
    
11.                                         str=","str
    
12.                                 }
    
13.                                 str=substr($1,i,1)""str
    
14.                                 j++;
    
15.                         }
    
16.                         print str}'
    

复制代码

bbgg1983

学习了

xborant

1. awk '
   
2. BEGIN {
   
3. FS="."
   
4. OFS="."
   
5. }
   
6. 
   
7. {
   
8. "echo " $1 " | rev" | getline i
   
9. gsub(/.../,"&,",i)
   
10. "echo " i " | rev" | getline i
    
11. $1=i
    
12. gsub(/.../,"&,",$2)
    
13. print $0
    
14. }
    
15. '

复制代码

li-jiahuan

如果不是那么坚持AWK的话， 试试用正则来替换吧

1. 
   
2. huan@nb:~$ seq -s  "" 1 9 | perl -pe 's/(?<=\d)(?=(\d\d\d)+$)/,/g'
   
3. 123,456,789
   

复制代码

ymll

$ awk 'BEGIN{printf "%'"'"'d\n",  123456}'
123,456
这样不是更方便？
化成awk脚本是

#!/usr/bin/awk -f

BEGIN{
        printf "%'d\n", 123456
}
可以得到相同的结果

ywlscpl

借助于printf
[root@Mylinux tmp]# echo 1234567.01 | awk -F\. '{printf "%'"'"'d%s\n",$1,$2?"."$2:""}'
1,234,567.01

另一种方法
[root@Mylinux tmp]# echo 1234567.01 | awk -v OFS='' -F '' '{n=match($0,/\./)-1;n=n>=0?n:NF;for (i=n;i>0;i--) {j=n-i+1;$i=(j%3||i==1)?$i:","$i}}2'  
1,234,567.01

lkk2003rty

如果只是整数的话 没有那么复杂啦 不需要awk出场吧

1. [oracle@s12071 ~]$var=1234567890
   
2. [oracle@s12071 ~]$ echo ${var}
   
3. 1234567890
   
4. [oracle@s12071 ~]$ printf "%'d" ${var}
   
5. 1,234,567,890[oracle@s12071 ~]$

复制代码

where27

如果只是整数的话 没有那么复杂啦 不需要awk出场吧
lkk2003rty 发表于 2010-07-03 13:48

    学习了，以前学到的sed的写法

1. echo "1234567"|sed ':a;s/\B[0-9]\{3\}\>/,&/;ta'

复制代码

网鬼

学习下

lkk2003rty

回复 8# where27


    这个不错  谢谢种菜兄分享。。。。