[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