Re: [Cascavel-pm] Módulo para utilizar "rules" em Perl5

[Nelson Ferraz]

On 3/13/06, Flavio S. Glock <fglock em gmail.com> wrote:
>       use Pugs::Compiler::Rule;
>
>       my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
>       my $match = $rule->match( 'abc' );
>
>       if ($match) {               # true
>             print $match;           # "abc"
>             print $match->from;     # 0
>             print $match->to;       # 3
>             print $match->[0];      # "ab"
>             print $match->[0][0];   # "a"
>       }

Sabe o que me assusta um pouco? É que isso se parece muito com Java:

      Pattern pattern = Pattern.compile("(.*):(.*)");
      Matcher matcher = pattern.matcher("10:20");
      if(matcher.matches())
      {
         System.out.println(matcher.group()); // 10:20
         System.out.println(matcher.group(1)); // 10
         System.out.println(matcher.group(2)); // 20
      }

[]s

Nelson