Foro - Perl en Español

Con solo formatear el código, con la ayuda de perltidy, por ejemplo, ya se aprecian los errores, como el comentado por erv-Z.



Te aconsejo que uses un editor de textos con coloreado de sintaxis.

En cuanto a la solución del problema, yo lo haría con un do{}until();, es decir "haz esto-hasta que-se cumpla la condición". O, invirtiendo la condición, haciendo un do{}while();, que equivale a un "haz esto-mientras que-se cumpla la condición".

(no probado)

nobody escribiste:Si el precio que yo le doy para comprar es menor (por lo tanto la acción está más cara), espera 5 min y vuelve a comprobar el precio... ¿no?

El programa está bien.

$precio es el valor actual de la acción
$compra es el precio al que queremos comprar la acción.

La condición

if ($precio > $compra) {
sleep 5*60;
}

quiere decir: si el $precio de la acción es-mayor-que el valor de $compra indicada, esperamos 5 min. Y a continuación,

while ($precio > $compra);

quiere decir: repite el bucle mientras el $precio de la acción siga siendo mayor que el precio al que le quiero comprar.

Suena un poco raro el ver dos condiciones iguales y seguidas, pero es lo que estás diciendo: "Si el precio que yo le doy para comprar es menor (por lo tanto la acción está más cara), espera 5 min _y_ vuelve a comprobar el precio".

nobody escribiste:Por lo tanto, sería así:

## Condición
if ( $precio < $compra ) { # si el $precio de venta es superior al de $compra deseada
sleep 5 * 60; # esperamos 5 min
}

} while ($precio => $compra); # repetimos mientras se cumpla la condición

Fíjate que has equivocado lo que quieres decir en la condición, con lo que estás escribiendo en el comentario...

Y el operador de comparación '=>' no existe en Perl. Se escribe así: '>='

nobody escribiste:PD: Utilizo perleditor, ¿ cuál me recomiendas ?

Si estás en Windows, es bastante bueno. Yo he usado Notepad++, Komodo y Eclipse+e-p-i-c. El más fácil y rápido de instalar es Notepad++, desde luego, pero es solo eso, un editor. En cambio, Komodo y Eclipse+e-p-i-c son capaces de ejecutar y depurar programas. Komodo era de pago, pero tenía una versión recortada, que era gratuita. ¡Ah!, y Padre.

Esta es otra versión, por si te parece más fácil.

nobody escribiste:En el while (1) ¿Por qué el "1"?

while() necesita una condición. Necesitamos darle una condición que sea siempre verdadera para que el bucle sea infinito. El "1" es una expresión que siempre es verdadera (a diferencia de "0", que siempre es falsa). Pero también puedes usar la cadena "forever" o la "felices para siempre". De hecho, puedes usar cualquier cadena que no sea "0" o "" (la vacía).

nobody escribiste:En las constantes, ¿las comillas serían dobles (para win2)?

Las comillas importan, según el sistema operativo, si escribimos código Perl en la línea de comandos. Dentro de un programa, no importan. Bueno, sí... pero de otra manera: las dobles comillas realizan interpolación, mientras que las simples, no. (Más información en perldoc perlsyn)

nobody escribiste:otra cosa... ¿Por qué pones en las variables "<>"?

"<>" es lo mismo que "<STDIO>", es decir, leer desde la entrada estándar. Queda más corto...

nobody escribiste:El chomp(), yo no lo usaba y funcionaba. ¿Es totalmente necesario? ¿O es para evitar futuros problemas?

Ya que vas a mandar información en una URL, es mejor quitarlos.

En perldoc perlsyn, en la sección Truth and Falsehood (Verdad y Falsedad) se indican los valores que son verdaderos y falsos, en Perl.

Es muy fácil: en Perl solo hay cuatro valores que sean "falsos". Los demás, son verdaderos.