Foro - Perl en Español

Necesitas aprender mucho más, pero casi lo tenías.

Con esto lo resuelves:

Para guardarlo en un archivo de texto, solo tienes que agregar las órdenes de open() y close(), y agregar en los say() el gestor de archivo inicializado por open().

Más información en perlopentut.

Buenas noches, Sensei explorer.

Estuve leyendo los problemas anteriores que tuvo chechoman. Es la misma idea y ya elaboré el código con respecto al que le ayudaste a hacer a chechoman y me quedó igual que al de él,

#!/usr/bin/perl

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

opendir(DIR,"C:/pruebas/xml/");
my @files=readdir(DIR);
closedir(DIR);

open (FacElec, ">>","C:/pruebas/FacElec.txt") or (FacElec, ">","C:/pruebas/FacElec.txt");
foreach my $a (@files){
next if $a =~ /^\./;
print "Archivos cargados";
print $a;
print \n;

my $factura = XMLin("C:/pruebas/xml/$a");

print FacElec join q{|},
$factura->{xmlns},
$factura->{'xmlns:xsi'},
$factura->{'xsi:schemaLocation'},
$factura->{version},
$factura->{serie},
$factura->{folio},
$factura->{fecha},
$factura->{metodoDePago},
$factura->{tipoDeComprobante},
$factura->{NumCtaPago},
$factura->{TipoCambio},
$factura->{Moneda},
$factura->{Emisor}{nombre},
$factura->{Receptor}{rfc},
$factura->{Conceptos}{Concepto}{cantidad},
$factura->{Emisor}{DomicilioFiscal}{calle},
print FacElec "\n";
}
print "Fin Carga";
print "\n";
close FacElec;

pero a la hora de ejecutarlo me manda el siguiente mensaje de error:

not well-formed (invalid token) at line 55, column 34, byte 2993 at C:/Perl/lib/
XML/Parser.pm line 187
Archivos cargadosprueba.xmlSCALAR(0x1577b84)Archivos cargadosprueba2.xmlSCALAR(0x324638c)

Lo ejecuto en Windows y para Linux solo me manda a imprimir "Fin Carga".

¿Cuál sería mi problema?

Este es el código que he elaborado conforme a mis necesidades y al código elaborado por chechoman y usted.

Y disculpe las molestias, es que no había trabajado con Perl y me parece maravilloso.

Gracias por todo, Sensei explorer.

El error 'not well-formed' indica que en esa posición, el xml no es realmente un archivo con formato XML. Es otra cosa o está mal escrito o hay un error en su confección.

Yo sí veo que entra en el bucle, porque sale el texto 'Archivos cargados'.

Debes cambiar

print $a;
print \n;

por

print "$a\n";

Te falta un open después del 'or'.

Te recomiendo que cuando publiques código Perl en estos foros, le pongas las marcas de código Perl, que aparecen cuando editar tus mensajes, en la parte superior de la caja de edición.

Muchísimas gracias, Sensei.

Ya ha quedado.

De verdad que es una maravilla esto de Perl y me voy a estar adentrándome más a esta programación.

Saludos y que este bien, Sensei.

Buenas tardes, amigos.

Otra vez yo con otra molestia. Para que me entiendan les pongo primero el código del xml y del pl para que me dé a entender.






Lo que me sucede es que al momento de correr el programa no me trae la información de los conceptos.

Tengo idea de poner un ciclo en donde empiezan los conceptos a imprimir pero no sé si sea correcto.

Espero puedan ayudarme.

Gracias.

En la línea 52 falta un ';' para cerrar el print de la línea 18.

Muchas gracias, explorer.

En los conceptos no me visualiza la información en mi txt y quisiera que me aparecieran todos en cada línea.

No sé si esté bien pero ¿se puede poner solo en los conceptos un ciclo for?

Hay dos problemas.

El primero es que el XML está mal formado. En concreto, las etiquetas tienen un prefijo, 'cfdi', pero NO está definido como espacio de nombres dentro del XML, por lo que XML::Simple, al pasarlo al analizador de XML, se encuentra con el problema de que el analizador devuelve un error, indicando que ese prefijo no está declarado:

Esto se soluciona arreglando el XML, con solo incorporar un atributo a la marca raíz:

Si nosotros no somos los que generamos el XML, lo que podemos hacer es leer primero el xml como un archivo de texto normal, con una operación de sustitución (una expresión regular) añadimos ese atributo, y el resultado ya se lo podemos pasar al XMLin().

El segundo problema son los Conceptos. Muestras que quieres sacar toda la información del XML en una sola línea de texto (una línea por cada xml encontrado. ¿Eso quiere decir que todos los conceptos de cada xml deben ir también en esa misma línea? ¿Da lo mismo que haya un solo concepto o veinte?

Supongamos que eso es lo que queremos: en la línea, primero están los datos de Emisor, Receptor y Comprobante, y luego sigue en secuencia los datos de todos los conceptos.

Aquí hay un pequeño problema añadido. XML::Simple, cuando se encuentra con un XML en el que una marca se repite varias veces en el mismo nivel -caso de Concepto-, crea un array donde cada elemento es un hash que contiene a su vez los datos de cada marca. Pero... si solo hay UNA marca, no crea el array.

Ejemplo: con el XML que pusiste, crea una estructura así:
y vemos que 'cfdi:Concepto' es una referencia a un array, y cada elemento, un hash con los datos del Concepto.

Pero... si solo hay UN Concepto, por defecto se genera esta estructura:
No hay array. Sigue siendo un hash de hash.

Estaríamos obligados, en nuestro programa, en contemplar los dos casos, pues los dos se leen de dos formas diferentes (sería poner un if(), un for() en una parte, y un acceso directo en otra).

Lo mejor es decirle a XML::Simple que SIEMPRE ponga los Concepto en forma de array. Para eso, modificamos el XMLin() añadiendo el atributo ForceArray => [ 'cfdi:Concepto' ], y ya sale igual que antes, aunque solo haya un elemento.

El programa queda al final así: