Re^2: Creating list of hashes within a list of hashes (DBI and HTML::Template)

The concept looks great, thank you very much. Right now, I'm trying to adapt it to my actual data, and combine it with HTML::Template. I'll post the code when the combination works.

Again, thanks.

Luke

Comment on Re^2: Creating list of hashes within a list of hashes (DBI and HTML::Template)

Replies are listed 'Best First'.
Re^3: Creating list of hashes within a list of hashes (DBI and HTML::Template) by jeffa (Bishop) on Dec 29, 2008 at 14:55 UTC
I don't recommend that concept, actually. `HTML::Template` works great with `DBI`'s `selectall_arrayref`. For example, something like this untested alteration of your code: `my $sth = $self->dbh->selectall_arrayref(" SELECT rtime, dev, value FROM db_1361_asc WHERE device_id = ? AND rtime > ? AND rtime < ? ORDER BY rtime,dev ", {Slice =>{}} $device_id, $TIME_START, $TIME_STOP ); my $template = $self->load_tmpl( 'show_details.tmpl' ); $template -> param( TABLE_HEADERS => [ map {{ VALUE => uc($_) }} @{$sth->{'NAME'}} ], RAW_DATA => $sth, ); return $template -> output();` [download] jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Creating list of hashes within a list of hashes (DBI and HTML::Template)
by jeffa (Bishop) on Dec 29, 2008 at 14:55 UTC

I don't recommend that concept, actually. HTML::Template works great with DBI's selectall_arrayref. For example, something like this untested alteration of your code:

my $sth = $self->dbh->selectall_arrayref("
    SELECT rtime, dev, value
    FROM db_1361_asc
    WHERE device_id = ?
    AND rtime > ?
    AND rtime < ?
    ORDER BY rtime,dev
", {Slice =>{}} $device_id, $TIME_START, $TIME_STOP );

my $template = $self->load_tmpl( 'show_details.tmpl' );

$template -> param( 
    TABLE_HEADERS => [ map {{ VALUE => uc($_) }} @{$sth->{'NAME'}} ],
    RAW_DATA      => $sth,
);  

return $template -> output();
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

[reply]
[d/l]
[select]