Perl Soap-service über wsdl
Ich versuche zum erstellen von SOAP-service mit SOAP::Lite, aber es keinen Wert. Es gibt Fehler die Verwendung von nicht initialisierten Wert von $Ergebnis in gedruckter Form an soap_client.pl Linie 6.
<VirtualHost 192.168.1.187:80>
ServerName perl.qlc.net
ServerAlias www.perl.qlc.net
DocumentRoot /web/perl.qlc.net/htdocs
ErrorLog /var/log/httpd/perl.qlc.net_error_log
TransferLog /var/log/httpd/perl.qlc.net_access_log
<Directory "/web/perl.qlc.net/htdocs">
<FilesMatch "\.mhtml$|\.pl$|\.html$">
Options +ExecCGI
AddHandler cgi-script .cgi .pl .html
SetHandler perl-script
PerlHandler ModPerl::Registry
PerlSendHeader On
</FilesMatch>
</Directory>
DirectoryIndex index.phtml index.htm index.html index.php3 index.php
</VirtualHost>
Installiert perl-Module:
MIME::Parser
SOAP::Lite
Apache-Modul:
mod_perl
Soap-server: math.pl
#!/usr/bin/perl -w
use strict;
#use warnings;
use SOAP::Lite;
use SOAP::Transport::HTTP;
print "Content-type:text/xml\r\n\r\n";
#I have added above line because apache was throwing 500 error.
my $soap = SOAP::Transport::HTTP::CGI->new(
dispatch_to => 'Arithmetic'
);
$soap->handle();
package Arithmetic;
sub add {
return $_[1] + $_[2];
}
1;
Soap-client: soap_client.pl
#!/usr/bin/perl -w
#use SOAP::Lite +trace =>'debug';
use SOAP::Lite;
my $result = 0;
my $client = SOAP::Lite->service("http://perl.qlc.net/math.wsdl");
print $result = $client->add(10, 20);
Wsdl-Datei: Mathe.wsdl
<?xml version="1.0"?>
<definitions xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="http://perl.qlc.net/math.wsdl" xmlns:xsd="http://www.w3.org/2001/XMLSchema" name="HelloService" targetNamespace="http://perl.qlc.net/math.wsdl">
<message name="addRequest">
<part name="operand1" type="xsd:float" />
<part name="operand2" type="xsd:float" />
</message>
<message name="addResponse">
<part name="response" type="xsd:float" />
</message>
<portType name="Hello_PortType">
<operation name="add">
<input message="tns:addRequest"/>
<output message="tns:addResponse"/>
</operation>
</portType>
<binding name="Hello_Binding" type="tns:Hello_PortType">
<soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
<operation name="add">
<soap:operation soapAction="add"/>
<input>
<soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:examples:helloservice" use="encoded"/>
</input>
<output>
<soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:examples:helloservice" use="encoded"/>
</output>
</operation>
</binding>
<service name="Hello_Service">
<documentation>WSDL File for HelloService</documentation>
<port binding="tns:Hello_Binding" name="Hello_Port">
<soap:address location="http://perl.qlc.net/math.pl"/>
</port>
</service>
</definitions>
Wenn ich soap_client.pl es gibt mir folgenden Fehler:
Verwendung von nicht initialisierten Wert von $Ergebnis in gedruckter Form an soap_client.pl Linie 6.
Ich habe versucht, dies für 2 Tage, nicht bekommen, keine Ahnung wo ich falsch mache.
Du musst angemeldet sein, um einen Kommentar abzugeben.
Wurde das Problem gelöst, indem Sie math.wsdl
Geändert math.wsdl
Müssen die Ergebnis-Methode, um das Ergebnis zu erhalten:
Darüber hinaus sollten Sie wahrscheinlich fügen Sie einige Fehlerbehandlung überprüfen Sie, ob der Befehl erfolgreich war, bevor Sie verwenden das Ergebnis:
Außerdem sind Sie mit einem .net server keine chance? Die
Soap::Lite
Dokumentation macht einige spezifische Empfehlungen, die in diesem Fall, und empfiehlt gegen die Verwendung der oben erwähnten Form.$!
.