如何实现这样的功能

reallytrue

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

比如：
A012
043
A0392
A93021
320

想要得到的结果是
A012043
A0392
A93021320

谢谢

rulebook

回复 1# reallytrue

1. sed -r '1{:1;N;$!b1; s/\n([^A])/\1/g}' o

复制代码

聆雨淋夜

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

复制代码

聆雨淋夜

sed '/^A/{:1;N;/\nA/!s/\n//;t1;D}' file

yestreenstars

1. try:
   
2.     with open('test.txt') as file:
   
3.         count = 0
   
4.         for each_line in file:
   
5.             each_line = each_line.strip('\n')
   
6.             count += 1
   
7.             if each_line[0] == 'A' and count > 1:
   
8.                 print()
   
9.             print(each_line, end='')
   
10.         print()
    
11. except IOError:
    
12.     print('No such file. ')

复制代码

yestreenstars

1. perl -ne 'chomp;print $/ if /^A/ && $. > 1;print;END{print $/}'

复制代码

yestreenstars

1. awk -vRS='\nA' '{gsub(/\n/,"");if(NR>1)$0="A"$0}1'

复制代码

yestreenstars

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

复制代码

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


   

木子霜葶

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

复制代码