Ver Tema - Problemas con codificación al hacer consulta con MySQL

luisjf · 2011-05-16 19:52 @869

Hola buenas noches, soy nuevo en el foro y este es el primer hilo que coloco. Cabe resaltar de antemano que estuve verificando otros hilos a ver si conseguía solución a mi inconveniente y desafortunadamente no fue así.

Bueno, mi inconveniente radica en que tengo unas tablas de una herramienta ya existentes y en ellas necesito hacer unas consultas para generar unos reportes; estoy haciendo un pequeño desarrollo con el módulo DBI para conectar y extraer data de mis tablas pero cuando realizo dichas consultas no se reconocen los caracteres como acentos y todo aquello, yo he pensado que debe ser que necesito setear la codificación pero no sé cómo hacerlo en la consulta.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

    $dbh = DBI->connect("DBI:mysql:xxxx","xxxx",'xxxx');
    $sth = $dbh->prepare("select name from queue");
    $sth->execute;
    while( ($var_tmp)=$sth->fetchrow() ) {
    $var[$n]=$var_tmp;
    $n++;
    }
    $sth->finish;
    $dbh->disconnect;
 

Nota: es necesario resaltar que he exportado mis tablas a .csv para verificar que no vengan los errores en la base de datos y veo todos los caracteres sin problemas al igual que con algún cliente de consultas como "mysql-query-browser"

ileiva · 2011-05-16 20:33 @898

Hola luisjf, ¡bienvenido!

Tomando tu ejemplo, esta versión me funciona:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use DBI;
binmode(STDOUT, ":utf8"); # para mostrar por pantalla
 
$n = 0;
$dbh = DBI->connect(
     "DBI:mysql:xxxx",
     "xxxx",
     'xxxx', 
     { mysql_enable_utf8 => 1 } # se activa utf8 seteando mysql_enable_utf8 a 1
); 
 
$sth = $dbh->prepare("select name from queue");
$sth->execute;
while( ($var_tmp)=$sth->fetchrow() ) {
        $var[$n]=$var_tmp;
        $n++;
}
$sth->finish;
 
# probar aquí con una inserción en la BD
# $dbh->do('insert into queue values("hòlá")');
 
$dbh->disconnect;
 
foreach my $v(@var){
        print "$v\n";
}

explorer · 2011-05-17 04:01 @209

Bienvenido a los foros de Perl en español, luisjf.

Lo primero que hay que averiguar es en qué codificación están los caracteres almacenados en la base de datos.

Lo normal es que estén en utf-8, pero podría ser otra.

Una vez sabido, lo que queda es 'decodificarles' una vez que les leas.

ileiva te ha mostrado un ejemplo en el que activa la opción mysql_enable_utf8 del módulo DBD::mysql (que es llamado de forma automática por DBI).

Esta opción le indica a DBI que lo que reciba o deba leer desde los campos textuales, debe ser considerado como que está codificado en utf-8. Cuando Perl los recibe, internamente los almacena en esa codificación.

Y luego queda la segunda parte: enviarlos a otro sitio. ileiva te pone de ejemplo el sacarlos por pantalla, con un print(). Como sabemos que están codificados en utf-8, debemos indicarle a Perl que queremos que los emita tal cual (quizás, porque nuestra terminal está funcionando también en esa codificación). Por eso pone la sentencia binmode(STDOUT, ":utf8");.

Si necesitaras cambiar la codificación, ahí es donde la indicarás, y Perl se encargará de hacer las conversiones necesarias, de forma transparente.

Si tuvieras la necesidad de usar una codificación distinta, o si, dentro del programa, necesitas realizar operaciones con otras cadenas de caracteres en otras codificaciones, quizás necesitarás hacer conversiones entre ellas. Para ello, te recomiendo que mires el módulo Encode.

luisjf · 2011-05-17 06:10 @298

Muchas gracias. ¡¡Hoy probaré con sus recomendaciones y les cuento!!

luisjf · 2011-05-17 08:41 @404

Excelente, amigos, ¡funcionó a la perfección! ¡Muchas gracias por la ayuda prestada! Me parece excelente este foro, porque en verdad hay gente comprometida a apoyar. ¡Espero en un futuro cercano poder empezar a dar mis aportes también a los foreros!

Publicidad

Socializa