Re: Perl/MySQL

[matija]

You'll find it easier to user fetchrow_hashref for this purpose, like this:

while ($row=$sth->fetchrow_hashref) {
  foreach $col (%{$row}) {
    print "$col: ".$$row{$col}."\n";
  }
}

Edit: I made a stupid mistake: it should be

foreach $col (keys %{$row}) {

[Anonymous Monk]

Thanks for all your help.

I have found a small problem in the code suggested by majita. It appears to print the field name and the value, then on the next line, it prints the value again?

Name: tony
tony:
Address: 10 downing st
10 downing st:
Tel: [phone]
000000000:
Email: [e-mail]
[e-mail]:

wheres the problem?

Cheers, Marcel