Foro - Perl en Español

Hola soy nuevo usando Perl y el asunto es que tengo que hacer un programita que me convierta un archivo XML en un archivo TXT. Estuve viéndolo hacer con Java, pero al parecer con Perl es mucho más sencillo; sin embargo, estoy atascado en varios puntos.

Primero que todo el archivo XML es muy sencillo, a continuación muestro como es:


y el código que he creado en Perl es el siguiente:



Hasta ahora esto me está funcionando bien, sin embargo aún no es lo que deseo obtener, ya que necesito que el programa me lea el atributo "opr " del elemento datos; si este atributo es 0 me debe marcar la información para "insertar" y si es 1, lo debe marcar como "actualizar".

No he conseguido entonces cómo leer este atributo del elemento.

Además de ello, este archivo xml se encontrará en un carpeta con varios archivos xml más, con la misma estructura; tampoco entonces he encontrado una función o librería que me lea todo el folder y me vaya leyendo xml por xml y pienso que me los cargue en un array donde después los pueda vaciar en el txt.

Hasta ahora estoy muy básico en este asunto, lo bueno es que he podido apreciar la potencialidad de este lenguaje.

Programándolo a mano se puede hacer bien fácil... no necesitas módulos... vamos por partes.



Ahora solo tienes que colocar a $opr en tu lista de join...

Y para abrir el directorio y cargarlo a un array:



Y recuerda hacer un chop doble para eliminar los archivos . y ..

Espero que te sirva.

Saludos
PD: ¡¡¡ BIENVENIDO A LOS FOROS !!!

Hola, gracias por responderme. Lo de la variable $opr está funcionando de maravilla, al código le hice varios cambios ahora, y ya puede guardar la información en un archivo txt y hacer un salto de línea para el siguiente xml, sin embargo el problema que me falta resolver es que lea todos los xml que se encuentren en un directorio "x" y los cargue en un array, después, que este array sea guardado en el txt; ahora por un lado no veo cómo integrar el código que escribiste sobre la lectura del directorio dentro de mi código; aquí coloco el código nuevo:

Cuando cargas en un array los nombres de cada archivo tienes que hacer un bucle que ejecute tu código por cada archivo...



¿Me expliqué bien?

Saludos

Casualmente se me había ocurrido hacer una solución similar a la que colocaste y quedo así:


Sin embargo no funciona , da el siguiente error:


P.D.: En la ruta de my $datos probé con varios opciones y tampoco funcionó, lo hice por si el error era producto de no conseguir el archivo.

El error ha ocurrido en la interpretación del xml. Es posible que esté mal.

Esta variación es algo mejor: el open() solo se hace una vez.

Recuerda, también, que cuando trabajes con XML::Simple, Data::Dumper es tu amigo.

Hola, bueno hago dos veces el open porque con el primero agrego en caso de que el archivo exista, y el segundo es por si el archivo prueba.txt no ha sido creado y así lo crea y adjunta la información.

Estuve leyendo algo sobre el error y pareciera que fuera un problema con el archivo XML pero no le veo nada que esté mal; de todas formas aquí lo copio por si uds. observan algo errado.



También probé eliminarle al XML toda la ruta del xsi y siguió dando el problema, cosa que me hace dudar entonces que el problema sea el archivo XML.

Sin embargo aunque genera el error, el programa está creando el archivo prueba,txt. Lo malo es que solo está guardando los datos del primer archivo que consigue. Si hay más de uno no guarda el resto; revisé el bucle y no sé por qué sucede esto.

A mí el error que me da es que el namespace (espacio de nombres) xsi no ha sido declarado:

Código: Seleccionar todo

Undeclared prefix: xsi at /usr/lib/perl5/site_perl/5.8.8/XML/NamespaceSupport.pm line 298.

Según la documentación de XML::Simple, debes usar el modo de interpretación con SAX.

Si eliminamos 'xsi:' del xml, entonces sí que funciona:

Código: Seleccionar todo

$VAR1 = {
          'opr' => '0',
          'CodEstadoCivil' => '2',
          'CodOficina' => 'AB',
          'letra' => 'V',
          'FechaCedOrg' => '2005-03-31',
          'noNamespaceSchemaLocation' => 'D:\\Work\\prueba.xsd',
          'SNombre' => 'Segundo Nombre',
          'cedula' => '123',
          'Sexo' => 'M',
          'PNombre' => 'nombre',
          'FechaNac' => '1980-07-25',
          'Naturalizado' => '0',
          'CodObjecion' => '00',
          'PApellido' => 'apellido'
        };

(Humm... los '\' en el valor de xsi me dan mala espina...)

Bueno, el error me sigue dando, sin embargo el programa está haciendo su función y lee todos los xml de un directorio especifico, los guarda en el array y después los vacía en un txt, ahora lo que no veo cómo hacer, es implementar la función "chop" para que me elimine el . y el .. del array.

La línea siguiente al foreach, pones
que lo que hace es saltar al siguiente fichero si el actual ($a) comienza (^) por '.'.