Foro - Perl en Español

Tengo el siguiente XML, el cual me gustaria parsear con perl y que me de los resultados en pantalla.
Estoy tratando de usar XML::Simple pero la verdad que no obtengo un resultado



Gracias

Tengo este script pero no me entrega información :S

* Dentro de <technology> hay un <owner> que no está cerrado
* El segundo <notes> no está bien cerrado

El correcto, creo que es este:

Recuerda: La palabra Simple de XML::Simple se refiere a que es simple de uso no de uso simple. Humm... quiero decir que no es tan simple de usar, porque el módulo es simple... hummm... algo así.

Recuerda dos: Data::Dumper es tu amigo.

Dado el XML que te he pasado antes, con este programa:sale

Código: Seleccionar todo

$VAR1 = {
            'technology' => {
                              'name' => 'test',
                              'pc' => [
                                        {
                                          'notes' => 'test',
                                          'ip' => '10.1.1.1',
                                          'user' => [
                                                      {
                                                        'password' => '123',
                                                        'date' => '20080101',
                                                        'name' => 'admin'
                                                      },
                                                      {
                                                        'password' => '123',
                                                        'date' => '20080101',
                                                        'name' => 'root'
                                                      }
                                                    ],
                                          'url' => 'https://10.1.1.1',
                                          'name' => 'marcos'
                                        },
                                        {
                                          'notes' => 'testno',
                                          'ip' => '10.2.2.2',
                                          'user' => {
                                                      'password' => 'asd',
                                                      'date' => '20080102',
                                                      'name' => 'root'
                                                    },
                                          'url' => 'https://10.2.2.2',
                                          'name' => 'marcos2'
                                        }
                                      ]
                            }
          };
marcos => https://10.1.1.1 (10.1.1.1)
marcos2 => https://10.2.2.2 (10.2.2.2)

Estoy tratando de poner más información, por ejemplo:


Obtengo "date" solamente en el segundo resultado y no en todos :S

Pseudo-hashes are deprecated at xml.pl line 12.
Use of uninitialized value in concatenation (.) or string at xml.pl line 12.
marcos => https://10.1.1.1 (10.1.1.1) test
marcos2 => https://10.2.2.2 (10.2.2.2) testno 20080102

Fíjate bien en el volcado (dump).

Resulta que dentro de {technology}{pc}[0]{user}, hay un array anónimo (fíjate en la presencia de unos corchetes) que contiene dos elementos, mientras que {technology}{pc}[1]{user} es un hash con los atributos de un solo usuario.

Ya hemos dicho que XML::Simple es simple de entenderas, por lo que hay que ayudarle un poco a que nos lea bien el XML.

Forzaremos a que se comporte con 'user' siempre de la misma manera. Para eso, cambiamos la línea del XMLin() a
Y ya tenemos

Código: Seleccionar todo

$VAR1 = {
          'technology' => {
                            'name' => 'test',
                            'pc' => [
                                      {
                                        'notes' => 'test',
                                        'ip' => '10.1.1.1',
                                        'user' => [
                                                    {
                                                      'password' => '123',
                                                      'date' => '20080101',
                                                      'name' => 'admin'
                                                    },
                                                    {
                                                      'password' => '123',
                                                      'date' => '20080101',
                                                      'name' => 'root'
                                                    }
                                                  ],
                                        'url' => 'https://10.1.1.1',
                                        'name' => 'marcos'
                                      },
                                      {
                                        'notes' => 'testno',
                                        'ip' => '10.2.2.2',
                                        'user' => [
                                                    {
                                                      'password' => 'asd',
                                                      'date' => '20080102',
                                                      'name' => 'root'
                                                    }
                                                  ],
                                        'url' => 'https://10.2.2.2',
                                        'name' => 'marcos2'
                                      }
                                    ]
                          }
        };

con lo que con el programa
sale

Código: Seleccionar todo

marcos => https://10.1.1.1 (10.1.1.1)
        admin : 20080101
        root : 20080101
marcos2 => https://10.2.2.2 (10.2.2.2)
        root : 20080102

La verdad que muchas gracias, siempre me ayudas en lo que necesito.

Explorer,
Te hago una consulta: ¿hay forma de dividir, por ejemplo

?

Porque me gustaría hacer en el script un tipo de buscador, donde yo, poniendo por ejemplo

me muestre la información de esa PC.

Con el siguiente programa
invocándolo con

Código: Seleccionar todo

./kk.pl -name=marcos

sale

Código: Seleccionar todo

marcos => https://10.1.1.1 (10.1.1.1)
        admin : 20080101
        root : 20080101

Notas:
* Hemos puesto un flag '-s' al principio, para que haga el procesamiento de los argumentos. Es algo simplón, pero efectivo para cosas pequeñas
* Agregamos la línea del 'our' para indicar la presencia de una variable global (la que Perl usará para guardar el valor del parámetro pasado por el usuario)
* Creamos y definimos la variable $host, que guardará el nombre de la máquina, o (||) una expresión regular que coincidirá con cualquier nombre de máquina. Esto lo hacemos para el caso de que el usuario no ponga ningún parámetro y salgan entonces todas las máquinas
* Agregamos la línea del next, para filtrar los $pc que coinciden con nuestro nombre de $host. Observar el hecho de que, realmente, estamos admitiendo como nombre de máquina una expresión regular. Podríamos haber ejecutado el programa con ./kk.pl -name=marcos.* y saldrán todas las máquinas cuyo nombre empiece por 'marcos'.

Muchísimas gracias, espero no tener que molestar con alguna consulta.