Foro - Perl en Español

por **chechoman** » 2008-07-03 09:32 @439

Tengo que darles todas las gracias por la ayuda que me han prestado. Me he quedado impresionado en estos dos días por el uso de Perl; es un lenguaje demasiado potente y muy práctico, pude hacer el programita con una sola librería y sin necesidad de muchas líneas de código (37) y muy rápido.

Les adjunto el código por si alguien quiere un conversor de archivos xml a txt:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use XML::Simple;
use Data::Dumper;

opendir(DIR,"/home/principal/xml/xml1/");
my@files=readdir(DIR);
closedir(DIR);

open(xml,">>","/home/principal/xml/xml.txt")or(xml,">","/home/principal/xml/xml.txt");
foreachmy$a(@files){
nextif$a=~/^\./;
print"Archivos Cargados";
print$a;
print"\n";

my$datos= XMLin("/home/principal/xml/xml1/$a");

print xml joinq{|},
$datos->{opr},
$datos->{letra},
$datos->{cedula},
$datos->{PNombre},
$datos->{SNombre},
$datos->{PApellido},
$datos->{FechaNac},
$datos->{FechaCedOrg},
$datos->{CodObjecion},
$datos->{CodOficina},
$datos->{CodEstadoCivil},
$datos->{Naturalizado},
$datos->{Sexo};
print xml "\n";

}
print"Fin Carga";
print"\n";

close xml;Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

<?xml version="1.0" encoding="UTF-8"?>
<datos xsi:noNamespaceSchemaLocation="D:\Work\prueba.xsd" opr="0">
<letra>V</letra>
<cedula>123</cedula>
<PNombre>nombre</PNombre>
<SNombre>Segundo Nombre</SNombre>
<PApellido>apellido</PApellido>
<FechaNac>1980-07-25</FechaNac>
<FechaCedOrg>2005-03-31</FechaCedOrg>
<CodObjecion>00</CodObjecion>
<CodOficina></CodOficina>
<CodEstadoCivil>2</CodEstadoCivil>
<Naturalizado></Naturalizado>
<Sexo>M</Sexo>
</datos>Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El hecho es que no sé cómo hacer para que el programa en Perl me valide que si encuentra un elemento vacío le coloque la palabra NULL al archivo txt y si tiene datos, bueno, debe seguir haciendo lo que hacía.

por **chechoman** » 2008-07-11 23:18 @013

Aparte del problema de colocar NULL en elementos que no tengan valores al leer el xml, ¡¡¡también encontré otra falla y mas grave!!!, y es cómo hacer para que el programa me procese aquellos datos con "caracteres especiales", ya que para Perl me arroja que el xml está mal formado, y es porque algunos valores tienen ñ o Ñ o acentos, entonces, ¿cómo hacer para poder leer estos datos o poder sustituirlos?

por **explorer** » 2008-07-12 07:13 @342

Cuando XML::Simple lee esas marcas, las convierte a un hash vacío:

Código: Seleccionar todo: $VAR1 = \{ 'opr' => '0', 'CodEstadoCivil' => '2', 'CodOficina' => {}, 'letra' => 'V', 'FechaCedOrg' => '2005-03-31', 'SNombre' => 'Segundo Nombre', 'cedula' => '123', 'Sexo' => 'M', 'PNombre' => 'nombre', 'FechaNac' => '1980-07-25', 'Naturalizado' => {}, 'CodObjecion' => '00', 'PApellido' => 'apellido' };

Lo que se puede hacer es preguntar antes si tenemos un dato o es un hash vacío:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$CodOficina='NULL';
if(exists$datos->{CodOficina}){
if(ref($datos->{CodOficina})ne'HASH'){
$CodOficina=$datos->{CodOficina};
}
}

my$Naturalizado='NULL';
if(exists$datos->{Naturalizado}){
if(ref($datos->{Naturalizado})ne'HASH'){
$Naturalizado=$datos->{Naturalizado};
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y ya solo queda pintarlo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

printjoinq{|},
$datos->{opr},
$datos->{letra},
$datos->{cedula},
$datos->{PNombre},
$datos->{SNombre},
$datos->{PApellido},
$datos->{FechaNac},
$datos->{FechaCedOrg},
$datos->{CodObjecion},
$CodOficina,
$datos->{CodEstadoCivil},
$Naturalizado,
$datos->{Sexo};
print"\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sale:

Código: Seleccionar todo: 0|V|123|nombre|Segundo Nombre|apellido|1980-07-25|2005-03-31|00|NULL|2|NULL|M

por **chechoman** » 2008-07-12 12:13 @550

Sí funciono, gracias. Solo me está faltando que el programa en Perl pueda leer valores como 'ñ', 'Ñ' y palabras acentuadas, que algunos nombres incluyen estos datos y vienen en el XML, y Perl al leerlo no los reconoce y cuando empieza a procesar me arroja el error:

Código: Seleccionar todo: not well-formed (invalid token) at line 1, column 214, byte 214 at /usr/local/lib/perl/5.8.8/XML/Parser.pm line 187

Me puse a averiguar y averiguar dándome cabezazos y resulta que es efectivamente porque se necesita una forma para parsear estos caracteres :s.

Instalé entonces en el sistema la librería "expat" y después a través del CPAN instalé la librería XML::Parser, pero no me sirvió de mucho, pensé que quizás debería leer todo el xml y por cada símbolo que consiga lo cambie por un valor "x" y después cuando lo vaya a guardar el valor "x" lo transforme en el que corresponde, pero me pareció algo super enrollado ademas de que me puede saturar el servicio con tantos cálculos que realiza, ya que este programa en Perl está realizando varias cosas como por ejemplo leer muchos .zip y verificar la integridad a través de sha1 y compararla, después descomprimirlos y hacer un respaldo del zip, posteriormente leer los xml y procesarlos y es ahí donde me arroja el error con los caracteres, de verdad no sé qué hacer por ahí :s

por **explorer** » 2008-07-12 12:49 @576

Tienes que ver cómo está codificado el carácter que está en la posición de fallo que te indica (línea 1, columna 214). Debe coincidir la codificación con la indicada en la cabecera del xml.

por **chechoman** » 2008-07-12 13:32 @605

No, pues la codificación del xml es utf-8, y como estos son caracteres que no están dentro de esta configuración es que arroja el error.

por **explorer** » 2008-07-12 14:07 @630

Precisamente. No es un error lo que te sale en el mensaje. Si la codificación interna de los caracteres no coincide con lo que pone en la cabecera, entonces el xml no está bien formado (not well-formed), y por eso es rechazado.

Deberás decidir qué hacer:
* cambiar la cabecera para que refleje la codificación de esos caracteres
* cambiar la codificación de esos caracteres, en origen (no tú)
* cambiar la codificación de esos caracteres tú mismo.

La más cómoda es la primera: solo tienes que cambiar una línea.
La más idónea es la segunda: no es problema tuyo recibir xml que están mal formados
La más horrible es la tercera: convertirá el proyecto informático en una inmensa chapuza.

P.D. Hablando de acentos, se te escapan algunos, cuando escribes aquí :-)

Foro - Perl en Español

Convertir XML en TXT

Publicidad

¿Quién está conectado?