Rob Dixon wrote:
Vyacheslav Karamov wrote:
my @matches = $text =~ /$regex/g;
foreach my $arr (@matches)
{
print "$arr\n" if defined $arr;
}
You can retrieve the start and end positions of the last successful matches from
the @- and the @+ arrays. The start and end of $1 is in $-[0] and $+[0] for
The start and end of $1 are in $-[1] and $+[1]. $-[0] and $+[0] contain
the start and end of the last successful match.
perldoc perlvar
instance. Like this
my $regex = qr/\([^)]+\)|\[[^]]+\]/s;
while ($text =~ /($regex)/g) {
print "$-[0] - $+[0] = $1\n";
while ( $text =~ /$regex/g ) {
print "$-[0] - $+[0] = ", substr( $text, $-[0], $+[0] - $-[0] ), "\n";
}
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
