Foro - Perl en Español

por **dom87** » 2013-01-28 09:07 @421

Bueno, ya tengo implementado mi webservice con la variante que me comentaba explorer (mod_perl), ahora tengo un problemilla al retornar información con tipos de datos complejos (array, hash), con la variante que comenta panterozo (utilizando SOAP::Data) me funciona bien consumiendo desde un cliente Perl, no así desde uno PHP, ¿alguna idea?, acá dejo mi solución:

WSDL:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0"?>
<wsdl:definitions name="AritmeticaServicio"
    targetNamespace="urn:Webservice"
    xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/"
     xmlns:tns="urn:Webservice"
     xmlns:xsd="http://www.w3.org/2001/XMLSchema"
     xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
     xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
     xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
     xmlns="http://schemas.xmlsoap.org/wsdl/"
     xmlns:tns1="urn:Webservice"
     xmlns:typens="urn:Webservice">
<wsdl:types>
                <schema targetNamespace="urn:Webservice" xmlns="http://www.w3.org/2001/XMLSchema">
                        <import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
                        
                        <complexType name="Data">
                                <sequence>
                                        <element name="dato1" type="xsd:string" />
                                        <element name="dato2" type="xsd:string" />
                                </sequence>
                        </complexType>
                        
                        <complexType name="ArrayOfString">
                                        <sequence>
                                                        <!-- son 4 elementos string -->
                                                        <element minOccurs="2" maxOccurs="2" name="string" nillable="true" type="xsd:string"/>
                                        </sequence>
                        </complexType>
                </schema>
</wsdl:types>
 
<!-- mesagges -->
  <wsdl:message name="AritmeticaPeticion">
    <wsdl:part name="operando1" type="xsd:float" />
    <wsdl:part name="operando2" type="xsd:float" />
  </wsdl:message>
 
  <wsdl:message name="AritmeticaRespuesta">
    <wsdl:part name="respuesta" type="xsd:float" />
  </wsdl:message>
  
  <wsdl:message name="visitasPeticion">
    <wsdl:part name="peticion" type="xsd:float" />
  </wsdl:message>
  
  <wsdl:message name="visitasRespuesta">
    <wsdl:part name="visitas" type="typens:Data" />
  </wsdl:message>
 <!-- mesagges end -->
 
 <!-- portypes -->
  <wsdl:portType name="AritmeticaPort">
          
    <wsdl:operation name="sumar">
      <wsdl:input message="tns:AritmeticaPeticion" />
      <wsdl:output message="tns:AritmeticaRespuesta" />
    </wsdl:operation>
    
    <wsdl:operation name="visitas">
          <wsdl:input message="tns:visitasPeticion" />
      <wsdl:output message="tns:visitasRespuesta" />
    </wsdl:operation>
    
  </wsdl:portType>
  <!-- portypes end -->
 
 <!-- binding -->
  <wsdl:binding name="AritmeticaBinding" type="tns:AritmeticaPort">
    <wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />
    
    <wsdl:operation name="sumar">
        <wsdlsoap:operation soapAction="urn:Webservice#sumar" />
        <wsdl:input>
          <wsdlsoap:body use="encoded" namespace="urn:Webservice" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
        </wsdl:input>
        <wsdl:output>
          <wsdlsoap:body use="encoded" namespace="urn:Webservice" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
        </wsdl:output>
    </wsdl:operation>
    
    <wsdl:operation name="visitas">
        <wsdlsoap:operation soapAction="urn:Webservice#visitas" />
        <wsdl:input>
          <wsdlsoap:body use="encoded" namespace="urn:Webservice" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />      
        </wsdl:input>
        <wsdl:output>
          <wsdlsoap:body use="encoded" namespace="urn:Webservice" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />      
        </wsdl:output>
    </wsdl:operation>
    
  </wsdl:binding>
  <!-- binding end-->
  
 
  <wsdl:service name="AritmeticaServicio">
    <wsdl:port name="AritmeticaPort" binding="tns:AritmeticaBinding">
      <wsdlsoap:address location="http://localhost/WebServices/aritmetica/servidor.pl" />
    </wsdl:port>
  </wsdl:service>
</wsdl:definitions>
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Servidor:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use strict;
use SOAP::Transport::HTTP;
use C4::Webservice;
 
SOAP::Transport::HTTP::CGI  
  -> dispatch_to('Webservice')
  -> handle;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Cliente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use SOAP::Lite +trace => 'debug';
use Data::Dumper;
use strict;
#use SOAP::Lite;
 
my $clienteSOAP = SOAP::Lite->service("http://localhost/WebServices/aritmetica/aritmetica.wsdl");
my $result = $clienteSOAP->sumar(60,20);
my $visitas = $clienteSOAP->visitas();
 
print "El resultado de sumar  es: " . $result . "\n";
foreach  (keys $visitas){
  print $visitas->{$_}."\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Configuración Apache (mod_perl):

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

<Files servidor.pl>
        SetHandler perl-script
        PerlResponseHandler ModPerl::Registry
        PerlOptions +ParseHeaders
        PerlSendHeader On
        Options +ExecCGI
</Files>
 
PerlRequire /home/dom/Escritorio/webservice/aritmetica/startup.pl
 
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Código de startup.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
use lib qw(/usr/share/sigb2/lib);  # this line fixe PERL5LIB !
 
# you can add here what you want.
# see perl.apache.org for more details.
 
1;                          # don't forget to add it.
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

my @array = (
    SOAP::Data->name(
        "item" => \SOAP::Data->value(
            SOAP::Data->name( "tipo"     => "hoy" ),
            SOAP::Data->name( "cantidad" => $visitas{hoy} )->type('string')
        )
        )->type("Visita"),
    SOAP::Data->name(
        "item" => \SOAP::Data->value(
            SOAP::Data->name( "tipo"     => "semana" ),
            SOAP::Data->name( "cantidad" => $visitas{semana} )->type('string')
        )
        )->type("Visita"),
    SOAP::Data->name(
        "item" => \SOAP::Data->value(
            SOAP::Data->name( "tipo"     => "mes" ),
            SOAP::Data->name( "cantidad" => $visitas{mes} )->type('string')
        )
        )->type("Visita"),
    SOAP::Data->name(
        "item" => \SOAP::Data->value(
            SOAP::Data->name( "tipo"     => "anno" ),
            SOAP::Data->name( "cantidad" => $visitas{anno} )->type('string')
        )
        )->type("Visita")
);
 
return SOAP::Data->name( visitas => \SOAP::Data->value(@array) );
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<types>
    <xsd:schema targetNamespace="urn:SIGBWS" xmlns="http://www.w3.org/2001/XMLSchema">
        <xsd:complexType name="VisitasArray">
            <xsd:complexContent>
                <xsd:restriction base="soapenc:Array">
                    <xsd:attribute ref="soapenc:arrayType" wsdl:arrayType="typens:Visita[]" />
                </xsd:restriction>
            </xsd:complexContent>
        </xsd:complexType>
        <xsd:complexType name="Visita">
            <xsd:all>
                <xsd:element name="tipo" type="xsd:string" />
                <xsd:element name="cantidad" type="xsd:string" />
            </xsd:all>
        </xsd:complexType>
    </xsd:schema>
</types>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

¿Quién está conectado?