Foro - Perl en Español

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.



Al parecer $result debe contener algo como esto:

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

¿Me podrían apoyar?
¡ Gracias anticipadas !

Sí que se podría usar XML::Simple.

Antes, mira estos otros hilos, para ver otras opciones:

• Cómo leer un SOAP
• Cliente webservice en Perl
• Cliente Perl consumiendo servicio Java usando WSDL

Hay otros hilos parecidos. Usa el sistema de búsqueda. Si no te valen esos métodos, tendrás que usar XML::Simple, del que también hemos hablado mucho y hay muchos ejemplos. Usa el sistema de búsqueda.

Si no lo ves claro, vuelve a preguntar aquí.

Hola, sí que he visto los enlaces anteriormente, pero se me hacen confusos. De hecho ahí fue que vi algo como esto:

use XML::Simple; y lo he declarado en mi ejemplo, pero la verdad no sé cómo utilizarlo ya en los datos específicos (XML) que me regresa el Web service.

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.

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 . "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;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 !!

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:
Esta es la salida:

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:
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):

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];

¿No te ha funcionado lo del valueof()?

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

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