Re: Pattern Matching Question

Dr.Ruud:

> #!/usr/bin/perl
> use strict; use warnings;
>
> { local ($,, $\) = (':', "\n");
>
> $_ = 'xxxxAAAAAAAAAASDFGHJKLxxxx';
> my $Head = 'AAAAAAAA';
>
> print $Head, $1, substr($',0,7) while /(?<=$Head)(.)(?=.{7})/ig;
> }

Revision:

#!/usr/bin/perl
use strict; use warnings;

my $HugeString = 'xxxxAaAaAaAaAaSDFGHJKLxxxx';
my $Head = 'AAAAAAAA';

print "$1$2$3\n"
while $HugeString =~ /(?<=($Head))(.)(?=(.{7}))/ig;

--
Affijn, Ruud

"Gewoon is een tijger."

.

Relevant Pages