perl에서 문자 사이의 줄을 포함하도록 파일을 구문 분석하는 방법은 무엇입니까?

Question

파일에서 perl을 사용하여 + s를 포함하여 + s 사이의 행을 인쇄하는 방법은 무엇입니까? 파일에이 줄이 있습니다.

blah blah 
+++++++++++++++++++++++++++++++++ 
this line should be included. 
this line should be included too. 
+++++++++++++++++++++++++++++++++ 
abcd 100101001010 

원하는 출력

:

이 같은

+++++++++++++++++++++++++++++++++ 
this line should be included. 
this line should be included too. 
+++++++++++++++++++++++++++++++++ 

Answer 1

당신은과 같이 범위 연산자 ...를 사용할 수 있습니다

perl -nlwe 'print if /^\++$/ ... /^\++$/' input.txt 

3 ~ 도트 범위 연산자에는 여기에서 사용할 수있는 특별한 기능이 있습니다. perldoc perlop

가입일 [은 "두 점" ".."연산자] 오른쪽 피연산자를 테스트하고 (AWK에서와 같이)에 해당되었다 동일한 평가에 오류가 있지만, 여전히 한번 true를 반환 할 수있다. sed에서와 같이 다음 평가 때까지 오른쪽 피연산자를 테스트하지 않으려면 두 개 대신에 세 개의 점 ("...")을 사용하십시오. 다른 모든면에서 "..."은 ".."처럼 행동합니다.

Answer 2

뭔가 일할 수 :

while(<>){ 
    print if /^\++$/ .. /^\++$/; 
}