my $rows = $sth_tss->fetchall_arrayref;
# print Dumper $rows;
$count = 0;
print $CGI->p("rows is ", @{$rows});
for my $row ( @{$rows} ) {
    $CGI->p("Row", ++$count);
    my @fields = @{$row};
    for my $field ( @fields ) {
       print $CGI->p($field);
    }
}
[download]

The commented out dumper worked well, I'm definitely getting the data, I just don't know how to access it. I even tried it with just

my @fields = $row

The problem must be elsewhere in your code. I've just tested this code on a database query here and it works exactly as expected.

--


<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg

Perl is as bad as C, if it is syntactically correct, it will do something, but not at all what you had in mind.

Beg your pardon?!?

If you take your keyboard and start typing random words and random punctuation, do you expect the result to make sense? Even if each single word passes the spellcheck? And if you are a tiny bit more carefull and take the time to change it to pass even though the grammar check? Would the random sentences make sense now? And would you pass the history test with that?

The spelling and grammar check may help, but it's not going to make you a writer so if you expect the syntax check to ensure that your programs do what you wanted you should find a different trade.

Jenda


Support Denmark! Defend the free world!