[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