[SP-pm] Substituicoes balanceadas

Marco Lima marco.lima em e-via.com.br
Quarta Fevereiro 8 04:55:59 PST 2006


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" 


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