[Perl] Re: FORMATO URGENTE

[Funky Monky Superfunkylistc]

Bueno, por que no instentas algo así:
 my $var=algo_que_devuelve_digitos();
my $relleno=´0´ x (length($var) > 10 ? 0 : (10 - length($var)));
print $relleno,$var,"\n";
  algo_que_devuelve_digitos() es precisamente lo que te está generando los
digitos que quieres completar con ceros, $relleno es el número de 0's con
vas a concatenar
a $var para tener el formato que quieres, sólo hago una pequeña comprobación
de que $var tiene menos de 10 digitos y el resultado se utiliza para generar
las repeticiones de
´0´.
  O sea que si en $var tienes un 10, $relleno tendría 8 ceros ya que $var
tiene dos digitos y el formato final sería 0000000010.
 Espero te sirva esto.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: http://tlali.iztacala.unam.mx/pipermail/perl/attachments/20050925/5c11214a/attachment.html