<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body>> From: luismottacampos@yahoo.co.uk<BR>> Date: Wed, 13 Jun 2007 15:45:01 +0200<BR>> <BR>> On Jun 13, 2007, at 3:25 PM, Flavio S. Glock wrote:<BR>> > Luis:<BR>> ><BR>> > use Regexp::Parser;<BR>> > use strict;<BR>> > my $rx = qr{<BR>> > a* # a's<BR>> > b+ # b's<BR>> > }x;<BR>> > my $parser = Regexp::Parser->new( $rx );<BR>> > print $parser->visual; # (?x-ism:a*b+)<BR>> ><BR>> > e o CPAN manda putamplexos para você.<BR>> <BR>> Obrigado... na verdade, eu estou tentando uma coisa menor.<BR>> Eu tenho um lugar para usar isso, e é apenas um log que eu tenho <BR>> de preencher.<BR>> Não me parece serviço o bastante para instalar uma biblioteca <BR>> deste tamanho (mesmo ela sendo pequena).<BR><BR>
Você pode tentar usar o Log4perl e definir um formato de log específico que atenda o que você quer: <A href="http://search.cpan.org/~mschilli/Log-Log4perl-1.11/lib/Log/Log4perl.pm#Log_Layouts">http://search.cpan.org/~mschilli/Log-Log4perl-1.11/lib/Log/Log4perl.pm#Log_Layouts</A><BR>
<BR>
Não sei se é menor no sentido que você procura, mas é melhor do que abrir um arquivo e fazer você mesmo todo o trabalho de jogar os dados lá.<BR>
<BR>
[]'s<BR>
Alceu<BR>
<BR>
<BR><br /><hr />Hotmail to go? Get your Hotmail, news, sports and much more! <a href='http://mobile.msn.com' target='_new'>Check out the New MSN Mobile</a></body>
</html>