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

Flavio S. Glock fglock em gmail.com
Terça Março 14 05:19:56 PST 2006


Nélson:

este módulo é "perl5"!

Em perl6:

  'abc' ~~ /((.).)./;
  say $0;  # ab
  say $0[0]   # a

- Flavio S. Glock

2006/3/14, Nelson Ferraz <nferraz em gmail.com>:
> 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
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


Mais detalhes sobre a lista de discussão Cascavel-pm