Foro - Perl en Español

por **piero66** » 2014-07-25 12:20 @555

Hola, buenos días.

Sucede que consumo un Web Service que me regresa un string de tipo XML, pero no sé cómo acceder a los datos.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $serviceWsdl = "http://192.1.1.1:8080/services/Ws?wsdl";
my $soap = SOAP::Lite->service($serviceWsdl);
mu $param = "valores";
$result =  $soap->servicio($param);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Al parecer $result debe contener algo como esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<S> 
        <SEC> 
                <NONCE></NONCE> 
        </SEC>
        <RES> 
                <EXITO></EXITO> 
                <CODIGO></CODIGO>               
        </RES>
        <PAR>
                <SOLICITUD>
                        <EJE_SOL></EJE_SOL> 
                        <NUM_SOL></NUM_SOL> 
                        <FECHA_SOL></FECHA_SOL>                 
                        <TITULAR> 
                                        <TIPODOCUMENTO></TIPODOCUMENTO> 
                                        <DOCUMENTO></DOCUMENTO> 
                                        <NOM_TIT></NOM_TIT>                                     
                        </TITULAR> 
                        <REPRESENTANTE> 
                                        <DOCUMENTO></DOCUMENTO> 
                                        <NOM_REP></NOM_REP>                                     
                        </REPRESENTANTE> 
                        <NUM_REG></NUM_REG>                                             
                        <L_VARIABLES> 
                                <VARIABLE> 
                                        <CODIGO></CODIGO> 
                                        <ETIQUETA></ETIQUETA>                                   
                                </VARIABLE> 
                        </L_VARIABLES> 
                        <L_DOC> 
                                <DOC> 
                                        <DAT></DAT> 
                                        <NOM></NOM> 
                                        <EXT></EXT>                                     
                                </DOC> 
                        </L_DOC> 
                </SOLICITUD> 
        </PAR> 
</S>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No sé cómo acceder a cada uno de los tags.

¿Me podrían apoyar?
¡ Gracias anticipadas !

A ver, ya te digo que es fácil si ves los ejemplos que ya existen en estos hilos. Busca por XML::Simple.

Verás que hay que pasar el xml a XMLin(), y luego ya podrás acceder al contenido.

Eso sí... el problema de XML::Simple es que la palabra 'Simple' engaña... No quiere decir que el acceso al xml sea sencillo, sino que lo que es sencillo es el propio módulo... con lo que a veces va a hacer cosas que no queremos o comprendemos.

por **piero66** » 2014-07-25 17:46 @782

Sí, de hecho ya lo modifiqué y puedo obtener todos los datos:

my $result = $xml->XMLin($soap->servicio($datos), forcearray => 1);

imprime_elemento("Datos",$result,"");

sub imprime_elemento {
my $nombre = shift;
my $elemento = shift;
my $indentacion = shift;
print $indentacion . "" . $nombre . "<br>";
$indentacion .= " ";
foreach my $clave (keys %$elemento) {
if (ref $elemento->{$clave} eq "ARRAY") {
foreach my $subelemento (@{$elemento->{$clave}}) {
if (ref $subelemento eq "HASH") {
imprime_elemento($clave, $subelemento,$indentacion);
} else {
print $indentacion . "      ELEMENTO: " . $clave . ", Valor: " . $subelemento . "<br";
}
}
} else {
print $indentacion . "Atributo: " . $clave . ". Valor: " . $elemento->{$clave} . "<br>";
}
}
}

pero, francamente, no sé cómo acceder, por ejemplo a esta marca: <NUM_SOL> que ya está guardado dentro de la cadena $result.

<S>

<PAR>
<SOLICITUD>
<NUM_SOL></NUM_SOL>
</SOLICITUD>
</PAR>
</S>

No sé si me expliqué, explorer, perdón, ¡¡ me hice muchas bolas !!

por **explorer** » 2014-07-25 20:30 @895

Has leído poco...

Cuando no sabemos qué aspecto tiene algo, podemos hacer un volcado para verlo.

Ejemplo. Con el siguiente programa vemos el contenido del xml interpretado por XML::Simple:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;
use File::Slurp;
use XML::Simple;
 
my $xmlfile = read_file('code_37483_1.xml');
 
my $xs = XML::Simple->new();
 
my $xml = $xs->XMLin( $xmlfile, forcearray => 1 );
 
use Data::Dumper;
say Dumper $xml;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esta es la salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

$VAR1 = {
          'SEC' => [
                   {
                     'NONCE' => [
                                {}
                              ]
                   }
                 ],
          'PAR' => [
                   {
                     'SOLICITUD' => [
                                    {
                                      'REPRESENTANTE' => [
                                                         {
                                                           'DOCUMENTO' => [
                                                                          {}
                                                                        ],
                                                           'NOM_REP' => [
                                                                        {}
                                                                      ]
                                                         }
                                                       ],
                                      'L_VARIABLES' => [
                                                       {
                                                         'VARIABLE' => [
                                                                       {
                                                                         'CODIGO' => [
                                                                                     {}
                                                                                   ],
                                                                         'ETIQUETA' => [
                                                                                       {}
                                                                                     ]
                                                                       }
                                                                     ]
                                                       }
                                                     ],
                                      'NUM_SOL' => [
                                                   'X'
                                                 ],
                                      'NUM_REG' => [
                                                   {}
                                                 ],
                                      'FECHA_SOL' => [
                                                     {}
                                                   ],
                                      'L_DOC' => [
                                                 {
                                                   'DOC' => [
                                                            {
                                                              'EXT' => [
                                                                       {}
                                                                     ],
                                                              'NOM' => [
                                                                       {}
                                                                     ],
                                                              'DAT' => [
                                                                       {}
                                                                     ]
                                                            }
                                                          ]
                                                 }
                                               ],
                                      'TITULAR' => [
                                                   {
                                                     'DOCUMENTO' => [
                                                                    {}
                                                                  ],
                                                     'NOM_TIT' => [
                                                                  {}
                                                                ],
                                                     'TIPODOCUMENTO' => [
                                                                        {}
                                                                      ]
                                                   }
                                                 ],
                                      'EJE_SOL' => [
                                                   {}
                                                 ]
                                    }
                                  ]
                   }
                 ],
          'RES' => [
                   {
                     'CODIGO' => [
                                 {}
                               ],
                     'EXITO' => [
                                {}
                              ]
                   }
                 ]
        };
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Vemos que XML::Simple ha generado un array por cada marca. Eso es debido a la presencia de la opción ForceArray => 1.

Entonces para acceder a 'NUM_SOL' usaremos algo como esto:

$xml->{PAR}->[0]->{SOLICITUD}->[0]->{NUM_SOL}->[0];

Si lo ponemos a 0, sale algo completamente distinto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

$VAR1 = {
          'SEC' => {
                   'NONCE' => {}
                 },
          'PAR' => {
                   'SOLICITUD' => {
                                  'REPRESENTANTE' => {
                                                     'DOCUMENTO' => {},
                                                     'NOM_REP' => {}
                                                   },
                                  'L_VARIABLES' => {
                                                   'VARIABLE' => {
                                                                 'CODIGO' => {},
                                                                 'ETIQUETA' => {}
                                                               }
                                                 },
                                  'NUM_SOL' => 'X',
                                  'NUM_REG' => {},
                                  'FECHA_SOL' => {},
                                  'L_DOC' => {
                                             'DOC' => {
                                                      'EXT' => {},
                                                      'NOM' => {},
                                                      'DAT' => {}
                                                    }
                                           },
                                  'TITULAR' => {
                                               'DOCUMENTO' => {},
                                               'NOM_TIT' => {},
                                               'TIPODOCUMENTO' => {}
                                             },
                                  'EJE_SOL' => {}
                                }
                 },
          'RES' => {
                   'CODIGO' => {},
                   'EXITO' => {}
                 }
        };
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

con lo que para acceder a 'NUM_SOL' sería

$xml->{PAR}->{SOLICITUD}->{NUM_SOL};

lo cual es más sencillo, claro.

Otra cosa... es muy posible que no necesites hacer la traducción a cadena de lo que te devuelve SOAP, y que la respuesta ya sea una estructura jerárquica, con lo que no necesitas XML::Simple, sino acceder a los contenidos de forma directa. Esto es lo que se comenta en el hilo Cómo leer un SOAP enlazado antes.

Es más... no necesitas nada de esto...

Según la documentación de SOAP::Lite, la respuesta de la ejecución de un método es de tipo SOAP::SOM. Entonces, tu programa podría quedar reducido a algo como esto (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $serviceWsdl = "http://192.1.1.1:8080/services/Ws?wsdl";
my $soap = SOAP::Lite->service($serviceWsdl);
my $param = "valores";
my $result =  $soap->servicio($param);
my $res = $result->valueof('//PAR/SOLICITUD/NUM_SOL');
print "$res\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **piero66** » 2014-07-28 10:58 @499

Muchas gracias, explorer. Me ha funcionado perfecto. Tienes razón, a veces trato de irme a los ejemplos y olvido leer la documentación.

Con estas instrucciones me ha funcionado lo que busco.

my $xs = XML::Simple->new();
$xml = $xs->XMLin( $soap->servicio($datos), forcearray => 1 );
print $xml->{PAR}->[0]->{SOLICITUD}->[0]->{NUM_SOL}->[0];

por **explorer** » 2014-07-28 11:32 @522

¿No te ha funcionado lo del valueof()?

por **piero66** » 2014-07-28 17:58 @790

Traté de ejecutar los dos. El primero me corre bien, el segundo me manda un error en esa parte.

Can't call method "valueof" without a package or object reference at consumeExp.cgi line 23.

Traté de instalar SOAP::SOM con cpan, pero no me dejó.

Como ya me había funcionado el primero sobre esa línea, me fui :oops:

por **explorer** » 2014-07-28 18:49 @826

No tienes que instalar SOAP::SOM. Ya viene incluido con la distribución de SOAP::Lite.

Foro - Perl en Español

Acceder a un string XML de Web service

Acceder a un string XML de Web service

Publicidad

Re: Acceder a un string XML de Web service

Re: Acceder a un string XML de Web service

Re: Acceder a un string XML de Web service

Re: Acceder a un string XML de Web service

Re: Acceder a un string XML de Web service

Re: Acceder a un string XML de Web service

Re: Acceder a un string XML de Web service

Re: Acceder a un string XML de Web service

Re: Acceder a un string XML de Web service

¿Quién está conectado?