Foro - Perl en Español

Hola, buenas. Paso a comentarles que quiero armar el archivo WSDL del servicio que estoy probando, realizado en Perl, pero... al querer generarlo con el WSDL::Generator me da error.

La idea es generarlo en el disco C: y luego subirlo al servidor donde está el mismo archivo que brinda el servicio. Si alguno conoce alguna forma de generarlo correctamente o indicarme cuál es mi error se lo agradeceré...


Código de servidor ( funcionando desde un cliente perl )

use SOAP::Transport::HTTP;
use Term::Menu;
use DBI;
SOAP::Transport::HTTP::CGI
-> dispatch_to('servidor')
-> handle;
package servidor;
sub temperatura {
return "La temperatura actual es de 23 grados";
};

Codigo de crearwsdl.pl


#!/usr/bin/perl -w
use WSDL::Generator;
my $init = {
'schema_namesp' => 'http://192.168.0.46:80/archivowsdl.xsd',
'services' => 'servidor',
'service_name' => 'servidor',
'target_namesp' => 'http://192.168.0.46:80/archivowsdl.wsdl',
'documentation' => 'Servicio Web de Prueba',
'location' => 'http://192.168.0.46:80/servidor'
};
my $w = WSDL::Generator->new($init);
ser->prueba();
print $w->get(ser);

Error que aparece :

El error dice que Perl no sabe lo que significa 'ser' en la línea

ser->prueba();

y en la siguiente.

Si tu has escrito el código, tu deberías de saberlo...

Por otra parte, ¿has comprobado la matriz de compatibilidad?

Que raro, no funciona con la versión del Perl 5.12.3 que tengo instalado... Respecto al código es un ejemplo que encontré pero que no responde como uno quiere...

En la matriz de compatibilidad no se indica que no funcione, con esa versión de Perl, sino que nadie hasta ahora lo ha intentado. Si estuviera la celda de color rojo entonces sí que estaría indicando que no se consiguió instalar.

Si encontraste el código en otro sitio, es muy posible que allí se encuentre la definición del objeto 'ser' (aunque estoy sospechando de que se trata de un error sintáctico).

Ok, perfecto... Gracias. Si alguno tiene un ejemplo o tuvo la necesidad de generar un WSDL de un servicio en Perl agradeceré el ejemplo... Hasta el momento entendí que el archivo WSDL permite conectar el servicio con otros lenguajes. Es lo único que me falta para probar y seguir aprendiendo...

Es el IDE de Visual Studio, Eclipse y Netbeans, piden ese requisito para conectar con el servicio, por eso mi perseverancia en generar el archivo de un servicio que solamente responde con un “hola “...

Si no os molesta, quiero compartir el link desde donde encontré una reseña que no estoy pudiendo hacer funcionar... pero lo veo interesante compartirlo.

http://gluc.unicauca.edu.co/wiki/index.php/Servicios_Web_con_Perl

Muy bueno el enlace.

Por lo que se ve en la documentación, tu famoso 'ser', en realidad, deberías escribirlo como 'servidor'.

El archivo en el servidor es servidor.pl, está en cgi-bin y con un cliente Perl funciona bien...
La función se llama "altas" y está probada que funciona correctamente sin pasarle parámetros.
Por ello traté de adaptar el ejemplo al esquema actual...
Cambié la sintaxis y sigue dando error...

use WSDL::Generator;
my $init = {
'schema_namesp' => 'http://192.168.1.x:80/archivowsdl.xsd',
'services' => 'servidor',
'service_name' => 'servidor',
'target_namesp' => 'http://192.168.1.x:80/archivowsdl.wsdl',
'documentation' => 'Servicio Web de Prueba',
'location' => 'http://192.168.1.x:80/servidor'
};
my $w = WSDL::Generator->new($init);
servidor->altas();
print $w->get(altas);

¿Has probado a quitar el 'use strict;' y el 'use warnings;'?

Me he dado cuenta de también existe el módulo SOAP::WDSL.

usando
use strict;
use warnings;
el resultado es este... Lo que me genera duda es no poder terminar de entender cómo funciona el ejemplo, lo de copiar y pegar, bueno, pero me interesa saber qué pasa en cada línea... o al menos a rasgos generales... ansío poder conectar cualquier cliente a mi servicio Perl y me diga "hola".

Quizás me he expresado mal... lo que te decía es que lo probaras sin esos dos pragmas.