Quería consultar porque me sale el siguiente error:
- Código: Seleccionar todo
Can't locate object method "fetchrow_array" via package "DBI::db" at /var/lib/asterisk/agi-bin/leodebd.pl line 58.
al intentar correr el siguiente código:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
#ppm>install dbi-mysql
use warnings;
use strict;
use DBI;
use DBD::mysql;
$|=1;
# Setup some variables
my %AGI;
my $fecha;
my $caller;
my $called;
my $tipodellamada;
my $path;
my $dbhost="20.1.10.8";
my $dbname="database";
my $dbuser="user";
my $dbpass="user";
my $genres;
my $dbh;
my $dsn;
my $escuchado;
my $funcionario;
my $fechahora;
my $archivo;
my $uniqueid;
my $sth;
my @data;
##########################################################
#Create a DB connection. #
##########################################################
sub connect_db() {
my $dsn = "DBI:mysql:database=$dbname;host=$dbhost";
$dbh->disconnect if $dbh;
$dbh = DBI->connect($dsn, $dbuser, $dbpass);
}
sub loaddata() {
$dbh->do("SELECT * FROM grabaciones WHERE escuchado=0");
}
$genres=&connect_db;
$genres=&loaddata();
#creando enlace o coneccion dbh=>database handle
# ciclo de lectura de todos los renglones de la tabla
$sth = $dbh->prepare("SELECT * FROM grabaciones WHERE escuchado=0");
if ($sth && $sth->execute()) {@data = $dbh->fetchrow_array(); }
while (@data) {
#($escuchado, $funcionario, $fechahora, $archivo, $uniqueid)
#print "SET VARIABLE escuchado $escuchado \n";
#print "SET VARIABLE funcionario $funcionario \n";
#print "SET VARIABLE fechahora $fechahora \n";
#print "SET VARIABLE archivo $archivo \n";
#print "SET VARIABLE uniqueid $uniqueid \n";
print "@data"
};
# cerrando tabla, instruccion y coneccion
$dsn->finish;
$dbh->disconnect();
#print my $q->hr();
#ppm>install dbi-mysql
use warnings;
use strict;
use DBI;
use DBD::mysql;
$|=1;
# Setup some variables
my %AGI;
my $fecha;
my $caller;
my $called;
my $tipodellamada;
my $path;
my $dbhost="20.1.10.8";
my $dbname="database";
my $dbuser="user";
my $dbpass="user";
my $genres;
my $dbh;
my $dsn;
my $escuchado;
my $funcionario;
my $fechahora;
my $archivo;
my $uniqueid;
my $sth;
my @data;
##########################################################
#Create a DB connection. #
##########################################################
sub connect_db() {
my $dsn = "DBI:mysql:database=$dbname;host=$dbhost";
$dbh->disconnect if $dbh;
$dbh = DBI->connect($dsn, $dbuser, $dbpass);
}
sub loaddata() {
$dbh->do("SELECT * FROM grabaciones WHERE escuchado=0");
}
$genres=&connect_db;
$genres=&loaddata();
#creando enlace o coneccion dbh=>database handle
# ciclo de lectura de todos los renglones de la tabla
$sth = $dbh->prepare("SELECT * FROM grabaciones WHERE escuchado=0");
if ($sth && $sth->execute()) {@data = $dbh->fetchrow_array(); }
while (@data) {
#($escuchado, $funcionario, $fechahora, $archivo, $uniqueid)
#print "SET VARIABLE escuchado $escuchado \n";
#print "SET VARIABLE funcionario $funcionario \n";
#print "SET VARIABLE fechahora $fechahora \n";
#print "SET VARIABLE archivo $archivo \n";
#print "SET VARIABLE uniqueid $uniqueid \n";
print "@data"
};
# cerrando tabla, instruccion y coneccion
$dsn->finish;
$dbh->disconnect();
#print my $q->hr();
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¡Les agradezco cualquier ayuda!
¡Saludos!
