array of hashes

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, Gert

Problem 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;
[download]

Comment on array of hashes Select or Download Code

Replies are listed 'Best First'.
Re: array of hashes by BrowserUk (Patriarch) on Feb 27, 2014 at 12:28 UTC
Try prefixing the array with a backslash: `print Dumper \@total_query_to_aoh;` (ie. passing a reference to Dumper) and see if that fixes your perceived problem? With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^2: array of hashes by GertMT (Hermit) on Feb 27, 2014 at 12:42 UTC
aha, yes that works. At the end of my dump I now see `'id' => 7 } ];` [download] Thank you!	[reply] [d/l]
Re: array of hashes by hdb (Monsignor) on Feb 27, 2014 at 12:27 UTC
What do you get if you add a print statement at the very end? `print Dumper \@total_query_to_aoh;` [download]	[reply] [d/l]
Re^2: array of hashes by GertMT (Hermit) on Feb 27, 2014 at 12:38 UTC
`};` I was expecting: `}; ]`?	[reply] [d/l] [select]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks