Wenas perleros ^^
Tngo un problemilla con una funcion de mi cgi i no consigo enteder pq no funciona.
sub perljax_mi_perfil {
my ($dbname,$dbhost,$dbuser,$dbpass,$dbtable) = ($conf->{db_name},$conf->{db_host},$conf->{db_user},$conf->{db_pass}, $conf->{db_table});
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost", "$dbuser", "$dbpass") or die "Imposible conectar con la DB";
my $sth = $dbh->prepare("SELECT * FROM $dbtable WHERE nick = '$nick'") or die "Imposible preparar la consulta";
$sth->execute() or die "Imposible ejecutar la consulta";
my $datos_perfil = $sth->fetchall_arrayref({}) || undef;
$sth->finish;
$dbh->disconnect;
my $return; ...