Es verdad, me equivoque en el código: el $id que puse en realidad es $idcomercio.
$idcomercio, en este caso 64, es el código que me identifica o autentifica ante el server (además que ellos tienen registrado ya mi IP).
He hecho la prueba nuevamente pero aparece la misma respuesta extensa. ¿Qué puede ser?
-
- Publicidad
Cliente webservice en Perl
16 mensajes
• Página 2 de 2 • 1, 2
Re: Cliente webservice en Perl
por luisbal » 2011-09-23 09:14 @426
- luisbal
- Perlero nuevo
- Mensajes: 20
- Registrado: 2008-09-12 09:36 @442
Publicidad
Re: Cliente webservice en Perl
por explorer » 2011-09-23 09:30 @438
Ni idea. Yo veo que responde, pero no veo resultados. Bueno, quizás porque mi IP no está registrada 
Tendrás que ponerte en contacto con su administrador, y remitirle el resultado del 'trace' (no el resultado que sale con el Dumper), para que vea que la petición que haces al servidor sea correcta.
Tendrás que ponerte en contacto con su administrador, y remitirle el resultado del 'trace' (no el resultado que sale con el Dumper), para que vea que la petición que haces al servidor sea correcta.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Cliente webservice en Perl
por luisbal » 2011-09-23 12:10 @548
Muchas gracias por todo, explorer. Ok, le enviaré el trace... pero una última ayuda en este punto: ¿cuál es el trace? Si lo que sale es el Dumper... ¿Cómo hago para obtener el trace? Se trata del código anterior xml que has pegado en tu post?
Gracias otra vez, este foro es de lo mejor que hay.
Gracias otra vez, este foro es de lo mejor que hay.
- luisbal
- Perlero nuevo
- Mensajes: 20
- Registrado: 2008-09-12 09:36 @442
Re: Cliente webservice en Perl
por explorer » 2011-09-23 16:35 @732
La salida del 'debug' gracias al 'trace' es lo que sale a través de la salida estándar (y error estándar).
Si estás ejecutando el programa desde la línea de comandos, es la salida que contiene las cabeceras HTTP, de envío y respuesta del servidor.
Si dejas comentada la línea del Dumper (o la borras), entonces lo verás claramente.
Si ejecutas el programa desde un navegador web, es más complicado, porque esa salida estará en el(los) fichero(s) log del servidor web.
Si estás ejecutando el programa desde la línea de comandos, es la salida que contiene las cabeceras HTTP, de envío y respuesta del servidor.
Si dejas comentada la línea del Dumper (o la borras), entonces lo verás claramente.
Si ejecutas el programa desde un navegador web, es más complicado, porque esa salida estará en el(los) fichero(s) log del servidor web.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Cliente webservice en Perl
por luisbal » 2011-09-27 18:14 @801
Hola, estimado explorer: estuve trasteando el fin de semana revisando códigos y, aunque no consigo una respuesta válida, al menos el Dumper ya me da algún indicio:
EL PROBLEMA es que no sé por qué me dice eso, cuando el IdComercio lo he especificado. Aquí el script:
¿Alguna solución?
gracias
Using perl Syntax Highlighting
$VAR1 = \[
{
'Error' => {
'text' => 'El parametro IdComercio es obligatorio.',
'code' => '1'
}
}
];
{
'Error' => {
'text' => 'El parametro IdComercio es obligatorio.',
'code' => '1'
}
}
];
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
EL PROBLEMA es que no sé por qué me dice eso, cuando el IdComercio lo he especificado. Aquí el script:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- $idcomercio = "64";
- $ideditorial = ""; #opcional
- use SOAP::Lite +trace => 'debug';
- use Data::Dumper;
- $service = SOAP::Lite
- -> uri("http://ws.leer-e.es")
- -> service("http://ws.leer-e.es/wsdl/editorial.wsdl"); # me dijeron use service en vez de proxy
- my $param1 = SOAP::Data->name('IdComercio')->value('$idcomercio')->type('int');
- my $param2 = SOAP::Data->name('IdEditorial')->value('$ideditorial')->type('int');
- my $result = $service->getEditoriales(
- $param1,
- $param2,
- );
- print "Content-Type: text/plain\n\n";
- print $result; #el print $result me arroja "ARRAY(0x9188de4)"
- print Dumper \$result;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¿Alguna solución?
gracias
- luisbal
- Perlero nuevo
- Mensajes: 20
- Registrado: 2008-09-12 09:36 @442
Re: Cliente webservice en Perl
por explorer » 2011-09-27 20:13 @884
Esto:
'$idcomercio'
y esto
'$ideditorial'
en las líneas 12 y 13 son errores: has colocado variables entre comillas simples, con lo que estás pasando las cadenas de caracteres '$idcomercio' y '$ideditorial', y no los valores de las variables...
Anda... quita esas comillas simples...
'$idcomercio'
y esto
'$ideditorial'
en las líneas 12 y 13 son errores: has colocado variables entre comillas simples, con lo que estás pasando las cadenas de caracteres '$idcomercio' y '$ideditorial', y no los valores de las variables...
Anda... quita esas comillas simples...
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
16 mensajes
• Página 2 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado