如何实现这样的功能

yestreenstars

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

复制代码

yestreenstars

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

复制代码

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

复制代码

聆雨淋夜

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

聆雨淋夜

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

复制代码

rulebook

回复 1# reallytrue

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

复制代码