Foro - Perl en Español

Hola, amigos, tengo un problema con los hash. Resulta que tengo un hash con 101 pares llave/valor de la siguiente forma:

negro => http://www.google.com
blanco => http://www.perlenespañol.com
azul => http://www.locos.com

Lo que quiero es que según el color que escoja el usuario vaya a una u otra URL. El problema es que había pensado en una estructura condicional pero entonces me tocaría hacer 101 condiciones. Mi pregunta es cómo podría lograrlo con poco código.

Un ...

Por ejemplo, yo con nmap puedo escanear una dirección IP (host). Hago lo siguiente:

system("nmap localhost");

y claro, obtengo los resultados por el terminal, pero yo quiero obtener los resultados en mi programa y no que lance los resultados en el terminal. Por ejemplo:

$var = "nmap localhost";
system($var);
capturo($var);
print ($resultadosdeVAR);

Espero se entienda mi pregunta...

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

Buenos días:

Estoy necesitando urgente recuperar la fecha, hora y zona horaria en Perl. Si alguien sabe sobre esto, se lo agradecería. El problema lo tengo con la zona horaria y los milisegundos, que han sido imposibles de recuperar.

Gracias

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