Re: Perl Pattern Matching & RegEx's

The main problem is matches in /g cannot overlap. This can be solved by using look-ahead, though:

#!/usr/bin/perl
use warnings;
use strict;
use feature qw(say);

my $string    = 'AAAbcdAAAdcbAAAbbdAAAxAAAA';
my $delimiter = 'AAA';
my @positions;
push @positions, pos($string) while $string =~ /(?=$delimiter)/g;
for my $from (@positions) {
    for my $to (grep $_ - length $delimiter > $from, @positions) {
        say substr($string, $from, $to - $from) . $delimiter;
    }
}
[download]

Update: Typo fixed. Thanks jaiieq, damn netbooks.

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: Perl Pattern Matching & RegEx's Download Code

Replies are listed 'Best First'.
Re^2: Perl Pattern Matching & RegEx's by jaiieq (Novice) on Mar 07, 2013 at 14:45 UTC
This is exactly what I needed. Which also gives me the ability to easily change the delimiter to say 'AA' and produce the output I need. Thank you. There is a small typo in your code as you have a quote after $delimiter in the say line	[reply]
Re^2: Perl Pattern Matching & RegEx's by Dallaylaen (Chaplain) on Mar 07, 2013 at 15:34 UTC
Wow, substr is so much better here than split/join!	[reply]