[SP-pm] Substituicoes balanceadas

[Gabriel Vieira]

É.. da pro gasto hahaha

Acho q ainda da pra diminuir em ;P

Abraços
----- Original Message ----- 
From: "Marco Lima" <marco.lima em e-via.com.br>
To: <saopaulo-pm em mail.pm.org>
Sent: Wednesday, February 08, 2006 10:55 AM
Subject: Re: [SP-pm] Substituicoes balanceadas


Salve Monges !

Se eh para rodar em uma pílula !!

perl -e
'$*=shift;*_=\{"textit"=>["i","/i"],"textbf"=>["b","/b"]};{length($*)
while $*=~ s/\\(\w+)\{([^{}]*)\}/<$_->{$1}[0]>$2<$_->{$1}[1]>/g};*_=**;
print;' 'abc abc abc \textit{abc abc} abc \textit{abc abc \textbf{abc
\textbf{abc abc} abc} abc} abc.'


>> Olá,
>>
>> Bom, daqui a pouco o código vai caber numa pílula!  :)
>> Bem legal, obrigado pela ajuda e enriquecimento cultural em Perl...e
>> também literário...Afinal, este 42 está na base 10 ?  :)
>>
>> Abraços,
>> Roberto

[  ]'s


--

Marco Lima
J. A. P. H.

marco.lima em e-via.com.br
mago em rio.pm.org
mago em cpan.org

Sociedade Perl do Brasil   |   http://www.perl.org.br
Perl Monks                 |   http://www.perlmonks.org
Brasil Perl Mongers        |   http://brasil.pm.org

Register Linux User #355235
Slackware Linux, for the subgenius

"Ninguém é tão grande que não possa aprender, e nem tão pequeno que
não possa ensinar"
_______________________________________________
SaoPaulo-pm mailing list
SaoPaulo-pm em pm.org
http://mail.pm.org/mailman/listinfo/saopaulo-pm