Foro - Perl en Español

Hola, tengo el siguiente texto

<control>pongo uno
uno
<control> pongo dos
dos
<control> pongo tres
tres


Mi duda es cómo usar una expresión regular para capturar el último comando que es "pongo tres" sin saber cuál es, me refiero a una expresión regular que siempre capture el comando del último <control>

¿ Alguien me puede ayudar ?

Hola. Tengo el siguiente código:

#!usr/bin/perl

use Tk;

my $ve = MainWindow->new();
$ve->geometry("300x600+20+20");
$ve->resizable(0,0);
$ve->title("Test");

my $body = $ve->Text()->place(-x=>50,-y=>50);
$body->insert("end",">");

$ve->bind($body,"<Enter>"=> sub {
print "yeah\n";
});

MainLoop;

El problema es que me aparece yeah a cada momento, y solo me tendría que aparecer cuando le dé el enter.

¿ Alguien me puede ayudar a corregir el código ?

El próximo 10 de marzo, el grupo de los Perl Mongers de Barcelona (Barcelona.pm) organizará un curso avanzado de Perl que durará todo el día y combinará teoría y práctica.

Enlace

¡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

Hola a todos,

Tengo un script que no conecta a Base de datos en Linux, pero sí lo hacía (y hace) en Windows. He mirado los permisos del script y sus saltos de línea y están todos adecuados a Linux.

El mensaje de error que me sale es el siguiente:

DBI connect('fungus:localhost:3306','Alfumao',...) failed: Can't connect to local MySQL server through socket '/var/run/mysqld/mysqld.sock' (2) at /opt/lampp/htdocs/DB/C_SQL.cgi line 63, ...

«Así se nos presenta Mojolicius. Ahora que conozco un poco de Sinatra, puedo decir que Mojolicious es bastante similar.

Es un framework web con rutas RESTful, plugins, templates a lo Perl, manejo de sesión, cookies firmadas, framework de testing, servidor de archivos estáticos, i18n, soporte unicode de primera clase y más. Prometen una API pura en Perl con orientación a objetos, portable y sin magia escondida, con Perl 5.10 como único requerimiento. También incluye entre ...

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 ?