Foro - Perl en Español

¡Saludos!

Tengo un pequeño código, en el cual hago una consulta a una web, y quiero obtener los ID que identifican cada uno de los artículos de dicha web.

El formato de ID para cada articulo es el siguiente:
<li class="view-item" id="ITEM22483">
Todos los IDs tienen el mismo formato y solo hay un por articulo, solo cambia el "ITEM22483".

Tengo la siguiente parte del código:

my $mech = WWW::Mechanize->new();
$mech->get($url);
my $output_page ...

Hola,

Mi pregunta es: ¿cómo puedo generar un archivo .XML desde Perl, partiendo de un formato ya dado y unas consultas a mi base de datos?

De antemano, muchas gracias.

¡Hola!

Necesito comparar entre 2 líneas para saber si son iguales o no en ciertas partes.

Para esto la dividí con split(), pero no sé cómo comparar el valor de la línea 1 con el de la línea 2.

Gracias :D

Bueno, mi problema es el siguiente: encontré un crawling web en Perl en el foro, el cual lo que quiero hacer es que cada URL que obtenga la guarde en un arreglo; así llenar cada posición del arreglo con una URL.

También sería hacer un arreglo dinámico en Perl, que me diga si encontró 20 URL que se detenga el llenado del arreglo.


ESTE ES EL SCRIPT DEL CRAWLING:

use LWP::UserAgent;
use HTML::LinkExtor;
my ...

Tengo los siguientes módulos.

use Mail::POP3Client;
use IO::Socket::SSL;

He logrado la conexión con la autentificación pero mi duda es cómo enviar un correo a otra cuenta en Gmail. Encontré este post: http://perlenespanol.com/foro/envio-adjunto-gzip-con-smtp-gmail-t6711.html. El problema es que él usa el siguiente módulo:

Net::SMTP::TLS

Y yo necesito hacerlo con los módulos antes mencionados.

¿ Alguien me puede ayudar ?

Hola a todos. Me acaba de surgir un problema a la hora de generar un .exe con ParPacker. Durante todo este tiempo lo he estado generando bien pero me acaba de dar un error que no sé por qué. Cunado pongo:

"pp -o programa.exe interfaz.pl"

me dice:

"No Perl script found in input"

He estado mirando en Internet y pone:

"(F) You called perl -x, but no line was found in the file beginning
with ...

Buenas noches,

He estado tratando de hacer un código en Perl que me permita tomar de una carpeta un número de archivos de texto y ponerlos en otra carpeta que se encuentra vacía. Para ésto tengo una lista de la carpeta 1 con todos los nombres de los archivos y tengo otra lista con solo los archivos que quiero pasar a la otra carpeta. El nombre de cada uno de los archivos está compuesto de ...

Buenos días,

Tengo un archivo de 1.2 TB y al intentar abrirlo desde un programa hecho en Perl me muestra el mensaje: your version of Perl does not support large files.

La configuración de mi PC es :

SO : CentOS 6.2 64 bits
Kernel : 2.6.32-220.el6.x86_64

Procesador : Core i7 3.4 GHz
Memoria : 16 GB

Version Perl : 5.10.1

Por favor, ¿cuál es la forma de habilitar archivos grandes?

Gracias,

Daniel López

Quiero comprobar la lectura del archivo "/etc/inetd.conf", para luego verificar su configuración, pero según el script no existe y esto es erróneo.

Lo verifiqué como usuario "root" y me dice exactamente lo mismo.

#!/usr/bin/perl
use Term::ANSIColor qw(:constants);
my $FICHERO4 = '/etc/inetd.conf';
my $estatus4 = stat($FICHERO4);

if ((! defined $estatus4) || (-r $FICHERO4)) {
print BOLD, RED, 'No existe', RESET, " El archivo $FICHERO4 no existe en el sistema o no puede ser accedido\n";

} ...

Estimados,
Estoy tratando de parsear la siguiente web, ya que me gustaría ver la información en consola y no por web, ya que ésta mete mucha publicidad.

El sitio es:
http://91.123.198.225/Personas/APELLIDO ... xxxx&Sex=M

Aquí obtenemos una tabla con información pero no sé cómo parsear el HTML.

Alguien me puede ayudar.

Muchas gracias.