http://qs321.pair.com?node_id=1076385

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;

Replies are listed 'Best First'.
Re: array of hashes
by BrowserUk (Pope) 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.
      aha, yes that works.

      At the end of my dump I now see

      'id' => 7 } ];
      Thank you!
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;
       }; I was expecting: }; ]?