Foro - Perl en Español

SOAP::Transport::new: ()
SOAP::Serializer::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Lite::new: ()
SOAP::Transport::HTTP::Client::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Schema::new: ()
SOAP::Lite::call: ()
SOAP::Serializer::envelope: ()
SOAP::Serializer::envelope: hi Kutter Martin
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0x27aaa04)
SOAP::Transport::HTTP::Client::send_receive: POST http://192.168.xx.xx:80/prueba
s2/WebService/hibye.cgi HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 501
Content-Type: text/xml; charset=utf-8
SOAPAction: "urn:HelloWorld#hi"

<?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:xsd="
http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-in
stance"><soap:Body><hi xmlns="urn:HelloWorld"><c-gensym3 xsi:type="xsd:string">K
utter</c-gensym3><c-gensym5 xsi:type="xsd:string">Martin</c-gensym5></hi></soap:
Body></soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x2af6594)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Connection: Keep-Alive
Date: Mon, 02 Apr 2018 15:55:31 GMT
Accept-Ranges: bytes
ETag: "0-1547-5ac2523d"
Server: SAMBAR
Content-Length: 871
Content-Type: text/plain
Last-Modified: Mon, 02 Apr 2018 15:54:37 GMT
Client-Date: Mon, 02 Apr 2018 15:55:31 GMT
Client-Peer: 192.168.xx.xx:80
Client-Response-Num: 1
Keep-Alive: max=50, timeout=25

#!perl -w

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
        -> dispatch_to('Demo')
        -> handle;

package Demo;

sub hi {
        return "hello, world";
}

sub bye {
        return "goodbye, cruel world";
}

###########!/usr/bin/perl
##########use SOAP::Transport::HTTP;
##########SOAP::Transport::HTTP::CGI
##########  ->dispatch_to('C2FService')
##########  ->handle;
##########BEGIN {
##########  package C2FService;
##########  use vars qw(@ISA);
##########  @ISA = qw(Exporter SOAP::Server::Parameters);
##########  use SOAP::Lite;
##########  sub c2f {
##########      my $self = shift;
##########      my $envelope = pop;
##########      my $temp = $envelope->dataof("//c2f/temperature");
##########      return SOAP::Data->name('convertedTemp' => (((9/5)*($temp->value
)) + 32));
##########  }
##########}
SOAP::Deserializer::deserialize: ()
SOAP::Parser::decode: ()

not well-formed (invalid token) at line 1, column 1, byte 1 at C:/Perl/lib/XML/P
arser.pm line 187
#!perl -w

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
        -> dispatch_to('Demo')
        -> handle;

package Demo;

sub hi {
        return "hello, world";
}

sub bye {
        return "goodbye, cruel world";
}

###########!/usr/bin/perl
##########use SOAP::Transport::HTTP;
##########SOAP::Transport::HTTP::CGI
##########  ->dispatch_to('C2FService')
##########  ->handle;
##########BEGIN {
##########  package C2FService;
##########  use vars qw(@ISA);
##########  @ISA = qw(Exporter SOAP::Server::Parameters);
##########  use SOAP::Lite;
##########  sub c2f {
##########      my $self = shift;
##########      my $envelope = pop;
##########      my $temp = $envelope->dataof("//c2f/temperature");
##########      return SOAP::Data->name('convertedTemp' => (((9/5)*($temp->value
)) + 32));
##########  }
##########} at hibye.pl line 38
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Parser::DESTROY: ()
SOAP::Deserializer::DESTROY: ()
SOAP::Parser::DESTROY: ()
SOAP::Transport::DESTROY: ()
SOAP::Transport::HTTP::Client::DESTROY: ()
SOAP::Serializer::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Deserializer::DESTROY: ()
SOAP::Schema::DESTROY: ()
SOAP::Lite::DESTROY: ()