In Reply to: 呵呵，看看我写的这个 posted by 闻人 on April 24, 2004 at 07:29:45:
awk ＇
function val(str) {
len=length(str)
if(len＜6)
return(str)
str1=substr(str,1,len-3)
rest=sprintf("％s",substr(str,len-2,3))
len=length(str1)
j=2
rest=sprintf("％s％s",substr(str1,len-2,3),rest)
for (i=5; i＜len; i=i+3) {
j++
ss=substr(str1,len-i,3)
lstr=substr(str1,1,len-i-1)
rest=sprintf("％s,％s",ss,rest)
}
nu=len-j*3+3
if(nu==0)
return (rest)
else {
rest=sprintf("％s,％s",substr(str1,1,nu),rest)
return (rest)
}
}
{
for(i=1;i＜=NF;i++) {
printf $i
printf "==＞ ％s\n",val($i)
}
}＇ ./bb