如何实现这样的功能

reallytrue

如何实现这样的功能，如果某一行的第一个字符不是A，就把这一行的内容合并到上面一行去？

比如：
A012
043
A0392
A93021
320

想要得到的结果是
A012043
A0392
A93021320

谢谢

reb00t

1. 我不是大神。
   
2. 
   
3. 先来一个复杂点的。。
   
4. 
   
5. awk '!/^A/{printf s;s="";}{s=s?s"\n"$0:$0}END{printf s}' 1
   
6. 
   
7. 结果：
   
8. A012043
   
9. A0392
   
10. A93021320
    
11. 
    
12. 
    
13. 再来一个sed
    
14. sed -nr ':a;$!N;/\n[0-9]+.*/{s/\n//;ba};P;D;' 1
    
15. A012043
    
16. A0392
    
17. A93021320
    

复制代码

sequencing

来一个丑陋的：

1. perl -pe 's/\n//g' new |sed 's/A/A\n/g'

复制代码

sequencing

sequencing 发表于 2014-09-27 11:22
来一个丑陋的：

如果某行中间有A就不行了

reyleon

1. sed ':1;N;/\nA/!s/\n//;t1;P;D' file

复制代码

zerostudy

1. 
   
2. gawk '{if(substr($0,1,1) ~ /[A-Za-z]/){s=s"\n"$0}else{s=s""$0}}END{print s}' c
   

复制代码

木子霜葶

1. awk '{if($0 ~ "^A") {if(pre != "") print pre; pre = $0} else {pre = pre "" $0}} END{print pre}' a

复制代码

zxy877298415

回复 1# reallytrue
awk '{if((!t)&&($0~/^A/)) {t=$0} else if($0~/^[0-9]/){print t$0;t=""} else if($0~/^A/) {print t;t=$0}}' FILE


   

yestreenstars

1. sed ':1;N;/\nA/{P;D};s/\n//;b1'

复制代码