Foro - Perl en Español

por **wolfantec** » 2013-08-23 17:07 @755

Estimados,

Estoy programando un cliente para un webservice muy simple. uso las librerías SOAP::Lite.
El webservice recibe la cadena que envío y me responde la cadena más un literal.
Si la cadena es NULL me responde: "error; cadena vacía".

El problema que tengo es que siempre que le mando un dato, me responde que la cadena esta vacía.

Les adjunto el código, el esquema del webservice, y la salida.

¿Me pueden decir qué estoy haciendo mal para que el webservice no tome la cadena?
Saludos,

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
#Librerías para usar
use strict;
use Data::Dumper;
#Librerías para <span class="posthilit">SOAP</span>
use <span class="posthilit">SOAP</span>::Lite;
 
my $text="Answer:t5:1:t8:83529214031:t14:011593994999852:HangUp";
my $realvalue = <span class="posthilit">SOAP</span>::Data
        ->name('cadena')
        ->type('string')
        ->value($text);
 
my $<span class="posthilit">soap</span> = <span class="posthilit">SOAP</span>::Lite
        -> uri('http://webservice.satix.supertel.gob.ec/')
        -> proxy('http://192.168.0.213:7001/satix/ReceptorCadenaMarcadoService')
        -> recibirCadenaMarcado($realvalue)
        -> result;
 
#dump de la variable para test
my $dump= Data::Dumper->new([$realvalue],[qw(realvalue)]);
print $dump->Dump;
 
print $<span class="posthilit">soap</span>;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Esquema del WS.

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<!-- Published by JAX-WS RI at http://jax-ws.dev.java.net. RI's version is JAX-WS RI 2.2.6hudson-86  svn-revision#12773. -->
<xsd:schema targetNamespace="http://webservice.satix.supertel.gob.ec/">
<xsd:complexType name="recibirCadenaMarcado">
  <xsd:sequence>
    <xsd:element name="cadena" type="xsd:string" minOccurs="0"/>
  </xsd:sequence>
</xsd:complexType>
<xsd:complexType name="recibirCadenaMarcadoResponse">
  <xsd:sequence>
    <xsd:element name="return" type="xsd:string" minOccurs="0"/>
  </xsd:sequence>
</xsd:complexType>
<xsd:element name="recibirCadenaMarcado" type="ns0:recibirCadenaMarcado"/>
  <xsd:element name="recibirCadenaMarcadoResponse" type="ns0:recibirCadenaMarcadoResponse"/>
</xsd:schema>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La salida de mi programa, con el dump que hago a la variables es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

[root@localhost ~]# ./TestSoap.pl 
$realvalue = bless( {
                      '_name' => 'cadena',
                      '_type' => 'string',
                      '_signature' => [
                                        'cadenastring'
                                      ],
                      '_value' => [
                                    'Answer:t5:1:t8:83529214031:t14:011593994999852:HangUp'
                                  ],
                      '_attr' => {}
                    }, '<span class="posthilit">SOAP</span>::Data' );
error; cadena vacía
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Bienvenido a los foros de Perl en Español, wolfantec.

Mira la documentación de SOAP::Trace. Verás que poniendo

use SOAP::Lite +trace => 'all';

en el programa, activas el trazado de la ejecución, y así tendrás más pistas de lo que puede estar pasando (o poniendo 'debug' en lugar de 'all', que quizás sea demasiado).

Por estos foros hay 78 mensajes que hacen referencia a SOAP. Recuerda usar el sistema de búsqueda.

Creo que el problema está en lo que dice el esquema: "cadena" es una cadena de caracteres, pero está dentro de un tipo complejo llamado "recibirCadenaMarcado", así que a lo mejor es eso lo que hay que indicar...

No sé... yo estoy perdido con estos temas, hace mucho que no los sigo. En este hilo recomiendan el uso de SOAP::WSDL, ya que solo tenemos que darle como parámetro de entrada el WSDL que nos dan, y el módulo se encarga de crear las estructuras y métodos Perl que remedan ese WSDL, con lo que solo tenemos que hacer las llamadas a los servicios.

Prueba también a mandarle algún mensaje a alguno de los autores de los mensajes de los hilos que hablan de SOAP, en estos foros, como por ejemplo, scout, ya que ellos tendrán más ideas.

Foro - Perl en Español

Consumo de WebService

Consumo de WebService

Publicidad

Re: Consumo de WebService

¿Quién está conectado?