Favor, su ayuda. Al enviar una consulta a un webservice, recibo la siguiente estructura, pero no he podido tomar sus valores. ¿Me sirve XML simple o debo ocupar solo Soap Lite ?... Gracias

Bienvenido a los foros de Perl en español, coltx.

Lo normal es que uses SOAP::Lite para poder acceder de forma cómoda a esas respuestas, pero si el resultado es la estructura de datos que muestras, puedes acceder de forma directa a su contenido.

Ejemplo:

Estimado explorer, muchas gracias por tu respuesta, pero quizás me faltó agregar algo a mi consulta y es que la respuesta desde el ws la dejo almacenada en un string, entonces, ¿cómo puedo recuperar los datos desde ahí? Gracias.

my $xml_resultado = $response->as_string;

Lo más cómodo es recuperar la información desde $response usando las funciones y métodos que acceden a la estructura de datos subyacente.

Si, en cambio, eso te es complicado de hacer, lo que has hecho es pasarlo todo a una cadena de caracteres. Y la forma de sacar la información desde esa cadena depende del formato y estructura de esa cadena.

En Perl tienes las funciones, split(), index(), rindex(), substr(), chop() y chomp() y las expresiones regulares para extraer la información desde esa cadena.

Más información en perlop.

Nuevamente gracias por la explicación, explorer, creo que la mejor opción es tomar los valores desde el $response, ya que se complica mucho a través del string.

¿Me podrías ayudar con la obtención de los valores? Al realizar lo siguiente me retorna :

Useless use of hash element in void context at prueba.pl line 67.
HASH(0x14730f0)

El código desde el response es el siguiente:

my $request = HTTP::Request->new(POST => 'https://www.server.com/prueba.asmx');
$request->header(SOAPAction => '"http://www.server.com/enlaceprueba"');
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);

$VAR1->{'soap:Body'}->{'enlaceprueba'}->{'enlacepruebaresult'}->{'NewDataSet'}->{'table'}->[1]->{'id'};

print $VAR1;

Gracias.

¿$VAR1? ¿No era $response?

Estoy viendo que estás ejecutando el protocolo SOAP "a pelo", lo cual tiene mérito, pero no deja de ser una simple petición HTTP...

¿No sería más cómodo usar SOAP::Lite?

Al hacerlo como muestras, yo sacaría primero la estructura de $response, con Data::Dumper, por ejemplo. Si resulta que es como nos has indicado antes, pues solo queda cambiar el $VAR1 por el $response. Y acceder a los valores cambiando las claves.

Estimado explorer, me está dando un dolor de cabeza el tema... Cuando hablas de usar Data::Dumper ¿se debe exportar a un archivo y luego desde ahí, leerlo?, ¿o puede ser realizado en el mismo script con el cual realizo la consulta al ws?, Gracias nuevamente...

Data::Dumper (o Data::Printer) se usan para ver la estructura de datos de una variable.

Si una variable es solo una cadena de caracteres, pues entonces con un print() o un say() podemos ver qué es lo que contiene.

En cambio, si la variable es una referencia a un array de hash que contiene array con hash como elementos... pues es mejor verlo en pantalla para estar seguros de que es así, y no un array de array de hash de array de hash.

Viendo la documentación de HTTP::Response (que es el tipo de objeto que devuelve $userAgent->request), a ti lo único que te hace falta es ejecutar

print $response->decoded_content;

para obtener (de momento en pantalla) el contenido de la respuesta, que supongo que será un escalar.

A partir de ahí, luego ya podemos pensar cómo sacar lo que quieres sacar.

Esto es por hacer la petición de forma manual, como ya te dije. Si miras el hilo Cliente webservice en Perl, reciente, u otros (usa el sistema de búsqueda. Busca por 'SOAP').

Estimado explorer: al aplicar print $response->decoded_content; me sale lo siguiente...


... la consulta es saber cómo tomo el valor 4 de lo que está en la marca <id_plan>4</id_plan>.

Pensando en llevar el tema a SOAP::Lite, ¿cómo envío un mensaje de este tipo?

Otra vez, muchas gracias

Para extraer el valor puedes usar una expresión regular normal:


En cuanto a cómo hacerlo con SOAP::Lite, habría que mirar la documentación del servidor del que queremos obtener información, pero sería algo así (no probado):


Seguramente habrá bastantes errores de notación o habrá formas más breves de crear la petición.

Lo he sacado de SOAP::Lite for Perl.

Gracias explorer, he comenzado a sacar los datos de la forma que me has dicho... my($id_plan) = $respuesta_decodificada =~ m{<id_plan>(.*?)</id_plan>}; pero pasa que hay varios id_plan y me muestra solo el primero. ¿Me puedes ayudar en cómo puedo hacer un bucle para extraer el resto de los id_plan...? ¿Si te fijas hay varios valores dentro de los <tabla>....</tabla>

el xml es así..


Desde ya muchas gracias...

Claro... y eso no lo habías dicho, y por eso la solución dada era ajustada a lo que pedías.

Sería algo así:
my @id_plan = $respuesta_decodificada =~ m{<id_plan>(.*?)</id_plan>}gsm;

Y los valores quedan guardados en el array.

En este artículo: Five Tips for .NET Programming in Perl se comentan (en inglés) los problemas que hay cuando se quiere realizar un servicio web contra un servidor web, usando SOAP::Lite.

Estimado explorer, gracias por tu ayuda. He logrado consumir desde el WS, pero pasa que algunos datos vienen vacíos y en el array no queda almacenado este "vacío". Al ejecutar esta consulta :

my @id_plan = $respuesta_decodificada =~ m{<id_plan>(.*?)</id_plan>}gsm;

Por ejemplo:


entonces el arreglo queda así @id_plan[1,3,5,6] , pero el "vacío" no lo almacena... Favor, tu ayuda. Gracias.

Sí que almacena el vacío. Lo que pasa es que no lo ves.

Mira esto:

Observa: hay un undef en la tercera posición.