字符串补全逗号

srzyhead

1. edasdf
   
2. sad
   
3. werew

复制代码

这种长度小于20字符串,想在右面补充逗号,直到满20个字符,目标结果如下

1. edasdf,,,,,,,,,,,,,,
   
2. sad,,,,,,,,,,,,,,,,,
   
3. werew,,,,,,,,,,,,,,,

复制代码

可是printf只能补0,于是只能想出下面的笨法:
echo -e "edasdf\nsad\nwerew" | awk 'BEGIN{a=",,,,,,,,,,,,,,,,,,,,"}{print $1substr(a,1,length(a)-length($1));}'

问下各位大侠有什么好的方法没,用其他命令达到要求也欢迎分享

yestreenstars

awk

1. awk '{while(length($0)<20){$0=$0","}}1'

复制代码

sed

1. sed -r ':1;s/$/,/;/.{20}/!b1'

复制代码

LZ你是打算摇到外婆桥去吗？

srzyhead

回复 2# yestreenstars

卖个萌撒,有图的帖子点击量才容易高啊


   

srzyhead

回复 2# yestreenstars

新编辑的sed那个试了下不能用,有可能是我的sed版本太低了

1. /AKEMI_HOMURA$echo -e "edasdf\nsad\nwerew" | sed -r ':1;s/$/,/;/.{20}/!b1'
   
2. sed: illegal option -- r
   
3. Usage:  sed [-n] Script [File ...]
   
4.         sed [-n] [-e Script] ... [-f Script_file] ... [File ...]

复制代码

yestreenstars

maybe

1. [root@localhost ~]# cat j
   
2. edasdf
   
3. sad
   
4. werew
   
5. [root@localhost ~]# sed -r ':1;s/$/,/;/.{20}/!b1' j
   
6. edasdf,,,,,,,,,,,,,,
   
7. sad,,,,,,,,,,,,,,,,,
   
8. werew,,,,,,,,,,,,,,,
   
9. [root@localhost ~]# sed --version
   
10. GNU sed version 4.2.1
    
11. Copyright (C) 2009 Free Software Foundation, Inc.
    
12. This is free software; see the source for copying conditions.  There is NO
    
13. warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE,
    
14. to the extent permitted by law.
    
15. 
    
16. GNU sed home page: <http://www.gnu.org/software/sed/>.
    
17. General help using GNU software: <http://www.gnu.org/gethelp/>.
    
18. E-mail bug reports to: <bug-gnu-utils@gnu.org>.
    
19. Be sure to include the word ``sed'' somewhere in the ``Subject:'' field.
    
20. [root@localhost ~]#

复制代码

srzyhead

回复 5# yestreenstars

在aix里，sed，awk，grep，和外面的gnu的是不一样的
它们的版本跟着os走，只有aix自己维护，几乎不更新，基本可以当最老的版本看待，要想了解功能，man下，并查看man里提到的文档

要想和外面linux的程序完美兼容，你可以装个linux toolbox版本的
http://www-03.ibm.com/systems/po ... /toolbox/alpha.html

出处

我的就是aix的,目测linux toolbox也没按,悲催...
   

reyleon

1. awk '{{for(i=length;i<=20;i++)$0=$0","}}1' urfile

复制代码

kernel69

perl -lne '$str_length=length; $number=20-$str_length; print $_ ."," x $number' filename

回复 1# srzyhead


   

yestreenstars

回复 8# zooyo


    互相学习~