Foro - Perl en Español

por **coltx** » 2011-09-16 08:11 @382

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$VAR1 = {
          'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
          'soap:Body' => {
                         'enlaceprueba' => {
                                           'xmlns' =>   'http://www.prueba.com/',
                                           'enlacepruebaresult' => {
                                                                   'NewDataSet' => {
                                                                                   'xmlns' => '',
                                                                                   'table' => [
                                                                                                {
                                                                                                  'id' => '1',
                                                                                                  'campo2' => '2',
                                                                                                  'campo3' => '2',
                                                                                                },
                                                                                                {
                                                                                                  'id' => '2',
                                                                                                  'campo2' => '3',
                                                                                                  'campo3' => '3',
                                                                                                }
                                                                                              ]
                                                                                   }
                                                                   }
                                           }
                         },
          'xmlns:xsd' => 'http://www.w3.org/2001/XMLSchema',
          'xmlns:soap' => 'http://schemas.xmlsoap.org/soap/envelope/'
        };
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
use 5.010;
 
my $VAR1 = {
          'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
          'soap:Body' => {
                         'enlaceprueba' => {
                                           'xmlns' =>   'http://www.prueba.com/',   
                                           'enlacepruebaresult' => {
                                                                   'NewDataSet' => {
                                                                                   'xmlns' => '',
                                                                                   'table' => [
                                                                                                {
                                                                                                  'id' => '1',
                                                                                                  'campo2' => '2',
                                                                                                  'campo3' => '2',
                                                                                                },
                                                                                                {
                                                                                                  'id' => '2',
                                                                                                  'campo2' => '3',
                                                                                                  'campo3' => '3',
                                                                                                }
                                                                                              ]
                                                                                   }
                                                                   }
                                           }
                         },
          'xmlns:xsd' => 'http://www.w3.org/2001/XMLSchema',
          'xmlns:soap' => 'http://schemas.xmlsoap.org/soap/envelope/'
        };
 
say $VAR1->{'soap:Body'}->{'enlaceprueba'}->{'enlacepruebaresult'}->{'NewDataSet'}->{'table'}->[1]->{'id'};
 
__END__
2
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **coltx** » 2011-09-20 08:00 @375

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;

por **explorer** » 2011-09-20 08:59 @416

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.

por **coltx** » 2011-09-20 15:22 @682

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.

por **explorer** » 2011-09-21 15:02 @668

¿$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.

por **coltx** » 2011-09-23 16:27 @727

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...

por **explorer** » 2011-09-23 17:00 @750

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').

por **coltx** » 2011-09-23 19:56 @872

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><enlaceprueba xmlns="http://www.prueba.com/"><enlacepruebaresult><NewDataSet xmlns=""><tabla><id_plan>4</id_plan>
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

... 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

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Header>
   <Credentials xmlns="http://www.prueba.com/">
      <user>usuario</user>
      <pass>password</pass>
      <area>id_area</area>
  </Credentials>
  </soap:Header>
  <soap:Body>
    <enlace_prueba xmlns="http://www.prueba.com/">
      <con_xml>
        <search>
                 <segmento>vip</segmento>
                 <id>22</id>
                 <movimiento>m</movimiento>
                 <busqueda></busqueda>
                 <id_med>10</id_med>
                 <id_neg></id_neg>
                 <inicio>01-01-2011</inicio>
                 <fin>31-01-2011</fin>
        </search>
      </con_xml>
    </enlace_prueba>
  </soap:Body>
</soap:Envelope>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-09-24 14:34 @649

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $respuesta_decodificada = $response->decoded_content;
 
my($id_plan) = $respuesta_decodificada =~ m{<id_plan>(.*?)</id_plan>};
 
print "[$id_plan]\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use SOAP::Lite;
 
my $service = SOAP::Lite 
    -> uri('/examples')
    -> proxy(
           'http://services.soaplite.com/auth/examples.cgi', 
           credentials => [
               'www.prueba.com:80',        # host:port
               'id_area',                  # realm
               'usuario' => 'password',    # user, password
           ]
       )
    ;
 
print $service->search(
                        SOAP::Data->name(segmento   => 'vip'       ),
                        SOAP::Data->name(id         => 22          ),
                        SOAP::Data->name(movimiento => 'm'         ),
                        SOAP::Data->name(id_med     => 10          ),
                        SOAP::Data->name(id_neg     => ''          ),
                        SOAP::Data->name(inicio     => '01-01-2011'),
                        SOAP::Data->name(fin        => '31-01-2011'),
                )
              ->result;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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.

Foro - Perl en Español

Cómo leer un SOAP

Cómo leer un SOAP

Publicidad

Re: Cómo leer un SOAP

Re: Cómo leer un SOAP

Re: Cómo leer un SOAP

Re: Cómo leer un SOAP

Re: Cómo leer un SOAP

Re: Cómo leer un SOAP

Re: Cómo leer un SOAP

Re: Cómo leer un SOAP

Re: Cómo leer un SOAP

¿Quién está conectado?