Foro - Perl en Español

Quizás no haya un solo espacio entre el </span> y el </div>...

P.D. Recuerda que este es el foro Intermedio... aquí hay menos pistas que en el foro Básico

BORRADO por incumplir las normas del sitio.

BORRADO por incumplir las normas del sitio.

Si siempre tendrán el mismo formato, puedes aprovechar que sabes cuál es la última <div> contenida dentro de la que quieres. Esto me funciona:


No es muy bonito que digamos, pero funciona.

Saludos.

Borrado por incumplir las normas del sitio.

Tienes un problema, teofederico.

Según la licencia legal de este sitio, en la cláusula 3 (CONDUCTA), dice, refiriéndose al usuario que accede a la web:

«No utilizar medios automáticos, con inclusión de arañas, robots, rastreadores, herramientas de ataque a datos, o similares para descargar información del Servicio, salvo los motores de búsqueda de Internet (por ejemplo, Google) y archivos públicos no comerciales (por ejemplo, archive.org) que cumplen con nuestro archivo robots.txt;»

Eso quiere decir que no podemos ayudarte para extraer información de esta web, pues estaríamos violando esa licencia.

Entiendo perfectamente.

Gracias de todas forma por su ayuda, les repito que yo hacía años no tocaba esto y nada, me estoy poniendo de nuevo, había hecho algo similar, pero para detectar insultos y otras cosas en la publicaciones que hacían en una web.

Lamento haberlos envuelto en esto.

Saludos.

Bueno, el truco consiste en "no-dar-muchas-pistas" de qué es lo que queremos hacer...

No quitaré el hilo, pero sí esconderé el enlace a la web inicial.

Esta es mi solución:

Bueno, estoy impresionado... gracias

Me has cambiado todo ¡ja,jamja! por dios, qué desastre que soy...

Voy a intentar reproducir el código.

Tuve que quitar la librería Moderno Perl.

Recibí el resultado

Malformed UTF-8 character (unexpected non-continuation byte 0x67, immediately after start byte 0xe1) at C:\ProyectosPerl\Props\base.pl line 201.
Malformed UTF-8 character (unexpected non-continuation byte 0x74, immediately after start byte 0xed) at C:\ProyectosPerl\Props\base.pl line 210.
Malformed UTF-8 character (unexpected non-continuation byte 0x6e, immediately after start byte 0xf3) at C:\ProyectosPerl\Props\base.pl line 210.
Malformed UTF-8 character (unexpected non-continuation byte 0x61, immediately after start byte 0xed) at C:\ProyectosPerl\Props\base.pl line 210.
Sequence (?<... not terminated in regex; marked by <-- HERE in m/<h2><a[ ]href=" (?<URL>.+?) "> (?<t <-- HERE / at C:\ProyectosPerl\Props\base.pl line 210.

También uní todo (para probar).



Voy a seguir probando de está manera...

Claro que salen errores... si quitas módulos, es muy posible que salgan errores

Instalar módulos, en Perl, es bastante sencillo... No lleva mucho tiempo. Y algunos ahorran mucho trabajo. Fíjate que el programa se queda corto.

Lo que sí tiene que quedar claro, es que estamos en el foro Intermedio, así que, yo aquí, uso técnicas avanzadas (bueno, no demasiadas; no es el foro Avanzado )

La expresión regular se puede escribir así, con espacios y separada en líneas, gracias a la opción /x.

Una cosa que a lo mejor no te funciona, son las capturas con nombre: (?<nombre>...), que sólo funcionan a partir de Perl v5.10.

El módulo Modern::Perl activa varias opciones. Una de ellas es la

use feature ':5.10';

que activa las opciones nuevas de Perl v5.10; entre ellas, la sentencia say().

Y, bueno, usar utf8 te permite usar caracteres acentuados en los nombres de las variables. Por eso, puedo poner $página, en lugar de $pagina.

Un detalle importante... yo he creado mi programa en un entorno utf8 (en mi Linux). El "use open qw(:utf8 :std);" indica que la entrada estándar del programa (que no usamos) y la salida estándar (que sí usamos con el say()) deben salir los caracteres en esa codificación.

Necesitamos el módulo Encode porque la página que descargamos viene en esa codificación.

(Bueno, ahora que lo pienso, quizás no haga falta la línea 14, ya que en la 24 ya indicamos que el $contenido está en utf8. Edito: confirmado: el módulo Encode se puede ahorrar.)

El truco está en la línea 22. La variable $/ es el delimitador de los registros de entrada. Ahí podemos decir qué separan a unos registros de otros. En este caso, ponemos el comienzo de <div>, por lo que Perl se encargará de darnos las entradas, partiendo el $contenido por ese valor.

La línea 24, para mí, es un hito: es la primera vez que "abro" una variable escalar como si fuera un fichero (con open()). Lo aprendí hace poco, y en algunas situaciones, como esta, es muy útil.

La expresión regular de la línea 29 separa los componentes con espacios en blanco y en líneas separadas, gracias a /x como he dicho antes. Por eso, en la primera línea de la exp. reg. hay un "[ ]" porque ese espacio sí que es significativo para el patrón (no separa partes del patrón, sino que forma parte del propio patrón, de lo que estamos buscando). El resto de la exp. reg. no tiene misterio: siempre usamos .+? para buscar y/o capturar.

De hecho... he complicado demasiado el programa...

Se puede reducir a esto:

Bueno, al menos hemos aprendido cosas nuevas.