Foro - Perl en Español

Hola,

Tengo el siguiente programa:



Lo que me muestra en pantalla es : 1,2,3,4,5,6,7,8,9,10,11

Y no entiendo por qué no muestra : 0,1,2,3,4,5,6,7,8,9,10
que a mi parecer es lo que debería hacer, puesto que my $i=0.

¿A qué es debido?

¡Muchas gracias!

Bueno, porque comienza a contar desde 0 hasta 10, o sea 0 es el punto de partida y comienza a incrementar a partir de ahí...

En la pantalla te muestra 1,2,3,4,5,6,7,8,9,10,11 por la condición que le pusiste al while().

Con esto bastaría:


Saludos.

¡Muchas gracias !

Pues no, erv-Z, no es debido a que la condición diga que debe guardar los valores mayores que 0.

Analizando la línea:
push @numeros, $i while $i++ <= 10;

Primero, Perl prueba la condición.
Como $i vale 0, la condición es cierta ($i es menor o igual que 10).
A continuación, Perl incrementa $i, por el efecto del post-incremento.
Y luego, con push, guarda el valor de $i.

De resultas de eso, nunca se guarda el primer valor de $i, ya que es incrementado antes de ser almacenado.

Si chukiemporio desea guardar ese valor, lo que tiene que hacer es incrementar $i en otro sitio:
push @numeros, $i++ while $i <= 10;

O hacer trampas e inicializar $i con un valor menor:
my $i = -1;
push @numeros, $i while $i++ <= 10;

Y del valor final, pues eso sí que depende de la condición de parada.