I have the following code:
#!/usr/bin/perl -t
print "Content-type: text/plain\n\n";
use strict;
use DBI;
# variables a editar
my $db_user = "miuser";
my $db_pass = "miclave";
my $host_name = "miservidor";
my $db_name = "coolblog";
# vars
my $q_string = "DBI:mysql:database=$db_name;host=$host_name";
my $dbh = DBI-> connect ($q_string, $db_user, $db_pass) || die "\nError al abrir la base datos: $DBI::errstr\n";
#Mostramos aviso en caso de éxito
print "\nSe ha conectado con la BD $db_name \n";
#Nos desconectamos de la BD. Mostramos un mensaje si hay fallo
$dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";
y me muestra el siguiente mensaje:
Se ha conectado con la BD coolblog
el problema esta en que le agrego el siguiene codigo para ver columnas y me sale erro:
#Realizamos la etapa de preparación de la sentencia
my $sth = $dbh->prepare("SELECT user_id, username FROM phpbb_users");
#Realizamos la etapa de ejecución de la sentencia
$sth->execute();
#Realizamos la etapa de extracción de datos. Mostramos los registros.
while ( @registro=$sth->fetchrow_array()) {
print "ID: $registro[0] Nombre: $registro[1]\n";
}
#Realizamos la etapa de liberación de recursos
$sth->finish();
que esta pasando..........
