Perl 정규 표현식이 무한 루프를 일으키는 이유는 무엇입니까?

Question

일부 텍스트의 "사이"를 잡는 코드가 있습니다. , 구체적으로는 foo $someword과 그 다음은 foo $someword입니다.

그러나 처음에는 "사이"에 갇혀서 어떻게 든 내부 문자열 위치가 증가하지 않습니다.

입력 데이터는 여기 저기에 개행 문자가있는 텍스트 파일로, 관련성이 적지 만 인쇄가 쉬워집니다.

my $component = qr'foo (\w+?)\s*?{'; 

while($text =~ /$component/sg) 
{ 
    push @baz, $1; #grab the $someword 
} 

my $list = join("|", @baz); 
my $re = qr/$list/; #create a list of $somewords 

#Try to grab everything between the foo $somewords; 
# or if there's no $foo someword, grab what's left. 

while($text=~/($re)(.+?)foo ($re|\z|\Z)/ms) 
#if I take out s, it doesn't repeat, but nothing gets grabbed. 
{ 
# print pos($text), "\n"; #this is undef...that's a clue I'm certain. 
    print $1, ":", $2; #prints the someword and what was grabbed. 
    print "\n", '-' x 20, "\n"; 
} 

Answer 1

업데이트 :

이

use strict; 
use warnings; 

use File::Slurp; 

my $text = read_file \*DATA; 

my $marker = 'foo'; 
my $marker_re = qr/$marker\s+\w+\s*?{/; 

while ($text =~ /$marker_re(.+?)($marker_re|\Z)/gs) { 
    print "---\n$1\n"; 
    pos $text -= length $2; 
} 

__DATA__ 
foo one { 
one1 
one2 
one3 

foo two 
{ two1 two2 
two3 two4 } 

that was the second one 

foo three { 3 
foo 3 foo 3 
foo 3 
foo foo 

foo four{} 

출력 : 한 번 더 업데이트를 추출 할 텍스트 내부에서 발생하는 'foo' 다루는

 
--- 

one1 
one2 
one3 


--- 
two1 two2 
two3 two4 } 

that was the second one 


--- 
3 
foo 3 foo 3 
foo 3 
foo foo 


--- 
}