Foro - Perl en Español

Tengo las siguientes líneas:



salida:



Bien, funciona como quiero, pero si el bucle es mucho más largo (for my $i ( 1 .. 200 )), tendría que incluir cientos de líneas.

Como 3,6,9... son múltiplos de tres, me figuro que hay una solución sencilla.

0 == $i % 3 esta línea me definiría los múltiplos de tres.

Así que intenté esto:



pero me da esta salida:



¿Cómo puedo realizarlo?

Para evitar que salgan negativos, te vale con comprobar si $i > 3.

Y en el

if ( $i > ( 0 == $i % 3 ) )

fíjate que estás comparando si $i es mayor que una comprobación (que siempre valdrá 0 o 1). En realidad, esa comprobación la puedes reducir a

if ( 0 == $i % 3 )

Es decir, es verdadero si $i es múltiplo de 3.

Juntando las dos condiciones, tenemos

if ( $i > 3 and 0 == $i % 3 )

Gracias explorer, pero sigue sin funcionar.


la salida que me da es:

0 1 2 3 4 3 6 7 6

y necesito que me dé:

0 1 2 1 2 3 2 3 4

Por lo que veo, se trata de recorrer una secuencia de tres números consecutivos, incrementándose en uno cada vez.

Quizás la solución sea tan sencilla como esta:

Por lo que veo, se trata de recorrer una secuencia de tres números consecutivos, incrementándose en uno cada vez.

Sí, así es, pero hasta un máximo total al del bucle.

Por ejemplo si la línea for my $i ( 1 .. 9 )

La salida de tu script es:
0 1 2 1 2 3 2 3 4 3 4 5 4 5 6 5 6 7 6 7 8 7 8 9 8 9 10

y necesito que me dé:

0 1 2 1 2 3 2 3 4

No quería cambiar esto:

for my $i ( 1 .. 9 )

ya que ese bucle, en mi código final ejecuta otras cosas.

Puedes generar la secuencia antes, guardarla en un array, y luego recuperarla en un bucle, en la longitud que quieras.

Me gusta la solución que le diste, pero...
¿se puede hacer si los números están guardados en un archivo?

Es que me estoy liando al intentar aplicarlo.

Me explico: imaginemos que tenemos un archivo con los números del 1 al 200, y que el archivo se llama numeros.txt.



¿Cómo puedo aplicarlo si los números son leídos y no generados?

En aquella parte del programa donde necesites acceder a estos números, sustituyes el código que tenías para calcularle, por un simple $p = shift(@NUMEROS);, y así obtendrás, cada vez, un valor distinto.

¡bufff!, perdona mi torpeza, pero ahora sí me perdí totalmente .

Pues que primero lees los números desde el fichero tal y como has mostrado antes, metiéndolos en el array.

Ahora solo queda irlos sacando a medida de que los vayas necesitando. Una forma de hacerlo es con la función shift(), que extrae el primer elemento de un array.

Eso también quiere decir que el array es modificado (se va reduciendo en un elemento cada vez). Si vas a necesitar usar el array más de una vez, guarda el array de los números en otro temporal, del que sacarás copia cada vez que necesites reiniciar la lista de números.