while (my $rec = $sth->fetchrow_hashref()) {
print $rec->{xy}, $rec->{xz}, $rec->{yz};
}
####
while (my $row = $sth->fetchrow_hashref()) {
print map( { "$_ => $row->{$_}\t"} @{$sth->{NAME}}), "\n";
}
#or
while (my $row = $sth->fetchrow_hashref()) {
for (@{$sth->{NAME}}) {
print "$_ => $row->{$_}\t";
}
print "\n";
}
##
##
while (my $row = $sth->fetchrow_arrayref()) { # arrayref, not hash
my $index = 0;
print "$_ => ", $row->[$index++], "\t" for (@{$sth->{NAME}});
print "\n";
}
# or the "C like" way
while (my $row = $sth->fetchrow_arrayref()) { # arrayref, not hash
for (my $index = 0; $index < $sth->{NUM_OF_FIELDS}; $index++) {
print "$sth->{NAME}->[$index] => ", $row->[$index], "\t"
}
print "\n";
}
##
##
my $aref = $sth->fetchall_arrayref({});