Pourquoi mon regex Perl provoque-t-il une boucle infinie?

Question

J'ai du code qui saisit le "entre" d'un texte; spécifiquement, entre un foo $someword et le suivant foo $someword.

Cependant, ce qui se passe est qu'il se bloque au premier "entre" et en quelque sorte la position de la chaîne interne ne s'incrémente pas. Les données d'entrée sont un fichier texte avec des sauts de ligne ici et là: ils sont plutôt hors de propos, mais facilitent l'impression.

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

Mise à jour: Encore une mise à jour pour faire face à 'foo' survenant à l'intérieur du texte que vous souhaitez extraire:

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{} 

Sortie:

 
--- 

one1 
one2 
one3 


--- 
two1 two2 
two3 two4 } 

that was the second one 


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


--- 
}