Foro - Perl en Español

Cordial saludo a todos.

Mi pregunta, como todas las mías es básica y agradezco de antemano toda la colaboración.

Tengo un script en Perl que saca de una base de datos un campo donde está la URL de una imagen. Ejemplo:

http://img130.imageshack.us/img130/1420/webhosting1.jpg

y tengo dicha ruta en una variable. Código:
#ejm ruta='http://img130.imageshack.us/img130/1420/webhosting1.jpg';
$ruta_img = $registro;
Necesito tomar las dimensiones de dicha imagen teniendo solo la URL, para poder tomar unas decisiones en el código con ...

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.

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 ...

Buenas de nuevo. Estoy empaquetando a un exe y me da el siguiente error. ¿A alguno le paso algo similar o sabe cómo solucionarlo...?


Filesys\CygwinPaths.pm:
error: Can't locate Filesys\CygwinPaths.pm
refby: C:\Perl\lib\DBD\SQLite.pm line 89
Firstworks\SQLRClient.pm:
error: Can't locate Firstworks\SQLRClient.pm
refby: C:\Perl\site\lib\DBD\SQLRelay.pm line 6

Created 'informesv15demo.exe'
Executable size: 80.1 KB, 3.62 MB smaller than last time (98%)



{.\informesv15demo.exe}
Can't locate Term/Menu.pm in @INC (@INC contains: .) at informesv15demo.pl line 4.
BEGIN failed--compilation aborted at ...

Saludos al foro.

Antes que nada debo mencionar que de Perl no conozco nada, pero si me explican bien, paso por paso me animo.

Bueno, la cuestión es que en un hosting de netfirms utilizo formmail.pl para enviar los datos de un formulario de contacto a mi correo. Como luego de enviar sacaba el mensaje de "envío correcto" y otras cosas en inglés, lo edité y le puse lo que yo quería, y funciona a ...

Gente: este aporte es de lo más básico pero me sirvió y seguramente os puede ayudar... si están comenzando en este maravilloso mundo de Perl... y les toca lidiar con fechas...

Previamente instalen Modern::Perl;

problema inicial: cuento con una variable pasada por el usuario en formato: aaaa-mm-dd
solución buscada: convertir dicha fecha en aaaammdd o ddmmaaaa

La solución utilizada fue...

use Modern::Perl;
my $cadena = '2009-11-02T00:00:00';
my $fecha = substr $cadena, 0, 10;
my @fecha ...