Re: Explanation of G Modifier

[WC -Sx- Jones]

gohaku wrote:

"What good is \G in a regular expression?"

while (<>) {
  chomp;
  PARSER: {
    m/ \G( \d+\b    )/gcx    && do { print "number: $1\n";  redo; };
    m/ \G( \w+      )/gcx    && do { print "word:   $1\n";  redo; };
    m/ \G( \s+      )/gcx    && do { print "space:  $1\n";  redo; };
    m/ \G( [^\w\d]+ )/gcx    && do { print "other:  $1\n";  redo; };
 }
}

Perl6 Faq ?
-Sx-

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>