[awk]為數(shù)字加上千位符

wmjie

希望可以拋磚引玉，能看到犀利的腳本

從左到右，添加逗號(hào)

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}'
    

復(fù)制代碼

從右到左增加逗號(hào),一個(gè)字符一個(gè)字符的玩!

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}'
    

復(fù)制代碼

bbgg1983

學(xué)習(xí)了

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. '

復(fù)制代碼

li-jiahuan

如果不是那么堅(jiān)持AWK的話， 試試用正則來(lái)替換吧

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

復(fù)制代碼

ymll

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

#!/usr/bin/awk -f

BEGIN{
        printf "%'d\n", 123456
}
可以得到相同的結(jié)果

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

如果只是整數(shù)的話 沒(méi)有那么復(fù)雜啦 不需要awk出場(chǎng)吧

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 ~]$

復(fù)制代碼

where27

如果只是整數(shù)的話 沒(méi)有那么復(fù)雜啦 不需要awk出場(chǎng)吧
lkk2003rty 發(fā)表于 2010-07-03 13:48

    學(xué)習(xí)了，以前學(xué)到的sed的寫法

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

復(fù)制代碼

網(wǎng)鬼

學(xué)習(xí)下

lkk2003rty

回復(fù) 8# where27


    這個(gè)不錯(cuò)  謝謝種菜兄分享。。。。