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