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

[Jose Antonio Galicia]

On Thu, 12 Dec 2002, Ricardo Cumberbatch L. wrote:

> > > Y lo q quiero es q en pantalla salga 01,02,03,04,...09,10,11,12...,etc,etc

> >  Usa printf, su sintaxis es similar a su contraparte en 'C'

> > 	perl -e 'for (1..5){printf "%05d\n", $_}'

> Otra pregunta como puedo concatenar eso a otra variable pero q quede con
> los dos digitos siempre ???

 Este... depende de lo que quieras hacer. Para concatener
usas el operador "." pero lo puedes resolver desde el
printf:

	perl -e '$a="num"; for (1..5){printf "$a%05d\n", $_}'

 Ahora, si lo quieres para otra cosa puedes hacerlo de otra
manera:

	perl -e '$a="num"; for (1..5){$b= sprintf ("$a%05d", $_); print "$b\n"}'
	perl -e '$a="num"; for (1..5){$b= $a . sprintf ("%05d", $_); print "$b\n"}'

 Y si lo que pretendes es hacer un foliador puedes hacerlo
más fácil:

	perl -e '$a="num0000"; for (1..5){$a++; print "$a\n"}'


> Como le puedo hacer y gracias por la ayudas

 Y no esta de más:

	http://www.google.com/search?q=tutorial+perl&lr=lang_es

 Saludos,
 Toño
---
Given its constituency, the only thing I expect to be "open" about [the
Open Software Foundation] is its mouth.
		-- John Gilmore