Foro - Perl en Español

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.