[Cascavel-pm] Logando Expressões Regulares complexas...
Flavio S. Glock
fglock em gmail.com
Quarta Junho 13 07:04:03 PDT 2007
Ah, se é só para o log, que tal:
use strict;
my $rx = qr{
a* # a's
b+ # b's
}x;
my $parser = "$rx";
$parser =~ s/\n/NL/g;
print $parser;
resultado: (?x-ism:NL a* # a'sNL b+ # b'sNL )
- Flavio S. Glock
Em 13/06/07, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> On Jun 13, 2007, at 3:25 PM, Flavio S. Glock wrote:
> > Luis:
> >
> > use Regexp::Parser;
> > use strict;
> > my $rx = qr{
> > a* # a's
> > b+ # b's
> > }x;
> > my $parser = Regexp::Parser->new( $rx );
> > print $parser->visual; # (?x-ism:a*b+)
> >
> > e o CPAN manda putamplexos para você.
>
> Obrigado... na verdade, eu estou tentando uma coisa menor.
> Eu tenho um lugar para usar isso, e é apenas um log que eu tenho
> de preencher.
> Não me parece serviço o bastante para instalar uma biblioteca
> deste tamanho (mesmo ela sendo pequena).
>
> Mas obrigado de qualquer jeito :-)
> Putamplexos!
> --
> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> Perl fanatic evangelist, and amateur {cook, photographer}
>
>
> _______________________________________________
> 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