Foro - Perl en Español

Hola a todos,

El caso es que tengo que implementar un script que recupere un fichero XML, lo abra, lo parsee, y según el valor de un atributo, lo meta en un directorio o en otro.

¿Alguien me puede dar un link con todas las funciones y ejemplos que me puedan ser útiles para el parseo de ficheros XML?

He intentado usar el modulo XML::Smart, pero no esta instalado, y no se trata de un sistema en el que yo pueda instalar módulos cuando me convenga. Tengo que usar los que están disponibles.

Muchas gracias!
Felipe

Pues si no puedes instalar nada, casi mejor que nos digas qué módulos de la rama XML:: tienes instalados.

Si el problema que tienes que resolver es simple, quizás con XML::Simple lo resuelvas en un par de líneas.

En este foro hay algunas respuestas a problemas parecidos. Usa el sistema de búsqueda.

Por ejemplo: viewtopic.php?t=1369&highlight=xml+simple

¿ Los que estén disponibles ? ¿ y esos cuales son ? Deberías de preguntar qué sistema operativo usan y qué módulos tienen instalados. Todo administrador de server lo sabe...

http://search.cpan.org/~grantm/XML-Simp ... /Simple.pm

Ese módulo es bastante fácil de usar para XMLs, al ser básico tal vez venga ya instalado, no lo sé... Igual son fáciles de instalar los módulos. ¿ Por qué no se puede instalarlos en tu caso ?

Saludos

Hola a los dos y gracias por el interés que habéis mostrado,

Os explico exactamente cual es mi propósito:

Código: Seleccionar todo

<?xml version="1.0" ?>

<!-- the main node -->
<REQUEST>

<!--the FORCED flag - The two possible values:
“Y”: the report must be immediately generated
“N”: the report is generated during the night-->   
<FORCED flag=”N” />                                                                 

<!--the SELECTION node: it contains the set of selected fields -->   
<SELECTION>   

Os muestro la siguiente parte del fichero XML que debo tratar ya que contiene la parte que me interesa. De hecho, lo que debo hacer es recuperar el valor del campo flag del nodo FORCED. Si dicho flag = "N", tengo que copiar dicho fichero XML en un directorio, y si dicho flag = "Y", debo copiarlo en otro.
Supongo que debe ser muy simple de implementar, pero para mi que soy novato, es la primera vez que trabajo con ficheros XML en Perl.

Muchas gracias por cualquier aportación,
Saludos,
Felipe

Si no tienes instalado el XML::Simple, tendrás que leer el fichero línea por línea hasta encontrar el atributo, y luego, con una expresión regular, sacar su valor.

Muchas gracias Explorer,

Aparentemente sí está instalado pues no se queja al ejecutar el script. Por contra, tengo un pequeño problema con el cual espero que podáis ayudarme:




El caso es que ejecuto el script en cuestión y siempre se queja en la línea en que hago el XMLin.

Código: Seleccionar todo

FILENAME: felipe.xml
File does not exist: $filename at FqStatsMQRRetrieving.pl line 248

Como se puede ver, el fichero existe, pero para XMLin, aparece como inexistente.
¿Alguien ve en qué me estoy equivocando?

¡¡Muchas gracias!!
Felipe

Pues que te sobran las comillas simples.

Le estás diciendo que busque el fichero $filename, y no el fichero cuyo nombre está contenido en $filename.

Otra cosa. Yo prefiero usar File::Copy o Sysadm::Install para las operaciones de copiar y mover ficheros. Eso de llamar con las comillas invertidas me da mucho repelús.

Muchisimas gracias Explorer!!
Funciona perfecto con XML::Simple.

En cuanto a lo de las comillas invertidas, porque te dan repelus?
Hay algun problema potencial al usar comandos de copiar, mover o borrar directamente con dichas comillas?

Gracias por toda la informacion y por la ayuda!!
Saludos,
Felipe