Foro - Perl en Español

¡¡Sí!! ¡ja,ja,ja! Ya comenté que hacía tiempo que no tocaba Perl... Estaba usando la 5.8. Era otra de mis preguntas en el tintero, si debía actualizar justamente por estos temas

Muchas gracias. Voy a probar la 5.12 y te digo a ver qué tal

Otra cosa. Para compilar... No me acuerdo, usaba (creo) el dpkg, ¿puede ser? Para compilar incluyendo todas las librerías que incluía el código (valga la redundancia).

Gracias de nuevo

¿A qué te refieres con cambiar las comillas?

Can't find string terminator "'" anywhere before EOF at -e line 1.

Porque fijo que este es mi error...

En UNIX/Linux, se deben usar las comillas simples, para que el terminal no haga una interpolación del contenido. Ejemplo: si ponemos algo como "$variable" entonces creerá que $variable es parte del shell del sistema, y lo intentará interpolar, y claro, no es eso lo que queremos, porque en realidad esa variable forma parte de un programa Perl, no del shell. Por eso lo ponemos entre comillas simples: '$variable'.

En el caso de MSDOS/Windows, es justo al revés (comillas dobles por las simples, y viceversa).

Más información en Why don't Perl one-liners work on my DOS/Mac/VMS system?.

Por aquí ya hemos comentado que no suele ser normal el proceso de compilar las fuentes en un único ejecutable.

De todas maneras, hay unos cuantas hilos hablando del tema. Busca por compilar, pp, PAR, perl2exe, y consulta la pregunta How can I compile my Perl program into byte code or C?.

Ok, ok, ¡¡ vale !! Ya sé a qué te referías:

perl -MLWP::Simple -E "$contenido = get('http://bolsaphp.sukiweb.net/'); print "$contenido"

Pues sí parece que el problema era de mi versión de Perl

Gracias.

Ahora me devuelve este código de la página donde quiero ver el código:



Bien, esto funciona, ¡je,je,je! Ahora lo que necesito es guardar lo que hay entre <valor> y </valor>... Pero no se me ocurre cómo...

Había pensado con un if() y coger lo que haya entre <valor> </valor> pero para no tener que escribir <valor> en el código... Molaría coger "la cifra que esté separada por una "," ¿no? x,xx o xx,xx... Como mucho siempre va a ser 3 o 4 números... Sabiendo esto, ¿se podría coger esos numeritos, no?

Sí, se puede

Sólo basta algo de expresiones regulares.



Lo que hace es tomar dos enteros (\d) que tengan entre 1 y 3 dígitos ({1,3}) y estén separados por una coma. El while junto con el modificador g permiten que se analicen todos las ocurrencias en $contenido y no se detenga a la primera que encuentre.

La expresión regular la hice tomando en cuenta lo que está en el index de la web. Supongo que eso era lo que buscabas.

NOTA: Luego de analizar los resultados obtenidos y suponiendo que lo que quieres obtener es el dato valor en la web que mencionas, el código anterior además considera el dato cambio como ocurrencia válida. Para evitar aquello la expresión debería quedar así:



NOTA 2: La página a la que haces referencia en el post no devuelve ningún resultado en formato XML.

Saludos.

¡Me gusta la respuesta! Pero esto lo hago para refrescarme la memoria... ¿Sabes algún manual donde venga bien explicado el tema éste de los modificadores?

Por ejemplo, 1,3, ¿por qué es buscar un valor de 3 cifras y no números entre el 1 y el 3? ¿Cómo es para decir que estén separados por una ","?

Tendría que ser de 4, por eso...

Por ejemplo, la $1 es una variable global, ¿no? ¿Que se refiere... a... lo que este en 1ª posición?

Es que esto lo hago para refrescarme la memoria, no quiero copiar y pegar Está bien la explicación y lo entiendo bastante bien pero me gustaría saber qué hace cada letra y cada símbolo, ¿sabes?

Lo que yo decía era sin tener que poner valor> porque me parecía un poco cutre xDD Pero bueno, si no se puede hacer de otra forma lo haremos así

¡¡ Muchas gracias !!

Otra cosa, lo del tema del xml solo los usuarios registrados pueden usar la API de compra / venta...

Pero bueno, sí... También se podría hacer sobre el index Todavía no sé cómo lo haré Porque se me han ocurrido nuevas ideas al decir lo del index ¡je,je,je,je!

Claro, en este mismo sitio hay dos tutoriales enfocados a expresiones regulares[1][2], ahí están las respuestas a tus dudas.

Respecto a la solución propuesta, bueno, esa es la única manera que se me ocurre por el momento, quizás alguien más en el foro tenga una mejor idea.

Otra cosa, realizar peticiones a páginas que requieren autenticación es un poco más complejo que lo hecho hasta ahora. Si te interesa puedes echarle un vistazo al módulo WWW::Mechanize.

Saludos.

nobody escribiste:¿Sabes algún manual donde venga bien explicado el tema éste de los modificadores?

Puedes empezar por la página Expresión regular, de la Wikipedia.

nobody escribiste:Por ejemplo, 1,3, ¿por qué es buscar un valor de 3 cifras y no números entre el 1 y el 3? ¿Cómo es para decir que estén separados por una ","?

El 1,3 indica que esperamos un mínimo de 1 dígito y un máximo de 3 dígitos.

nobody escribiste:Por ejemplo, la $1 es una variable global, ¿no? ¿Que se refiere... a... lo que este en 1ª posición?

$1 se refiere a lo capturado por el primer par de paréntesis del patrón de la exp. reg.

nobody escribiste:Lo que yo decía era sin tener que poner valor> porque me parecía un poco cutre xDD Pero bueno, si no se puede hacer de otra forma lo haremos así

Es necesario poner valor>, porque sino, Perl no sabría de qué etiqueta estamos hablando. Se puede hacer de otras maneras. Por ejemplo:

con esto, capturamos todo lo que haya entre las etiquetas <valor>. Quedaría por traducir $1 a un número, teniendo en cuenta que habría que "interpretar" el significado de la ",".

Por ejemplo, si decidimos que la coma es un separador decimal, podemos cambiarlo a '.', que es separador decimal anglosajón (y que es el que Perl entiende), para luego pasarlo a un número de punto flotante:

Perfecto, ahora me voy a currelar... Cuando vuelva me estudio todo.

El tema de autentificarse, lo puedo hacer por la API key que es mi contraseña de usuario en hexadecimal Por eso no hay problema.

Ok, era solo para hacer algo más "sofisticado", sin tener que usar valor pero bueno, así va bien también

Luego os digo cómo va quedando y qué se me ocurre

¡¡ Gracias a los dos !!

Entonces, ¿Perl no interpreta las ","? ¿Hay que cambiar la "," por un "."?

Hummm... Bueno, me ha venido bien la página de expresiones Ahora entiendo todo perfectamente (o eso creo).

my($valor) = $contenido =~ m/valor>(.+?)</;

Eso significa que dentro de contenido buscaremos valor> y cualquier carácter hasta <...

¿Qué pasaría si no pusiéramos el +??

Y luego, hay que substituir la ',' por un punto:

$valor =~ s/[,]/./; # ya tenemos el número

EDITO: No entiendo muy bien el porqué de substituir la "," ... A mi me imprime el precio con la "," :S

¿Es para futuras operaciones?