Publicado: 2008-08-11 18:14 @801Si lo mandas junto con la información del host, database, etc. Ejemplo:
- Código: Seleccionar todo
Can't DBI::st=HASH(0x8e3e340)->bind_col(1, undef,...), need a reference to a scalar at /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/DBI.pm line 1831.
¿Qué es? puedes ayudarme, te envío también el script que tengo para que lo veas y me digas si algo anda mal.Using perl Syntax Highlighting
#!/usr/bin/perl -w
package DBD::mysql;
use strict;
use DBI;
my $db='base';
#my $host='localhost';
#$port="3306";
my $userid='root';
my $pass='';
my $connectionInfo="DBI:mysql:database=$db;mysql_socket=/opt/lampp/var/mysql/mysql.sock";
my $dbh = DBI->connect($connectionInfo, 'root', '', {'RaiseError' => 1});
die "Ha habido un problema al conectar con la base de datos: ".$DBI::errstr unless(defined($dbh));
my $query = "SELECT * FROM admi";
my $sth = $dbh->prepare($query);
$sth->execute();
$sth->bind_columns(undef,my $nombre,my $descripcion);
#print "Resultados";
while($sth->fetch())
{
print "$nombre - $descripcion";
}
$sth->finish();
$dbh->disconnect;
package DBD::mysql;
use strict;
use DBI;
my $db='base';
#my $host='localhost';
#$port="3306";
my $userid='root';
my $pass='';
my $connectionInfo="DBI:mysql:database=$db;mysql_socket=/opt/lampp/var/mysql/mysql.sock";
my $dbh = DBI->connect($connectionInfo, 'root', '', {'RaiseError' => 1});
die "Ha habido un problema al conectar con la base de datos: ".$DBI::errstr unless(defined($dbh));
my $query = "SELECT * FROM admi";
my $sth = $dbh->prepare($query);
$sth->execute();
$sth->bind_columns(undef,my $nombre,my $descripcion);
#print "Resultados";
while($sth->fetch())
{
print "$nombre - $descripcion";
}
$sth->finish();
$dbh->disconnect;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¿Qué opinas?
ya me salieron los datos 