Foro - Perl en Español

¡Ok! Pues creo que no haré operaciones matemáticas... Pero por si acaso cambiaré la "," por el "." ...

Voy a pegar el código...

#!perl

use LWP::Simple;

print "Introduzca nombre del valor:\n";
$valor = <STDIN>;
print "Introduzca precio de compra:\n";
$compra = <STDIN>;
$contenido = get("http://bolsaphp.sukiweb.net/api/cv_api.php?usuario=nobo&%20api_key=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx&%20ticker=$valor");
my($precio)= $contenido =~ m/valor>(.+?)</;
$precio =~ s/[,]/./;
if ($precio <= $compra) {
compra acciones }
else {
(sleep 5 * 60)
}

¿Esto estaría bien? Lo que pretendo hacer es que si el valor que introducimos de compra es igual o mayor que el precio de la acción (entonces significa que ha bajado) la compramos. Sino es así quiero esperar 5 minutos y repetir la comprobación hasta que la compremos.

Sería con un while(), ¿ no ?

Creo que no lo estoy haciendo bien... El while() tendría que incluir al get, ¿no?

Porque lo que quiero hacer es que si no es igual o menor el precio de compra siga intentándolo hasta que lo sea, y entonces, compre.

Habría que incluir todo en el while(), ¿no? :S ¿ O me estoy complicando la vida ?

Ya lo pegué, esté un poco más arriba... Antes de escribir cómo sería, dime si voy encaminado o no... Lo que quiero hacer es comprobar el precio que yo quiero comprar con el precio de la acción. Si el precio de la acción es menor o igual, comprar la acción; si no, esperar 5 min. (sleep) y luego volver a intentar comprar la acción.

Debería incluir en el while() todo el rollo de get(), etc, etc, ¿ no ?

¡¡ Aaaaaaaaah, ajá !! Sí, es lo que hice ¡ja,ja,ja,ja! Por eso me di cuenta de que no iba a saber si había cambiado el precio ;D

Ahora lo postearí porque me da errores de sintaxis :S

#!perl

use LWP::Simple;

print "Introduzca nombre del valor:\n";
$valor = <STDIN>;
print "Introduzca precio de compra:\n";
$compra = <STDIN>;
while ($contenido = get("http://bolsaphp.sukiweb.net/api/cv_api.php?usuario=nobo&%20api_key=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx&%20ticker=$valor")
my($precio)= $contenido =~ m/valor>(.+?)</
$precio =~ s/[,]/./;)
{
if ($precio <= $compra) {
get ("http://bolsaphp.sukiweb.net/api/cv_api.php?usuario=nobo&api_key=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx&ticker=$valor&acciones=25&valor=$compra&tipo_de_orden=LIMITADA&intencion=COMPRA") }
else {
(sleep 5 * 60) }
}

Algo falla xD Esto no lo he vuelto a escribir en papel...
Me da error en la línea 10 con el "my"