Foro - Perl en Español

por **solano_al** » 2011-07-04 07:00 @333

Hola:

Soy nuevo por el foro y en el mundo de Perl, estoy haciendo ejemplos para usar el módulo SOAP::Lite, y me he encontrado con el siguiente problema:

Tengo un servidor con una clase Temperatura con orientación a objetos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use SOAP::Transport::HTTP;
 
#use Temperatures;
 
package servidor;
 
my $daemonio = SOAP::Transport::HTTP::Daemon->new(
    LocalAddr => 'localhost',
    LocalPort => 8045
)->dispatch_to( '', 'Temperatures' );
 
package Temperatures;
 
sub f2c {
    my ( $class, $f ) = @_;
    return 5 / 9 * ( $f - 32 );
}
 
sub c2f {
    my ( $class, $c ) = @_;
    return 32 + $c * 9 / 5;
}
 
sub new {
    my $self = shift;
    my $class = ref($self) || $self;
    bless { _temperature => shift } => $class;
}
 
sub as_fahrenheit {
    return shift->{_temperature};
}
 
sub as_celsius {
    return 5 / 9 * ( shift->{_temperature} - 32 );
}
 
sub prueba {
    return 10;
}
 
$daemonio->handle();
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Y por otro lado tengo un cliente con autodispatch, que es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use SOAP::Lite +autodispatch =>
    uri   => 'http://localhost:8044/Temperatures',
    proxy => 'http://localhost:8044/';
 
print Temperatures->c2f(22), "\n";
 
my $temperatures = Temperatures->new();
print $temperatures;
 
print $temperatures->as_fahrenheit();
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema es que cuando hago $temperatures->as_fahrenheit() me da el siguiente error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Not a HASH reference at C:/Perl64/site/lib/SOAP/Lite.pm line 3755.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y no sé por qué pasa. Si alguien tiene alguna solución...

¡¡Gracias y saludos!!

La verdad es que sí, ¡je,je,je!

Pero bueno, el código lo he sacado de la página principal de la quick guide de SOAP::Lite

http://guide.soaplite.com/#passing%20values

El problema está en que en esa guía, dice que se pueden pasar referencias a objetos por SOAP,
pero probando el código, una vez que creo el objeto con new(), no puedo acceder a sus atributos, porque me da una referencia a la hash no válida.

Y no sé por qué, porque con autodispatch esto de pasar referencias a objetos debería funcionar, ¿¿¿no???

Gracias por contestar tan rápido, ¡¡¡un saludo!!!

por **explorer** » 2011-07-05 12:47 @574

Por lo que he visto, los cambios primeros que hay que hacer son:

* la línea 42 debe estar en la 11. Con ello, arrancas un servicio SOAP en modo dæmon que queda escuchando en el puerto indicado.

En la 41 (que no hay nada), poner

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En el cliente, como tienes activado el autodispatch, debes cambiar la línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print Temperatures->c2f(22), "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print c2f(22), "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Las líneas 8 a 11 son otra forma de acceder a Temperatures. Hay varias formas. Lo normal sería no mezclarlas.

Un detalle importante... el servidor está escuchando en el puerto 8045, pero el cliente se conecta al 8044. Yo entiendo que eso está mal: deberían ser el mismo puerto en los dos extremos.

Foro - Perl en Español

Problema con ejemplo SOAP::Lite y autodispatch

Problema con ejemplo SOAP::Lite y autodispatch

Publicidad

Re: Problema con ejemplo SOAP::Lite y autodispatch

Re: Problema con ejemplo SOAP::Lite y autodispatch

Re: Problema con ejemplo SOAP::Lite y autodispatch

¿Quién está conectado?