for my $field ( $fields ) {

That should probably be:

for my $field ( @fields ) {
[download]

use strict would catch typos like that.

I made the change, no effect, I'm still getting the same thing. Now, here is my code:

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

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

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!

You said that you ran this piece of code., Looking at it you have three print statements that do not appear to be printing out anything similiar to what you posted.

For example each ARRAY reference should be between p() tags yet it is one long wrapped string.

Are you sure you looking at the right location for this code?

print $CGI->p("rows is ", @$rows);
[download]

Others have pointed other problems with the code, which you might have fixed. Do pay special attention to every "@" and "$", and to the (absence of) spaces around them -- perl is especially picky about those details, because it needs to be.