GertMT has asked for the wisdom of the Perl Monks concerning the following question:
Dear monks,
I had the idea that my code would deliver me an aoh. But doesn't seem to result into that. Can someone tell me what is going on.
Thanks, GertProblem solved and an update.
to avoid a big screen-print the print Dumper \@total_query_to_aoh; should be placed outside of the while-loop.
#!/usr/bin/perl use strict; use warnings; use DBI; use Data::Dumper; use YAML; use File::Slurp qw(read_file); my $dbh = DBI->connect("dbi:SQLite:new.db") || die "Cannot connect: $DBI::errstr"; my $sql = 'SELECT ID, status, title, subtitle, text FROM articles' ; # WHERE id=?' my $sth = $dbh->prepare($sql); $sth->execute(); my @row; my @total_query_to_aoh; while ( @row = $sth->fetchrow_array ) { push @total_query_to_aoh, { id => $row[0], status => $row[1], title => $row[2], subtitle => $row[3], text => $row[4], }; # print Dumper @total_query_to_aoh; } print Dumper \@total_query_to_aoh; # UPDATE $dbh->disconnect;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: array of hashes
by BrowserUk (Patriarch) on Feb 27, 2014 at 12:28 UTC | |
by GertMT (Hermit) on Feb 27, 2014 at 12:42 UTC | |
Re: array of hashes
by hdb (Monsignor) on Feb 27, 2014 at 12:27 UTC | |
by GertMT (Hermit) on Feb 27, 2014 at 12:38 UTC |
Back to
Seekers of Perl Wisdom