[Perl] ayuda con DBI y fetchrow

[Joel Muñoz]

Hola a tod en s
Tengo Perl y MySql y estoy usando DBI para bajar todos los campos de unas 
tablas, (todos los campos son alfanumericos) y necesito que todos los campos 
esten con comillas dobles.

Lo que quiero hacer es eficientar mi codigo porque se como se puede lograr 
con la instruccion  bind_column pero son 15 tablas y cada tabla tiene 
alrededor de 35 campos, asi que echen cuentas ... Si alguien sabe como 
hacerlo con fetch_row, se lo agradeceria mucho
He intentado hacer un replace de las comas por "," pero falla en el ultimo 
campo, por obvias razones.

este es mi codigo


my $dbh   = DBI->connect ("DBI:mysql:database=$db:host=$host",
                           $user,
                           $password)
                           or die "Can't connect to database: 
$DBI::errstr\n";

my $sth = $dbh->prepare( " SELECT * FROM ciudades");
$sth->execute( );
print "\tQuery results:\n====================================\n";
#este es el problema :-S, aqui pone todos los campos divididos por coma, 
pero necesito que a cada
#campo se le ponga comilla doble
while ( my @row = $sth->fetchrow_array( ) )  {
         print "@row\n";
}
.
..
..


Gracias de antemano por su ayuda


________________
   Joel Muñoz

_________________________________________________________________
Add a Yahoo! contact to Windows Live Messenger for a chance to win a free 
trip! 
http://www.imagine-windowslive.com/minisites/yahoo/default.aspx?locale=en-us&hmtagline