Foro - Perl en Español

Hola:

Estoy intentando conectar mi script MySQL pero no hay manera.
Tengo instalado MySQL en una máquina remota y mi código es el siguiente:

my $database = "Datagrabs";
my $dsn = "DBI:mysql:database=datagrabs;host=x.x.x.x:3306";
my $user = ";prueba";
my $pwd = ";password";

my $dbh = DBI->connect($dsn,$user,$pwd, {PrintError => 0})
or die "Couldn't connect to database: " . DBI->errstr;
Pero no hay manera.
Es muy simple pero me da el siguiente error.
Couldn't connect to database: ...

Estoy haciendo una función para cargar varias páginas al mismo tiempo.

use threads;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

print toma("http://www.google.com");

sub toma {

my $hilo = threads->new(\&tomarapido($_);
$hilo->join();

sub tomarapido {
return $nave->get($_)->content;
}

}

La primera pregunta de muchas es cómo arreglo la línea esta:

my $hilo = threads->new(\&tomarapido($_);

¿ Alguien me podría explicar cómo lo hago ?

P.D. : a simple ...

Cómo implementar una caché de páginas en un sitio web en Perl.

«Un sitio web cuyas páginas son generadas dinámicamente mediante un script CGI puede resultar lento. En este artículo se explica un mecanismo para guardar en una cache en disco las páginas preprocesadas, de manera que cuando vuelven a ser solicitadas, el servidor web las entrega leyéndolas directamente del disco, sin necesidad de volver a generar el contenido mediante consultas a una base de ...

Estaba viendo este página que ofrece un servicio que necesito hacerlo en Perl: http://www.roubaixinteractive.com/PlayG ... o_Text.asp

La pregunta es: ¿cómo convierto texto normal a binario y de binario a texto normal?

¿ Alguien me podría dar un ejemplo ?

Yo sé que ya existe en el foro un panel de Bolsa de Trabajo, pero ¿por qué no tener un panel o un área especifica que se llame:
Oferta de desarrolladores y programadores Perl o Programadores Perl Freelance
Buscando programadores Perl
Postúlate como desarrollador Perl
Currículos programadores de Perl (este me gusta)
?

Ya que este foro es el más popular de programadores de Perl de habla hispana, la idea es un panel exclusivo para ...

Buenas tardes, maestros. Les comento: estoy realizando algo para poder realizar un autologin (algo así como lo que expone explorer al final de este artículo). He entendido la mayoría del código que ha expuesto, sin embargo he tratado de implementar el código pero en una conexión HTTPS que tiene errores con el certificado (ya logré omitir el error), sin embargo no he logrado llegar a registrarme y que me redireccione, solo me quedo en la ...

Estoy usando un componente en Delphi que me permite usar las expresiones regulares de Perl en Delphi. El problema es este: necesito sacar todos los nombres de esta línea:
Bot #locos :locos
Bot #locos :SYSTEM 1370177575
Bot = #locos :Bot Test Now

El código en Delphi este:
PerlRegEx1.Regex := '(.*?) = '+sEdit3.Text+' :(.*?)';
Como ven necesito sacar todo lo que le siga a ':', que vendría a ser los nombres. Mi código solo ...

¿Cómo puedo unir dos expresiones regulares para que en una sola línea me traiga los dos datos que deseo?

Tengo esta cadena:
var lat = 3.43575165;
var lon = -76.54623305;
var companyId = '15721119';
var companyName = 'RESTAURANTE';
var cityId = 'gfghj';
var cityName = 'ghfg';

y con este código obtengo lo que tiene el var lat
my ($latitude,$longitude) = $content =~ m/var lat \=(.+?)\;/;
$longitude = $content =~ m/var lon ...

Comienzan las actividades en la YAPC::NA::2013, en Austin, Texas.

Se pueden seguir por flujo de vídeo, tres días de conferencias, en 4 salas de forma simultánea.

Saludos, el otro día estaba aburrido y se me ocurrió hacer esto en Perl, se los dejo aquí a ver qué tal les parece :)

#!/usr/bin/perl
'0O00O0O00OOO0O0O0OOO00OO0OOO0O0000O000000O00000O0"
OO 0O
OO ..:::::::::::.. 00
OO ..:::aad0OOOO0Obaa:::.. OO
0O .::::d:?000OO0O0000?::Ob::::. O0
0O .:::d0O0O:?OO00O000??aO00000b:::. 0O
0O .:::d00000OOa00O0O0OaaOO00O00OO0b:::. OO
00 ::::dP::::::::00O000000O0::::::::Yb:::: O0
00 ::::dP:::::::::Y00OO0O00OP:::::::::Yb:::: 0O
OO ::::d0:::::::::::Y0O00OO0P:::::::::::0b:::: 00
O0 .::::OO::::::::::::YO0O00P::::::::::::0O::::. O0
0O :::::Y0baaaaaaaaaaO0P:T:Y0Oaaaaaaaaaad0P::::: 00
0O :::::::Y0000O0O00O0P::|::Y000OO0OO000P::::::: 0O
0O ::::::::::::::::OO0:::|:::000:::::::::::::::: 0O
OO ...