Foro - Perl en Español

Hola, amigos, tengo un inconveniente: para buscar cierta información en un fichero lo que necesito es saber cómo hago para sacar todos los enlaces de este tipo:

<a href="/whois/www.apartments-buenos-aires-argentina.com">Whois</a>

que me extraiga todos los nombres de dominio quedando así

http://www.apartments-buenos-aires-argentina.com

quisiera que me los mostrara todos. Un saludo.

#!/usr/bin/perl

################## Manejamos los errores. ##################

use strict;
use warnings;
use diagnostics;

################## Los módulos a utilizar. #################

use LWP::UserAgent;
use HTTP::Request;

################## Creamos nuestro navegador. ...

Hola.

Ando tratando de un enviarme un mensaje a mi cuenta de hotmail pero no sé cómo. Pues pensé en usar el módulo Mail::SendMail pero no estoy seguro de hacerlo con ese módulo por el servidor SMTP de hotmail.

¿Alguien me explica cómo debería hacerlo?

¿Se puede programar Perl con web, me refiero a formularios, botones, labels y cosas así pero en modo Web?... espero se entienda mi pregunta.

Saludos.

Hola camaradas,

Hoy mi problema por el que recurro aquí a solicitar ayuda es el siguiente:

Estoy buscando un script que me redireccione a una página si es que el usuario que visita mi web lo hace desde un móvil, ya sea IPhone, celular, PDA o similar.

Encontré uno que está escrito en PHP pero estoy batallando para traducir el código, y me gustaría saber si alguien en el foro ya tiene un código que ...

Perdón, caballeros por molestar de nuevo, pero me gustaría saber cómo manejar el tratamiento de errores en perl...

Saludos.

#!/usr/bin/perl
use strict;
use DBI;
$db="perl";
$host="localhost";
$port="3306";
$userid="root";
$passwd="miclave";
$connectionInfo="DBI:mysql:database=$db;$host:$port";
$dbh = DBI->connect($connectionInfo,$userid,$passwd);
$query = "SELECT id_usuarios,nombre FROM usuarios";
$sth = $dbh->prepare($query);
$sth->execute();
$sth->bind_columns(undef,$id_usuarios,$nombre);
while($sth->fetch()) {
print "$id_usuarios - $nombre \n";
}
$sth->finish();
$dbh->disconnect;

Me sale el siguiente error:
Global symbol "$db" requires explicit package name at mostrar.pl line 4.
Global symbol "$host" requires explicit package name at mostrar.pl line 5.
Global symbol "$port" requires explicit package name at mostrar.pl line 6.
Global ...

Hola,

estoy trabajando con ficheros xml y para ello estoy utilizando el módulo XML::TreePP.

Estoy atascado con algo que debe ser bastante fácil, pero no consigo hacer. Quiero que los campos de un árbol salgan ordenados de una determinada manera cuando se escribe el xml, y no se ordenen alfabéticamente como hace por defecto. Para ello intento utilizar la opción first_out de la siguiente manera:

my $tpp80 = XML::TreePP->new(%first_out);

##Voy dando diferentes valores a diferentes ...

¿Alguien sabrá hacer una aplicación Cliente/Servidor en Perl?
O guiarme dónde puedo leer.

Saludos.

Gente, comenzó a pasar algo raro: me está dando error de perl58.dll, que no lo encuentra...
cuando ejecuto un script, ¿cómo puedo saber dónde está apareciendo o causando el problema...?

Tengo estos use()... les cambié el orden en varios casos y pasa lo mismo...
Lo más raro es que el mismo script no da el error en otro ordenador...
Por ello reisntalé el Perl pero sigue igual...

#use strict;
use DateTime::Format::Strptime;
use DateTime;
#use warnings; ...

Se hará un cambio de servidor por lo que el foro estará cerrado para nuevos temas el día Miércoles 25 de Noviembre del 2009.

El mantenimiento consiste en la migración del servidor donde está alojado el sitio. Para unos usuarios esto será cuestión de unos minutos, y para otros podría durar hasta 24 horas mientras los nuevos IPs se propagan a través de la red.

Saludos