Foro - Perl en Español

por **panterozo** » 2011-06-11 20:24 @891

explorer escribiste:Como ya he dicho en otras ocasiones, a mi Java ya no me sirve para nada.

Concuerdo con explorer

.

Qué bueno que hayas podido hacer el servicio web

Saludos

scout escribiste:Lo probaré, a ver si puedo repetir lo que lograste... Mientras mira lo que te contaba sobre montar un servicio en Java: instala el Netbeans 7 y el glassfish-3.1 que es el servidor, no te interferirá con el Apache, trabaja en el 8080 si mal no recuerdo y sigue estas instrucciones... Tiene un vídeo más completo pero comienza con algo simple...

En las indicaciones te mostrará cómo probarlo directamente... Con ello te sacas de la duda de su funcionamiento... Y puedes exportar el WSDL... Pero obviamente la idea no es usar Java... Si no Perl... Míralo y cuéntame.

http://www.ooscarr.com/nerd/elblog/2008 ... web-en.php

Con esto te olvidas del WSDL y demás configuraciones que te traen dolores de cabeza, pudiendo focalizar en la lógica del servicio a brindar... que es la idea principal...

¡Hola a todos!

Es un gusto ser parte de este gran foro... y sobre todo, por la ayuda que le brindan a las personas, muchas gracias.

Bien, soy nuevo en Perl, y para empezar he visto el tutorial que indican en la página, creé el web service como lo indican, pero quisiera saber cómo consumirlo.

Tengo este código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use SOAP::Lite;
$service = SOAP::Lite -> uri('http://info.geren/') -> proxy('http://localhost:9191/informacion/holla?WSDL');
$result = $service 
        -> hello("Peter") 
        ->result();
print  "\t", $result, "\n\n";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Resultado desde la terminal

Hello null !

Debería obtener "Hello Peter" pero es como si no me envía el parámetro al @webmethod que es "hello".

No sé si estoy cerca o muy lejos, pero desde ya les agradezco la comprensión y ayuda.

por **scout** » 2011-11-01 02:59 @166

Trabaja todo en Perl, los ejemplos que hay en el foro...

Por otro lado luego de muchas pruebas Java/Perl, si vas a montar servicios te recomiendo todo en Perl, Java es muy lindo y a nivel de montar servicios es de lo más completo pero con Perl es bueno, bonito y barato... ¡Ojo! es una opinión de un novato que probó combinaciones raras de servicios y clientes...

por **explorer** » 2011-11-01 08:52 @411

Bienvenido a los foros de Perl en español, Thomson_.

Yo el programa cliente lo veo bien. Pero el servidor no sé cómo es, así que no podemos decirte más...

por **Thomson_** » 2011-11-01 10:11 @466

Gracias por la información, scout. No conocía a Perl con tantas opciones

Bien, el código que genera Netbeans es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using java Syntax Highlighting

package geren.info;
import javax.jws.WebService;
import javax.jws.WebMethod;
import javax.jws.WebParam;
 
@WebService(serviceName = "holla")
public class holla {
 
    /** This is a sample web service operation */
    @WebMethod(operationName = "hello")
    public String hello(@WebParam(name = "name") String txt) {
        return "Hello " + txt + " !";
    }
}
Coloreado en 0.019 segundos,  usando GeSHi 1.0.8.4

El archivo wsdl generado por Netbeans http://localhost:9191/informacion/holla?WSDL, contiene esto,

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

This XML file does not appear to have any style information associated with it. The document tree is shown below.
      
<!-- 
Published by JAX-WS RI at http://jax-ws.dev.java.net. RI's version is Metro/2.1.1-b09 (branches/2.1-6834; 2011-07-16T17:14:48+0000) JAXWS-RI/2.2.5-promoted-b04 JAXWS/2.2. 
-->
<!-- 
Generated by JAX-WS RI at http://jax-ws.dev.java.net. RI's version is Metro/2.1.1-b09 (branches/2.1-6834; 2011-07-16T17:14:48+0000) JAXWS-RI/2.2.5-promoted-b04 JAXWS/2.2. 
-->
<definitions targetNamespace="http://info.geren/" name="holla">
        <types>
                <xsd:schema>
                        <xsd:import namespace="http://info.geren/" schemaLocation="http://localhost:9191/informacion/holla?xsd=1"/>
                </xsd:schema>
        </types>
<message name="hello">
        <part name="parameters" element="tns:hello"/>
</message>
<message name="helloResponse">
        <part name="parameters" element="tns:helloResponse"/>
</message>
<portType name="holla">
        <operation name="hello">
                <input wsam:Action="http://info.geren/holla/helloRequest" message="tns:hello"/>
                <output wsam:Action="http://info.geren/holla/helloResponse" message="tns:helloResponse"/>
        </operation></portType>
<binding name="hollaPortBinding" type="tns:holla">
        <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document"/>
        <operation name="hello">
                <soap:operation soapAction=""/>
                <input>
                        <soap:body use="literal"/>
                </input>
                <output>
                        <soap:body use="literal"/>
                </output>
        </operation>
</binding>
<service name="holla">
        <port name="hollaPort" binding="tns:hollaPortBinding">
                <soap:address location="http://localhost:9191/informacion/holla"/>
        </port>
        </service>
</definitions>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **dom87** » 2013-01-22 17:18 @763

Estuve revisando algunos hilos de los foros del sitio, pues me estoy iniciando en el tema de los webservices con Perl. Resulta que debo exponer el/los servicios utilizando WSDL, pero no he dado con ello para generar el archivo *.wsdl y que funcione correctamente. He probado varios ejemplos uno de ellos el que expongo a consideración en espera de ayuda. Para ello utilicé el módulo WSDL::Generator, este es el archivo que se genera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?>
<definitions name="Cafetera" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" targetNamespace="http://localhost:8090/cafetera.wsdl" xmlns:tns="http://localhost:8090/cafetera.wsdl" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:xsdl="http://localhost:8090/cafetera.xsd">
        <types>
                <xsd:schema targetNamespace="http://localhost:8090/cafetera.xsd">
                        <xsd:element name="prepararCafeRequest" type="xsd:string" />
                        <xsd:element name="prepararCafeResponse" type="xsd:string" />
                </xsd:schema>
        </types>
        <message name="prepararCafeRequest">
                <part name="prepararCafeRequestSoapMsg" element="xsdl:prepararCafeRequest"/>
        </message>
        <message name="prepararCafeResponse">
                <part name="prepararCafeResponseSoapMsg" element="xsdl:prepararCafeResponse"/>
        </message>
        <portType name="CafeteraCafeteraPortType">
                <operation name="prepararCafe">
                        <input message="tns:prepararCafeRequest" />
                        <output message="tns:prepararCafeResponse" />
                </operation>
        </portType>
        <binding name="CafeteraCafeteraBinding" type="tns:CafeteraCafeteraPortType">
                <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
                        <operation name="prepararCafe">
                                <soap:operation style="document" soapAction=""/>
                                <input>
                                        <soap:body use="literal"/>
                                </input>
                                <output>
                                        <soap:body use="literal"/>
                                </output>
                        </operation>
        </binding>
        <service name="Cafetera">
                <documentation>
                        Servicio Web de Prueba
                </documentation>
                <port name="CafeteraCafeteraPort" binding="tns:CafeteraCafeteraBinding">
                        <soap:address location="http://localhost:8090/Cafetera.pm"/>
                </port>
        </service>
</definitions>
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y utilizando el cliente con Perl desde el shell:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $client = SOAP::Lite->service('http://localhost:8090/cafetera1.wsdl');
  my $resultado = $client->prepararCafe(5);
  print "Preparando cafe: ".$resultado."\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

tengo la siguiente salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

SOAP::Transport::HTTP::Client::send_receive: POST http://localhost:8090/Cafetera.pm HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 566
Content-Type: text/xml; charset=utf-8
SOAPAction: ""
 
<?xml version="1.0" encoding="UTF-8"?><soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsdl="http://localhost:8090/cafetera.xsd" xmlns:tns="http://localhost:8090/cafetera.wsdl" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><tns:prepararCafe><prepararCafeRequest xsi:type="xsd:string">5</prepararCafeRequest></tns:prepararCafe></soap:Body></soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Connection: close
Date: Tue, 22 Jan 2013 21:28:08 GMT
Accept-Ranges: bytes
ETag: "85c31-15d-4d3e73bcc6640"
Server: Apache/2.2.22 (Ubuntu)
Content-Length: 349
Content-Type: text/x-perl
Last-Modified: Tue, 22 Jan 2013 21:26:41 GMT
Client-Date: Tue, 22 Jan 2013 21:28:08 GMT
Client-Peer: 127.0.0.1:8090
Client-Response-Num: 1
 
#!/usr/bin/perl -w
# Servicio web de ejemplo
package Cafetera;
use strict;
# Este es el constructor
sub new{
 my $proto = shift;
 my $class = ref($proto) || $proto;
 my $tasas = 0;
 bless($tasas,$class);
}
sub prepararCafe{
 shift;
 my $tasas = shift;
 #print STDERR "Llamado con el parámetro $tasas";
 return "Se prepararon ".$tasas." tasas";
}
1;
 
not well-formed (invalid token) at line 1, column 1, byte 1 at /usr/lib/perl5/XML/Parser.pm line 187
#!/usr/bin/perl -w
# Servicio web de ejemplo
package Cafetera;
use strict;
# Este es el constructor
sub new{
 my $proto = shift;
 my $class = ref($proto) || $proto;
 my $tasas = 0;
 bless($tasas,$class);
}
sub prepararCafe{
 shift;
 my $tasas = shift;
 #print STDERR "Llamado con el parámetro $tasas";
 return "Se prepararon ".$tasas." tasas";
}
1; at cliente.pl line 19
 
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Al parecer hay algún reporte de error. También probé generando el *.wsdl con Pod::WSDL, pero mayormente hay que agregar manualmente el contenido, ¿alguna sugerencia?

Gracias de antemano.

por **explorer** » 2013-01-22 23:16 @011

Esta línea es la clave:

Content-Type: text/x-perl

Quiere decir que el servidor no ha ejecutado el programa Perl que hace de servidor, sino que te le ha devuelto tal cual, es decir, como un archivo de texto codificado en Perl.

Algo debes tener mal en el servidor web o de aplicaciones, que no está ejecutando el programa servidor.

por **dom87** » 2013-01-23 09:03 @418

Gracias por la respuesta, explorer. ¿Alguna idea de cuál pudiera ser el problema o los permisos que deben tener los archivos tanto *.wsdl como .pm para que se ejecuten desde el servidor? Por cierto, este es log del Apache cuando intento acceder al servicio web a través de un cliente php:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

PHP Fatal error:  Uncaught SoapFault exception: [Client] Function ("prepararCafe") is not a valid method for this service in /var/www/webservice.php:7

Stack trace:

#0 /var/www/webservice.php(7): SoapClient->__call('prepararCafe', Array)

#1 /var/www/webservice.php(7): SoapClient->prepararCafe(5)

#2 {main}

  thrown in /var/www/webservice.php on line 7
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-01-23 14:47 @657

No me dice nada el mensaje de error de PHP, pero supongo que es por lo mismo: el servidor no ha respondido con una respuesta de un servicio, sino con un simple archivo de texto codificado en Perl

Primero debes configurar el servidor para que ejecute el código Perl del lado del servidor.

Bastará con indicar un directorio del sistema al que el Apache tiene acceso, como contenedor de código ejecutable.

Para ponerlo en marcha, depende de la tecnología que vayas a usar con Apache:

mod_perl: hay que crear una pequeña configuración para que Apache ejecute los programas Perl a través de mod_perl
como un simple CGI: (ejemplo) Configuración aquí, aquí, aquí y aquí
Apache::Registry, Apache::SOAP y otros métodos. Ahí mismo, el primer ejemplo, demuestra que ni siquiera necesitas un servidor Apache para hacer funcionar un servidor de aplicaciones: con solo usar un módulo derivado de HTTP::Daemon (como el SOAP::Transport::HTTP mostrado en el ejemplo) ya tienes un servidor funcionando

Resumen: o te creas un servidor propio con HTTP::Daemon, o usas el Apache. Y para este último, lo configuras como si fuera a ejecutar scripts CGI (AddHandler cgi-script para configurar según la extensión del archivo, ScriptAlias para configurar un determinado directorio, junto con Options ExecCGI), o usas una tecnología más completa (y complicada) con mod_perl y resto de módulos Apache:: (SetHandler perl-script)

Muchos más detalles en http://www.soaplite.com.

por **dom87** » 2013-01-24 16:10 @715

Gracias por la pronta respuesta, explorer. Ya estaba analizando la variante que me comentas sobre utilizar mod_perl, ya estoy implementando una solución sobre ello, y así, como decimos en buen cubano, mato dos pájaros de un tiro: el tema de los webservices y el rendimiento de mi sistema.

Foro - Perl en Español

Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

Publicidad

Re: Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

Re: Cliente Perl consumiendo servicio Java usando WSDL

¿Quién está conectado?