[Perl] Impresion de 2 digitos en vez de 1 ???

Adrian Galindo agalindo@liceaga.facmed.unam.mx
Thu, 12 Dec 2002 12:52:40 -0600


Ricardo Cumberbatch L. wrote:

> Disculpen mis insistencia pero al yo decir concatenar es para poder usar
> dicho valor en otro proceso.
> 
> Ejm:
> 
> num01
> .
> .
> .
> 
> adduser num01
> 
> por dar un ejemplo,
> 
> Gracias por la ayuda,


Pues mira mi estimado, con todo respeto, tienes que ponerte a estudiar 
para poder programar. Los manuales que vienen con la misma instalación 
de Perl están muy completos. Nomás teclea:

man perl
man  perlfunc

Sobre tu pregunta, pues como siempre, hay más de ua forma de hacerlo. 
Siguiendo con lo que mencionó Toño, puedes usar la función sprintf. En 
el manual mencionado viene su descripción.

...

Pero bueno, aquí está lo que pides:
perl -e 'for (1..10){$var1 = "num".sprintf "%02d", $_; print "$var1\n"}'

Saludos.
Adrián.