Foro - Perl en Español

Hola, compañeros Perleros, nuevamente molestando,

Quiero pedir su ayuda ya que no he podido dar con la solución. Les platico un poco la problemática: Tengo una interfaz donde cargo un archivo XML y lo valido, y después lo guardo en una tabla en una base de datos Firebird. Todo lo guarda correctamente menos el xml completo.

El problema es que no sé si no estoy leyendo correctamente el xml, porque puedo acceder correctamente a sus datos pero al insertar en la base de datos me deja vacío el campo, como si no existieran datos o no lo leyera correctamente.

Necesito ayudaaaaaa

Les comparto algo de mi código que estoy utilizando. Espero alguien pueda ayudarme u orientarme.

Saludos

Es muy posible que alguno de los contenidos del XML afecten a la consulta. O alguna de las comillas simples alrededor del tercer argumento a INSERT estén mal puestas.

Lo recomendable sería usar el modo de paso de parámetros, para que, en caso de que existan caracteres extraños o peligrosos, sean escapados.

Más información en DBI, en la sección Placeholders and Bind Values.

De acuerdo, voy a revisar la sentencia, pero... ¿por qué cuando hago el return Dumper de $xml_info (que proviene de $xml_data) viene vacío pero si accedo a él como '$xml_info->{'cfdi:Emisor'}->{rfc}' sí contiene información?

Pues... no lo sé. Si $xml_info contuviese algo, el Dumper lo sacaría.

Lo que sí es cierto es que

'$xml_info->{'cfdi:Emisor'}->{rfc}'

está mal escrito (hay exceso de comillas simples), por lo que seguro que da problemas. De hecho, lo que has escrito se compone de tres cadenas de caracteres:

$xml_info->{
cfdi:Emisor
}->{rfc}

Quizás por eso sí que obtienes una respuesta, aunque $xml_info no contenga nada.

El uso de 'use strict;' y 'use warnings;' es muy recomendado para detectar estos casos.

Cierto, tenía que ver con las comillas.

Ahora tengo un problema, ya que cuando inserto en la base de datos algunos campos que deberían llevar acento los pone con signos. La codificación de todos los XML es UTF-8. Cabe mencionar que si abro directamente el XML me muestra las palabras con acentos correctamente, pero al momento de insertarlo en la base de datos, lo cambia a signos.

¿Es posible que el sysread() no lo esté leyendo correctamente? O ¿en qué parte de mi código no convierte los acentos?

Saludos

Nos falta por saber un dato... ¿en qué codificación está trabajando la base de datos?

Normalmente, si son campos de tipo BLOB, no será necesaria ninguna transformación, ya que guardará los datos de forma literal.

Si a Perl no se le dice nada, creerá que lo que está leyendo es una ristra de bytes codificada en ISO-8859-1 (latin1). Si esa misma ristra la sacamos por pantalla, y resulta que la codificación en la que está trabajando la terminal es la misma en la que están codificados los datos, nos parecerá que todo está bien.

Por ejemplo, si leemos un XML codificado en UTF-8, y sacamos sus contenidos por la terminal, que también está trabajando en UTF-8, veremos que salen bien los caracteres tildados, porque Perl saca la ristra de bytes de forma literal, y es interpretada por la terminal.

O incluso el mismo acto de leer del XML. Si el módulo está bien hecho, se habrá dado cuenta de que el XML está codificado en UTF-8, por lo que a Perl le devolverá el contenido en UTF-8... y entonces el problema lo tendremos a la salida. Perl, por defecto, guarda los caracteres o bien como una ristra de bytes o bien como una serie de caracteres en Unicode (no confundir con UTF-8). Si no le decimos nada de cómo tiene que hacer la salida de datos, Perl trabajará en ISO-8859-1, y si se encuentra que lo que tiene que sacar está en Unicode, pues ahí hará una transformación de Unicode a ISO-8859-1.

Lo primero que veo del código, que se puede intentar, es llamar a binmode() para indicarle a Perl que no debe hacer ninguna interpretación de los caracteres que esté leyendo. Vamos, que queremos una simple ristra de bytes.

¡Listo! ¡Decodifica de acuerdo a si es UTF-8 o ISO-8859-1! Muchas gracias