交换用在UNIX模式匹配一​​个连续行

Question

任何一个可以帮助我在SED/AWK/perl的

输入文件

Start variable 1 
End variable 2 
A 
Z 
Next 

Start variable b 
End variable a 
X 
Y 
Next 
... 
... 
... 

Start variable m 
End variable n 
M 
N 
Next 

如果模式匹配End发现，交换排序了这一点其连续行

输出文件：

Start variable 1 
A 
End variable 2 
Z 
Next 

Start variable b 
X 
End variable a 
Y 
Next 
... 
... 
... 

Start variable m 
M 
End variable n 
N 
Next 

Answer 1

简单的Perl的解决方案。 $n代表“now”，$b代表“之前”，即“前一行是End”。

perl -ne 'print unless $n = /^End$/; print "End\n" if $b; $b = $n' 

有关更新版本的问题，只是增加$l记行要打印：

perl -ne 'print unless $n = /^End /; $l = $_ if $n ; print $l if $b; $b = $n' 

或者，equivalen但较短：

perl -ne '$n = /^End/and $l = $_ or print; $b and print $l; $b = $n' 

Answer 2

sed解决方案：

sed -n '/^End\s/{h;n;p;g};p' inputfile 

Answer 3

sed -n '/^End/{h;n;G};p' inputfile 

这会做+