fishmonger has asked for the wisdom of the Perl Monks concerning the following question:
I'm just beginning to learn how to use the Dancer2 framework and am having problems displaying the results of a $sth->fetchall_hashref DBI querry.
I started with the example code from the "Our first route handler" section in the Dancer2::Tutorial documentation and adjusted it slightly to match my requirements.
Route Handler:
get '/partners' => sub { my $dbh = get_db_connection(); my $sth = $dbh->prepare("SELECT TPID, TPCOMPNAME, TPTYPE FROM TRADINGPARTNERPROFILE ORDER BY TPID LIMIT 2"); $sth->execute; my $partners = $sth->fetchall_hashref('TPID'); my $dump = Dumper($partners); $dbh->disconnect; template 'show_partners.tt', { 'dumper' => $dump, 'partners' => $partners, }; };\
Template:
<div> <pre><% dumper %></pre> <% FOREACH partner IN partners.keys %> Partner: <% partners.$partner.TPCOMPNAME %> <% partners.$partner.T +PTYPE %><br> <% END %> </div>
Resulting html output
<div> <pre>$VAR1 = { 'AB DISTRIBUTING INC.' => { 'TPTYPE' => '1', 'TPID' => 'AB DISTRIBUTING INC.' +, 'TPCOMPNAME' => 'AB Distributing + Inc.' }, 'A.T. CROSS ' => { 'TPTYPE' => '1', 'TPID' => 'A.T. CROSS ', 'TPCOMPNAME' => 'A.T. Cross ' } }; </pre> Partner: <br> </div>
What am I doing wrong which is preventing the desired output in the loop?
Edit:
One factor which may be important is that I'm testing this on Win7 perl v5.16.1 and will be deploying the app on a CentOS system which will probably be running perl v5.18.2
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Dancer2 - How to loop over a ref to a HoH
by arkturuz (Curate) on Jun 10, 2014 at 08:54 UTC | |
by fishmonger (Chaplain) on Jun 10, 2014 at 14:41 UTC | |
by arkturuz (Curate) on Jun 10, 2014 at 17:57 UTC | |
by fishmonger (Chaplain) on Jun 10, 2014 at 19:27 UTC | |
Re: Dancer2 - How to loop over a ref to a HoH (template engine?)
by Anonymous Monk on Jun 10, 2014 at 07:23 UTC | |
by fishmonger (Chaplain) on Jun 10, 2014 at 14:34 UTC |
Back to
Seekers of Perl Wisdom