텍스트 블록의 선택적 인쇄에만 일치하는 줄이 있습니다

Question

두 줄 사이에 줄을 인쇄하는 한 줄짜리 줄이 있지만 * .pm과 일치하는 줄이있는 경우 다른 줄을 추가하고 싶습니다. .pm :

perl -e 'while(<>){s/^/$ARGV:/; print if m#VLOG {Updated files}# .. m#VLOG {Priority}#;}' 

샘플 데이터 : 모든 지원이 매우 감사

VLOG {Updated files} 
files/skel/usr/local/cp/Modules/vsap/config.pm 
files/skel/usr/local/cp/Modules/vsap/files/list.pm 
files/skel/usr/local/cp/lib/i386-linux-thread-multi/perllocal.pod 
files/skel/usr/local/cp/templates/default/cp/files/dirdialog.xsl 

VLOG {Removed files} 

VLOG {Priority} 

. 감사.

perl -e 'while(<>){s/^/$ARGV:/; push @save,$_ if m#VLOG {Updated files}# .. m#VLOG {Priority}#;} print @save;' 

지금 당신이 '가 .pm'로 끝나는 라인을 찾아 원하는 :

Answer 1

perl -ne 'BEGIN{ $/ ="VLOG {Priority}$/" } s/^/$ARGV:/gm; print $1 if /^(VLOG {Updated files}.*?\.pm.*)/sm' 

Answer 2

먼저, 인쇄 할 수있는 라인을 저장하고 끝을 인쇄해야

perl -e 'while(<>){s/^/$ARGV:/; do {push @save,$_; $sawPM = 1 if /\.pm/; } if m#VLOG {Updated files}# .. m#VLOG {Priority}#;} print @save if $sawPM;'