Foro - Perl en Español

por **panterozo** » 2011-04-28 15:38 @693

Estimados:

Necesito crear un Web Service en Perl. He buscado en el foro, pero no he logrado encontrar lo que busco. Si alguien ha hecho algún Web Service, podría pasar por aquí y ayudarme a comenzar.

¿Hay que tener alguna consideración antes de comenzar?, ¿hay algún módulo que me recomienden, o mejor aún, una lectura donde se explique un desarrollo de algún Web Service en Perl?

Sin mas que deciros, ¡¡¡muchas gracias!!!

Estimados:

Reabro el tema, ya que lo había dejado por un tiempo... He revisado varios ejemplos y otros links a este mundo de los web services. Ahora, tengo un par de dudas...

He realizado unas pruebas con SOAP::Lite, y anda genial. De aquí he hecho algunas pruebas.

Tengo que replicar un web service en la máquina local, pero éste ya tiene un esquema, y el envío de datos es con un XML:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

 
    <InformacionOnline xmlns="http://dominio.com/">
      <usuario>string</usuario>
      <password>string</password>
    </InformacioOnline>
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Ahora... ¿cómo puedo primero enviar datos a este web service cumpliendo con el esquema que ya tiene?, y por otra parte, ¿cómo replico el servicio en mi dominio que cumpla con las restricciones del esquema?

Además... con SOAP::Lite el XML lo envía, pero no lo vemos, ¿no...? Si es así, ¿cómo hacer el XML mostrado arriba...?

Si estoy muy errado en los conceptos, discúlpenme

A todo esto, el servicio es con SOAP

Espero me puedan ayudar

por **panterozo** » 2011-06-01 12:18 @554

Esto ha funcionado para mi...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
 
use LWP::UserAgent;
use HTTP::Request::Common;
 
my $userAgent = LWP::UserAgent->new(agent => 'perl post');
 
my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
                <soap:Envelope xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"
                 xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\"
                 xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\">
                  <soap:Body>
                    <webService xmlns=\"http://www.eldominio.tld/\">
                      <datos>blablabla</datos>
                    </webService>
                  </soap:Body>
                </soap:Envelope>";
 
# A dónde hacemos el post..
my $response = $userAgent->request(POST 'http://www.eldominio.tld/',
Content_Type => 'text/xml',
Content => $message);
 
print $response->error_as_HTML unless $response->is_success;
my $doc = $response->as_string;
# Hago salto de línea
$doc =~ s/></>\n</g;
print $doc;
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Obtenido aquí.

Creo que el manejo con SOAP::Lite debe de hacerse más fácil, o menos líneas de código, pero con este script puedo consumir el servicio web.

Cualquier avance lo posteo..

¡¡¡Saludos!!!

por **panterozo** » 2011-06-08 18:21 @806

Resuelto en Foro Básico

¡¡¡Saludos!!!

Foro - Perl en Español

Construir Web Service

Construir Web Service

Publicidad

Re: Construir Web Service

Re: Construir Web Service

Re: Construir Web Service

Re: Construir Web Service

¿Quién está conectado?