[Cascavel-pm] Substituindo números com zero a esquerda.

Alceu R. de Freitas Jr. glasswalk3r em yahoo.com.br
Segunda Janeiro 21 05:04:33 PST 2008


Só tenha cuidado aonde esse programa será
disponibilizado. O eval é útil mas pode executar mais
coisas que você gostaria de ele fizesse.

[]'s
Alceu

--- Hamilton Vera <hamilton.listas em gmail.com>
escreveu:

> Nelson, muito obrigado, funcionou perfeitamente.
> 
> Desculpe a demora para responder.
> 
> 
> Obrigado.
> 
> On 1/16/08, Nelson Ferraz <nferraz em gmail.com> wrote:
> > Você está no caminho certo.
> >
> > Agora pode combinar as duas soluções colocando um
> /e no final da
> > expressão regular, que significa realizar um
> "eval" no lado direito da
> > regexp:
> >
> >    my $line  = "Folha 1234";
> >    my $count = 5;
> >
> >    $line =~ s/Folha \d+/sprintf('Folha %05d',
> $count)/e;
> >
> >    print $line;



      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/


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