Foro - Perl en Español

otorices escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

@{ $xml->{"Evolucion"} } = ();
@{ $xml->{"Diagostico"}->{"Impresion"} } = ();                 
@{ $xml->{"Diagostico"}->{"Histeroscopia"} } = ();
@{ $xml->{"Diagostico"}->{"Clinico"} } = ();
@{ $xml->{"Diagostico"}->{"Diferencial"} } = ();
#Viendo que con lo anterior sólo me quedaba "Diagnostico" sin eliminar, ya que tiene subetiquetas, intenté poner:
@{ $xml->{"Diagostico"} } = ();
#Pero me daba error.

Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

El problema es que $xml->{"Diagnostico"} contiene una referencia al hash, pero tú lo tratas de usar como si contuviera una referencia al array. Si quieres que esa llave contenga una referencia al array vacío haz



si quieres que no contenga nada haz



y si quieres que la llave no exista en ese hash haz



Y no tienes que eliminar las cosas dentro del hash referido por $xml->{"Diagostico"}. Si ajustas $xml al undef(), todos los contenidos desaparecen y toda la memoria queda desocupada.

explorer escribiste:O quizás el extraño (no probado por mí)

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

reset 'x'; # reiniciará todas las variables que empiezan por 'x'

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Es mejor ni recordar "reset()". No funciona con variables léxicas de todos modos.

OK. Gracias por tu información.

Buenas,

Vuelvo a la carga otra vez con el tema de XML::Simple.
En este caso, se trata el orden en el que se guardan las etiquetas XML al hacer el XMLOut.

El caso es que según voy encontrando etiquetas en los informes, voy haciendo un push():



y se supone que al exportar el documento XML las etiquetas deberían salir en el orden que he ido siguiendo al hacer los push(), pero no es así.

Mirando la documentación de XML::Simple lo único que he encontrado en referencia al orden de las etiquetas es el atributo NoSort, con el cual podemos anular el orden alfabético de las etiquetas que la función aplica por defecto. Pero a pesar de ello, las etiquetas me salen en un orden que en principio parece aleatorio...

Os pongo un informe de ejemplo:

Código: Seleccionar todo

2000006  INFORME.                                                                                                                                                               
                                                                                                                                                                                           
MOTIVO DE INGRESO:   

texto
                                                                                                                                                                                           
DATOS RELEVANTES DE HISTORIA CLINICA Y EXPLORACION:                                                                                                                       
texto
                                                                                                                                                                                           
INTERVENCION PRACTICADA:                                                                                                                                               
texto
                                                                                                                                                                                           
DIAGNOSTICO:                   
texto
                                                                                                                                                                                           
TRATAMIENTO A SEGUIR:
texto

Y este es el XML que me genera:


Como se puede apreciar, se etiqueta antes el apartado diagnostico que el de motivo de ingreso por ejemplo, cuando no debería ser así.

El caso es que necesito mantener el orden para no tener problemas con la validación del XML usando un DTD.

¡¡Muchas gracias por vuestra atención!!

La salida desordenada es porque en Perl, los diccionarios (hash) guardan los valores según un orden interno, que no tiene que ver con el orden de inserción.

Si quieres mantener el mismo orden de entrada que de salida, debes usar un módulo como el Tie::IxHash, como se comenta también en este hilo.

Actualización: no lo he probado y estoy dudando de si alguna vez lo he hecho. Lo probaré dentro de un rato.

Una cosilla importante... en pocos casos es necesario mantener el orden dentro de un XML. En tu ejemplo, un programa va a leer todo el registro Informe con toda la información que contiene, de golpe. Al usuario le vas a mostrar la información ya ordenada.

En el FAQ de XML::Simple se comenta que si realmente es imprescindible mantener el orden de los elementos, no uses XML::Simple.

En otros foros se recomienda el uso de XML::LibXML, pero bueno... hay doscientos más...

¿Quieres decir con eso que aun usando el módulo Tie::IxHash es imposible mantener el orden de los elementos?

El autor de XML::Simple dice (en el FAQ de la distribución) que no está hecho. Solo está pensado.

Ahora mismo no sé decirte qué otro módulo XML puede hacer eso, pero el autor recomiendo XML::LibXML.

También dice que, en realidad, no deberíamos preocuparnos del orden: hay que pensar que estamos delante de registros de una base de datos jerárquica.

Solo en una ocasión he tenido que llevar un orden en un XML, y fue cuando necesitaba generar un registro por cada día del año en curso.

La solución fue muy sencilla: me daba igual el orden, y los registros iban acompañados de un atributo llamado daynumber que guardaba el orden.

Así, solo tenía que hacer lo siguiente: leer el fichero entero con XMLin(), y a partir de ese momento, ya puedo recorrer todos los días o buscar por un día en concreto. No necesité sacar los días por orden, pero en ese caso hubiera creado un arreglo con los datos de cada día, indexados por el número del día, así saldrán ya ordenados.

En tu caso: a mi me da igual el orden en que quedan guardados los valores dentro del <informe>. Lo que me interesa es que al leerlo, lo hago completamente (todo el registro), así que lo sacaré en el orden que yo quiera al usuario o informe escrito.


Sale:

Código: Seleccionar todo

$xml_ref = {
             'Diagnostico' => {
                              'Clinico' => '- texto.'
                            },
             'Motivo' => {
                         'Ingreso' => 'texto'
                       },
             'Tratamiento_y_recomendaciones' => {
                                                'Al_alta' => 'texto'
                                              },
             'Intervencion' => 'texto',
             'id' => '2000006',
             'Resumen_historia' => 'texto'
           };

Informe: 2000006
Motivo de ingreso: texto
Diagnóstico: - texto.
Intervención: texto
Tratamiento: texto