Hola amigos, ¿cómo están? Quiero saber cómo puedo obtener varias filas desde una consulta MySQL en Perl.
Tengo el siguiente código:
sub store :Local :Args(0) {
my ($self, $c) = @_;
# connect to the database
my $dbh = DBI->connect("DBI:mysql:database=datatest", "perltestUser", "password")
or die $DBI::errstr;
# query a la tabla
my $statement = qq{SELECT * FROM staff};
my $sth = $dbh->prepare($statement)
or die $dbh->errstr;
$sth->execute()
or die $sth->errstr;
my ($query_store) = $sth->fetchrow_array;
my ...
News of Foro - Perl en Español