Re^3: Perl Regex Repeating Patterns

in reply to Re^2: Perl Regex Repeating Patterns
in thread Perl Regex Repeating Patterns

The following regex worked properly. ... If there is a better way to do this ...

Even after adding (just for the heck of it) a closing } brace, all I get is an infinite loop. What code are you running?

>perl -wMstrict -le
"my $string=\"AAABBBCCCCDDDEEEFFFGGGHHHIII\";
 my @patterns=('BBB','DDD');
 my @index;
 foreach(@patterns){
 while($string=~m/\G([A-Z]{3})+?$_/g){
 push(@index,$-[2]);
 pos($string)=$-[2];
 print 0+@index; <STDIN>;
 }
 }
"
1

2

3

4

5

...

Terminating on signal SIGINT(2)
[download]

Comment on Re^3: Perl Regex Repeating Patterns Select or Download Code

In Section Seekers of Perl Wisdom