- Código: Seleccionar todo
C:\Perl>perl xmltest.pl
install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains:
C:/Perl/site/lib C:/Perl/lib .) at (eval 4) line 3.
Perhaps the DBD::mysql perl module hasn't been fully installed,
or perhaps the capitalisation of 'mysql' isn't right.
Available drivers: DBM, ExampleP, File, Gofer, Proxy, SQLite, Sponge.
Instalé el siguiente paquete desde Perl package manager DBD::mysql
¿Qué estoy haciendo mal? Me conecto desde una PC con XP. Help me.
Este es el código de mi aplicación.
Using perl Syntax Highlighting
#!perl
use XML::Simple;
use strict;
#Datos de la conexión
use DBI;
#Datos de la conexión
my $db="BD";
my $host="host";
my $port="3306";
my $userid="test";
my $passwd="tes";
my $connectionInfo="DBI:mysql:database=$db;$host:$port";
# Realizamos la conexión a la base de datos
my $dbh = DBI->connect($connectionInfo,$userid,$passwd);
#Sentencia SQL
my $query = "SELECT codccr,nomccr FROM ccrmae";
# Primero hay que "preparar" el query
my $sth = $dbh->prepare($query);
# Ejecutamos el query
$sth->execute();
$sth->bind_columns(undef, my $nombre, my $descripcion);
print "Resultados<p>";
# Recorremos los resultados obtenidos de la base de datos
while($sth->fetch()) {
print "$nombre - $descripcion<br>";
}
use XML::Simple;
use strict;
#Datos de la conexión
use DBI;
#Datos de la conexión
my $db="BD";
my $host="host";
my $port="3306";
my $userid="test";
my $passwd="tes";
my $connectionInfo="DBI:mysql:database=$db;$host:$port";
# Realizamos la conexión a la base de datos
my $dbh = DBI->connect($connectionInfo,$userid,$passwd);
#Sentencia SQL
my $query = "SELECT codccr,nomccr FROM ccrmae";
# Primero hay que "preparar" el query
my $sth = $dbh->prepare($query);
# Ejecutamos el query
$sth->execute();
$sth->bind_columns(undef, my $nombre, my $descripcion);
print "Resultados<p>";
# Recorremos los resultados obtenidos de la base de datos
while($sth->fetch()) {
print "$nombre - $descripcion<br>";
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
