Foro - Perl en Español

por **joshuasilva** » 2011-01-04 07:55 @371

Buenas tardes,

Estoy tratando un fichero XML de ejemplo, que sería el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0"?>
<menu>
  <clientes>
    <cliente>
      <nombre>operador1</nombre>
      <fecha>11:50 30/1/2000</fecha>
      <apodo>apodo1</apodo>
    </cliente>
    <cliente>
      <nombre>operador2</nombre>  
      <fecha>10:30 22/2/2000</fecha>
      <apodo>apodo2</apodo>
    </cliente>
  </clientes>
  <empresas>
    <empresa>
        <nombre>empresa1</nombre>
    </empresa>
    <empresa>
        <nombre>empresa2</nombre>
    </empresa>
</menu>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que quiero hacer es coger el campo "nombre" del primer cliente (operador1) y compararlo con un texto, de forma que si coincide me saque un mensaje.
He probado el siguiente código, pero la verdad ando perdido sobre cómo debo hacerlo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$ficheroxml= XMLin("pruebas_perl/clientes.xml");
print"Inicio búsqueda\n";
for(@{$ficheroxml->{clientes}->{cliente}}){
if($ficheroxml->{clientes}->{cliente}[0]=="operador1"){
print"Encontrado!\n";
}
}Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¡Gracias de antemano!

El xml está mal: falta cerrar la marca <empresas>.

Además, veo que tienes un if() con una comparación de cadenas de caracteres, pero estás usando el comparador numérico ==, cuando deberías de usar el comparador alfanumérico eq.

Una vez resuelto ese tema, lo mejor para tratar con XML::Simple es usar a nuestro amigo Data::Dumper:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use XML::Simple;
 
my $ficheroxml = XMLin("code_23978.xml");
 
use Data::Dumper;
print Dumper \$ficheroxml;
 
print "Inicio búsqueda\n";
 
for my $cliente ( @{$ficheroxml->{clientes}->{cliente}} ) {
    if ($cliente->{nombre} eq "operador1") {   
        print "¡Encontrado operador1!\n";
    }
}
 
__END__
$VAR1 = \{
            'empresas' => {
                            'empresa' => [
                                           {
                                             'nombre' => 'empresa1'
                                           },
                                           {
                                             'nombre' => 'empresa2'
                                           }
                                         ]
                          },
            'clientes' => {
                            'cliente' => [
                                           {
                                             'apodo' => 'apodo1',
                                             'fecha' => '11:50 30/1/2000',
                                             'nombre' => 'operador1'
                                           },
                                           {
                                             'apodo' => 'apodo2',
                                             'fecha' => '10:30 22/2/2000',
                                             'nombre' => 'operador2'
                                           }
                                         ]
                          }
          };
Inicio búsqueda
¡Encontrado operador1!
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Viendo la estructura que XML::Simple ha leído, podemos figurarnos qué es lo que tenemos que escribir para acceder a los datos.

por **joshuasilva** » 2011-01-07 03:21 @181

Ostras, ¡muchas gracias, ahora ya funciona!

PD: Espero que los reyes se hayan portado bien

Foro - Perl en Español

Extracción de datos con XML::Simple

Extracción de datos con XML::Simple

Publicidad

Re: Extracción de datos con XML::Simple

Re: Extracción de datos con XML::Simple

¿Quién está conectado?