Foro - Perl en Español

por **explorer** » 2007-10-31 12:15 @552

Los 'bless' dan la pista de que son objetos. La forma más sencilla de extraer la información es usando los métodos propios de cada objeto.

Veo que son objetos SOAP::Custom::XML::Data, que están definidos como parte de la distribución SOAP::Lite.

En el hilo que te he comentado hay ejemplos de acceso, tanto desde el cliente como del servidor, a los datos que se intercambian.

Has puesto un ejemplo del cliente. ¿Puedes poner un ejemplo corto del servidor?

Otra cosa... ¿no estarás usando Windows y .Net?

Hola Explorer,

Efectivamente estoy usando Windows y .NET. Da igual entonces que te ponga un ejemplo del servidor puesto que esta en .NET (además, no tengo ahora mismo acceso a él). Estuve mirando los hilos que me dijiste, pero no me dan una idea clara de cómo acceder a ellos de manera "automática" es decir, con bucles y tal. De hecho, la estructura que tengo no me deja hacer ni siquiera un foreach. Las estructuras que hay en el ejemplo son además mucho más sencillas y no solo eso, en muchos casos tienes un XML, cosa que yo no tengo porque como ves, la respuesta no está en XML.

Miraré de nuevo los ejemplos de SOAP::Lite, pero sería bueno saber si hay alguna manera de convertir toda esta información en una estructura accesible por índice o algo así.

por **panterozo** » 2011-06-01 17:15 @760

Por si alguien mas pasa por aqui..

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use SOAP::Lite +trace => [qw(debug)];
 
my $soap = SOAP::Lite
    # uri del web service
    -> uri('http://localhost/')
    # En $_[1] se encuentra el nombre del método del web service. Para .NET se necesita una concatenación
    -> on_action( sub { join '/', 'http://localhost', $_[1] } )
    # dónde está el web service
    -> proxy('http://localhost/webservice.asmx');
 
my $method = SOAP::Data->name('NombreMetodo')
    # esto añade un namespace tipo <NombreMetodo xmlns="http://localhost/">
    ->attr({xmlns => 'http://localhost/'});
 
# No hay necesidad de indicar que son int o string
my @params = ( SOAP::Data->name(param1 => 5),
               SOAP::Data->name(param1 => 'aaabbbccc'),
               SOAP::Data->name(param1 => 8 )
             );
# Envias los datos al web service..
my $result = $soap->call($method => @params);
if ($result->fault)
{
   print $result->faultstring;
}
else
{
   print $result->result;
   # Para sacar los datos, pones el nombre de la etiqueta donde vienen los datos
   my @nodes = $result->valueof('//EtiquetaRetorno');
   # y luego lo recorres, nodo a nodo
   foreach $node (@nodes){
       # Value se supone el valor de retorno del webservice.
       print $node->{'value'};
   }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Saludos¡¡¡

Foro - Perl en Español

Acceso a Web Services usando SOAP y WSDL

Publicidad

Re: Acceso a Web Services usando SOAP y WSDL

¿Quién está conectado?