Cómo obtengo varias filas de mi DB
Publicado: 2014-11-20 15:13 @675
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:
Con esto, y puliéndolo por varios errores solo me trae un campo de la consulta que hice, ni siquiera una fila completa, ni por lo menos una fila.
¿Alguno me puede dar una mano para ver qué estoy haciendo mal?
¡Gracias!
Tengo el siguiente código:
Using perl Syntax Highlighting
- 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 $result_query = new Result_query($query_store);
- $c->stash{store} = $sth->$query_store;
- $c->forward('View::JSON');
- }
- __PACKAGE__->meta->make_immutable;
- package Result_query;
- sub new {
- my $class = shift;
- my $self = bless {
- 'staff_id' => shift,
- 'first_name' => shift,
- 'last_name' => shift,
- 'address_id' => shift,
- 'picture' => shift,
- 'email' => shift,
- 'store_id' => shift,
- 'active' => shift,
- 'username' => shift,
- 'password' => shift,
- 'last_update' => shift,
- }, $class;
- return $self;
- }
- sub TO_JSON { return { %{ shift() } }; }
- 1;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Con esto, y puliéndolo por varios errores solo me trae un campo de la consulta que hice, ni siquiera una fila completa, ni por lo menos una fila.
¿Alguno me puede dar una mano para ver qué estoy haciendo mal?
¡Gracias!