But I think there's a "fetchall_hashref" or something like that that could do this all in one fell swoop. Durn. Not enough window space on this speaker-lounge-area dumb PC to go looking up "man DBI". Sorry.

Indeed there is:

my @ar = ();
while (my $hr = $sth->fetchrow_hashref() ) {
  push @ar, $hr;
}
$s->ar = \@ar;
$s->rows = @ar;
[download]

... can be written ...

$s->ar   = $sth->fetchall_arrayref({});
$s->rows = @{$s->ar};
[download]

On a side note, fetchall_arrayref() is one of my favorite methods because HTML::Template templates take an arrayref of hashrefs as a parameter for loops. You can output a table really easily like so:

# Assume $sth is a valid statement handle
my $params   = $sth->fetchall_arrayref({});
my $template = new HTML::Template (filename => 'file.name');

$template->param(TABLENAME => $params);
print $template->output();
[download]

The template file looks like this:

<TABLE>
<TMPL_LOOP NAME=TABLENAME>
  <TR><TD><TMPL_VAR NAME=COLUMN1></TD><TD><TMPL_VAR NAME=COLUMN2></TD>
+</TR>
</TMPL_LOOP>
</TABLE>
[download]

The stuff between the <TMPL_LOOP> tags outputs for each row returned by the query, and it only takes two lines of perl to get the rows from the db to the template.

-Matt