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

[Hamilton Vera]

Nelson, muito obrigado, funcionou perfeitamente.

Desculpe a demora para responder.


Obrigado.

On 1/16/08, Nelson Ferraz <nferraz em gmail.com> wrote:
> > Tentei algo tolo como;
> >
> > $line =~ s/Folha  \d+/Folha  $count/;
> >
> > Só que não consigo manter os zeros a esquerda.
> >
> > Pensei em fazer um split e depois imprimir a parte numérica em separado,
> >
> > printf '%05s', $count;
> >
> > deu certo, mas gostaria de saber  uma forma mais galante para fazer isso.
>
> 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;
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Hamilton Vera
int Administrator (char Network[],char ComputationalSystems[]);
Seven Internet http://lib.seven.com.br
"Google is my shepherd, no want shall I know"