Foro - Perl en Español

¡Buenas!

Vuelvo a la carga con mis preguntas.

Al turrón: tengo que parsear un documento XML que no cumple ningún estándar de XML, tiene la extensión de xml pues porque tenían que ponerle una. Ciertamente se parece mucho a xml y usa las mismas jerarquías de estructuras, pero ni cumple DTD ni Schema. Esto descarta poder utilizar módulos de parseo de Perl, con lo que debo de hacerlo con expresiones regulares.

Vale, el fichero "xml" es algo tal que así (tiene aprox. 10.000 líneas de ese estilo):



Esto se lo enchufas a otra aplicación que se traga ese fichero y crea un árbol de jerarquías, etc. Bien, hasta ahí todo correcto.

He hecho este script que lo que hace es leerme el fichero, contar hasta 10000 e irme imprimiendo "en teoría" cada línea que lee del fichero xml, para ver, sencillamente que Perl lo lee y lo escribe como yo quiero. Este es el script:



Lo curioso es que me hace las 10.000 iteraciones y me abre el fichero que le indico que me escriba, y me escribe siempre en cada línea esto:

Código: Seleccionar todo

<Service>
 ::: numero de iteracion: 0
<Service>
 ::: numero de iteracion: 1
<Service>
 ::: numero de iteracion: 2
<Service>
 ::: numero de iteracion: 3
<Service>
 ::: numero de iteracion: 4
<Service>
 ::: numero de iteracion: 5
<Service>
 ::: numero de iteracion: 6
<Service>
 ::: numero de iteracion: 7
<Service>
 ::: numero de iteracion: 8
<Service>
 ::: numero de iteracion: 9
<Service>
 ::: numero de iteracion: 10
<Service>
 ::: numero de iteracion: 11
<Service>
 ::: numero de iteracion: 12

Así hasta la 10.000, sinceramente no se qué está haciendo mal, porque el fichero de origen es el que os he puesto y aquí me da la impresión de que está constantemente leyendo la primera línea y contando 1, así hasta 10.000.

Como leí recientemente el bug es uno, no Perl, así que entiendo que estoy diciéndole algo mal, o simplemente no le estoy diciendo algo a Perl.

¿Alguna idea de que me puede estar fallando y/o faltando?

¡¡Un saludo y aprovecho para felicitaros la navidad!!

Eso está mal, debes hacer



Saludos

Nada, se me queda en lo mismo. No pasa de la primera línea.

Analicemos con detalle lo escrito por Sombrerero_Loco:

Desmenuzado:

Código: Seleccionar todo

Por cada línea del fichero
  Comienza un bucle hasta que el $contador llega a 10.000
    Imprime la salida
    Se incrementa el $contador

Es decir, el resultado es (aún mas desmenuzado):

Código: Seleccionar todo

Leemos la primera línea del fichero
Se imprime esa línea 10.000 veces (y $contador termina valiendo 10.000, claro)
Leemos la segunda línea del fichero
y no hacemos nada con ella (porque $contador vale 10.000 => no entra en el bucle while)
Leemos la tercera línea
y no hacemos nada con ella (porque $contador vale 10.000 => no entra en el bucle while)
Leemos la cuarta línea
y no hacemos nada con ella (porque $contador vale 10.000 => no entra en el bucle while)
...
hasta fin de fichero

Así que hay un problema: tenemos dos bucles que no funcionan bien.

Además, estás usando printf(), no print(). La diferencia es que printf() NECESITA una cadena de formato.

Está claro cómo hacer un bucle para sacar todo el fichero. La cuestión podría ser cómo sacar las primeras 10.000 líneas. Esta es una posible solución:
Esta es otra
O mejor:
Así, leemos 10.000 líneas o menos, si el fichero no tiene tantas.

P.D. Lo normal es poner un bucle como el que indica monoswim (con el while()), pero también se puede hacer con un for() o foreach(). El resultado es el mismo (un bucle por todas las líneas), pero la forma de hacerlo es "ligeramente" distinta. Mientras que el bucle while() va leyendo una línea cada vez, en el bucle foreach() Perl se lee TODO el fichero (todas las líneas), y las va recorriendo una a una.

Sombrerero_Loco escribiste:Ciertamente se parece mucho a xml y usa las mismas jerarquías de estructuras, pero ni cumple DTD ni Schema. Esto descarta poder utilizar módulos de parseo de Perl, con lo que debo de hacerlo con expresiones regulares.

Bueno, pues si hay que descartar a los módulos de parseo, utilizaremos algo más sencillo...
Sale:

Código: Seleccionar todo

$VAR1 = {
          'MsgWeight' => '1.0',
          'Icon' => 'services.32.gif',
          'CalcRuleRef' => 'Most critical',
          'MsgPropRuleRef' => 'Unchanged',
          'Source' => [
                      {
                        'ServiceRef' => 'SVCDISC:System',
                        'Dependency' => {},
                        'Weight' => '1.0',
                        'PropRuleRef' => 'Unchanged'
                      },
                      {
                        'ServiceRef' => 'SVCDISC:Applications',
                        'Dependency' => {},
                        'Weight' => '1.0',
                        'PropRuleRef' => 'Unchanged'
                      },
                      {
                        'ServiceRef' => 'HP OpenView Operations',
                        'Dependency' => {},
                        'Weight' => '1.0',
                        'PropRuleRef' => 'Unchanged'
                      },
                      {
                        'ServiceRef' => 'SGC',
                        'Dependency' => {},
                        'Weight' => '1.0',
                        'PropRuleRef' => 'Unchanged'
                      }
                    ],
          'Label' => 'opc_adm',
          'Name' => 'opc_adm (discovered)'
        };

Quizás te vale así...

Fíjate que en el programa no he dicho qué fichero había que leer. He usado un truco de XML::Simple: si no se indica el fichero, el módulo busca uno que se llame igual que el propio programa, pero acabado en '.xml'.

Y como autor de uno de los parsers no puedo dejarlo sin anunciar




¿Cómo le parece?

Espero que no se vea un poco extraño al principio. Este módulo le deja especificar qué datos recordar de cada tag y cómo y cada "rule" obtiene todos los datos del tag (el nombre y los atributos) y los datos recordados por los rules de los subtags.

Jenda

¡wow! vaya torrente de post
Tenéis razón, el problema era el maldito bucle que no estaba bien referenciado, pero hay una cosa que me está dando qué pensar.
Si ejecuto este código que me indicas




La consola de cmd me devuelve esto:

Código: Seleccionar todo

Could not find test.xml in C:\XMLPAR~1\ at C:\Trabajo\Proyectos\Desarrollos propios>

Tanto el script como el fichero están en la carpeta C:\XMLparser, el fichero se llama test.pl y de donde debe de sacarlo, test.xml. La verdad, estoy mas que desesperado con esto...

Pues nada, cambia el XMLin() para que le digas dónde está el fichero: XMLin('C:/XMLparser/test.xml');

Resulta que una cosa es dónde están los programas y los datos, pero otra cosa es el lugar de trabajo en donde estamos lanzando los programas.

¡Gracias!
Aunque no era eso, resulta que me daba un error de "junk data" y era porque el xml no estaba bien declarado.
Cada vez que quiera cargar ese fichero, como pediré una copia cada vez que lo cargue el memoria, voy a tener que retocarlo antes de lanzarlo en el Perl, pero bueno.

Ahora que lo tengo cargado, tengo otra traba.

Si os dais cuenta es un árbol de XML, pero declarado secuencialmente, no en forma de tree.

Me explico, lo que está en rojo es el meollo del XML. Abre SERVICE, declara elementos del tree y para el elemento del tree que está en rojo que es opc_adm, no abre otro tag y lo declara como un hijo del padre, sino que cierra el SERVICE, abre otro SERVICE y ahí lo declara.

Como veis esto no cumple XML ni por asomo. He estado googleando a un chico que le pasaba lo mismo, terminó usando el XML::Twig, aunque yo no le he encontrado la utilidad a esto.

Como veis soy más un cenutrio que nada, y la verdad que hoy me siento bastante atorado.

¿Cómo se os ocurre que se puede hacer esto? ¿con expresiones regulares? (como en un principio pensé) o preformateando el xml (cosa que no puedo, porque no se puede configurar la salida)...

¡Gracias!


<Service>
<Name>69970093-C777-494C-BE61-E9CDBFF99582</Name>
<Label>Virtual top node (don't remove)</Label>
<Description>Dont delete</Description>
<Source>
<Composition/>
<ServiceRef>opc_adm (discovered)</ServiceRef>
</Source>
<Source>
<Composition/>
<ServiceRef>usuario1 (discovered)</ServiceRef>
</Source>
<Source>
<Composition/>
<ServiceRef>usuario2(discovered)</ServiceRef>
</Source>
<Source>
<Composition/>
<ServiceRef>usuario3 (discovered)</ServiceRef>
</Source>
<Source>
<Composition/>
<ServiceRef>usuario4 (discovered)</ServiceRef>
</Source>
<Source>
<Composition/>
<ServiceRef>usuario5 (discovered)</ServiceRef>
</Source>
</Service>
<Service>
<Service>
<Name>opc_adm (discovered)</Name>
<Label>opc_adm</Label>
<MsgWeight>1.0</MsgWeight>
<MsgPropRuleRef>Unchanged</MsgPropRuleRef>
<Icon>services.32.gif</Icon>
<CalcRuleRef>Most critical</CalcRuleRef>
<Source>
<Dependency/>
<ServiceRef>SVCDISC:System</ServiceRef>
<PropRuleRef>Unchanged</PropRuleRef>
<Weight>1.0</Weight>
</Source>
<Source>
<Dependency/>
<ServiceRef>SVCDISC:Applications</ServiceRef>
<PropRuleRef>Unchanged</PropRuleRef>
<Weight>1.0</Weight>
</Source>
<Source>
<Dependency/>
<ServiceRef>HP OpenView Operations</ServiceRef>
<PropRuleRef>Unchanged</PropRuleRef>
<Weight>1.0</Weight>
</Source>
<Source>
<Dependency/>
<ServiceRef>SGC</ServiceRef>
<PropRuleRef>Unchanged</PropRuleRef>
<Weight>1.0</Weight>
</Source>
</Service>

Pues sí que es raro... veo dos veces que se abre <Services>, seguidas... ¿no será un error del copia y pega?

Si no te llega el fichero entero, quizás sea mejor usar expresiones regulares (todavía no queda claro qué es lo que quieres extraer). Pero muy posiblemente con el módulo de Jenda se pueda hacer.

El caso es que no importa dónde esté la información si sabemos localizarla y siempre aparece de la misma forma. Podríamos admitir que la información de 'opc_adm' está demasiado repartida, si de todas formas podemos leerla.

Pero en tu caso, ya te puedo decir que XML::Simple no te sirve: el módulo no admite que existan varios nodos raíz. O lo parcheas (poniendo un nodo raíz a todos) o usas otro sistema.

Ejemplo. Supongamos que
1.- El tag <Services> que me parece que está demás, desaparece
2.- Rodeamos a todo el contenido con los tag <root> (por ejemplo)

Entonces, con el programa siguiente:Sale:

Código: Seleccionar todo

$VAR1 = {
          'Service' => [
                         {
                           'Source' => [
                                         {
                                           'ServiceRef' => 'opc_adm (discovered)',
                                           'Composition' => {}
                                         },
                                         {
                                           'ServiceRef' => 'usuario1 (discovered)',
                                           'Composition' => {}
                                         },
                                         {
                                           'ServiceRef' => 'usuario2(discovered)',
                                           'Composition' => {}
                                         },
                                         {
                                           'ServiceRef' => 'usuario3 (discovered)',
                                           'Composition' => {}
                                         },
                                         {
                                           'ServiceRef' => 'usuario4 (discovered)',
                                           'Composition' => {}
                                         },
                                         {
                                           'ServiceRef' => 'usuario5 (discovered)',
                                           'Composition' => {}
                                         }
                                       ],
                           'Description' => 'Dont delete',
                           'Label' => 'Virtual top node (don\'t remove)',
                           'Name' => '69970093-C777-494C-BE61-E9CDBFF99582'
                         },
                         {
                           'MsgWeight' => '1.0',
                           'Icon' => 'services.32.gif',
                           'CalcRuleRef' => 'Most critical',
                           'MsgPropRuleRef' => 'Unchanged',
                           'Source' => [
                                         {
                                           'ServiceRef' => 'SVCDISC:System',
                                           'Dependency' => {},
                                           'Weight' => '1.0',
                                           'PropRuleRef' => 'Unchanged'
                                         },
                                         {
                                           'ServiceRef' => 'SVCDISC:Applications',
                                           'Dependency' => {},
                                           'Weight' => '1.0',
                                           'PropRuleRef' => 'Unchanged'
                                         },
                                         {
                                           'ServiceRef' => 'HP OpenView Operations',
                                           'Dependency' => {},
                                           'Weight' => '1.0',
                                           'PropRuleRef' => 'Unchanged'
                                         },
                                         {
                                           'ServiceRef' => 'SGC',
                                           'Dependency' => {},
                                           'Weight' => '1.0',
                                           'PropRuleRef' => 'Unchanged'
                                         }
                                       ],
                           'Label' => 'opc_adm',
                           'Name' => 'opc_adm (discovered)'
                         }
                       ]
        };
opc_adm (discovered)
usuario1 (discovered)
usuario2(discovered)
usuario3 (discovered)
usuario4 (discovered)
usuario5 (discovered)

SVCDISC:System
SVCDISC:Applications
HP OpenView Operations
SGC

Ahora bien... recordar que XML::Simple es eso: simple, así que el módulo no nos deja las cosas muy sencillas...

Es MUCHÍSIMO mejor usar otro módulo de parseo de XML.