基本 SOAP::精简版用法

Question

我在使用最基本的 SOAP：：Lite 示例时遇到问题。

最初，我收到有关版本不匹配的错误，因此我根据此问题添加了soapversion('1.2')。

#!/usr/bin/perl -w
use strict;
use SOAP::Lite;
use Data::Dumper;
my $service = SOAP::Lite->service('https://www.w3schools.com/xml/tempconvert.asmx?WSDL');
$service->soapversion('1.2');
$service->serializer->soapversion('1.2');
my $result = $service->FahrenheitToCelsius('212');
print "result = " . Dumper $result;

我不再收到版本错误，而是得到：result = $VAR1 = 'Error';

Answer 1

我想你想使用一些服务。如果是这样，请使用proxy方法而不是service。请参阅代理文档：

代理是客户端要连接到的服务器或终结点。此方法允许设置终结点，以及传输对象在传达请求时可能需要的任何额外信息。

此方法实际上是 SOAP：：Transport 代理方法的别名

f2c.pl

#!/usr/bin/perl -w
use strict;
# tracing for debugging purposes
# use SOAP::Lite +trace => "debug";
use SOAP::Lite;
use Data::Dumper;
my $service
= SOAP::Lite->proxy('https://www.w3schools.com/xml/tempconvert.asmx?WSDL')
# use on_action cb to override default SOAPAction value
->on_action(
sub {
return join '/', "https://www.w3schools.com/xml", $_[1];
}
);
my $result = $service->FahrenheitToCelsius('212');
# result is an instance of SOAP::SOM
# see https://metacpan.org/pod/distribution/SOAP-Lite/lib/SOAP/SOM.pod
$result->fault && die $result->faultstring;
print "result = " . Dumper $result->body;

perl f2c.pl显示错误：

result = $VAR1 = {
'FahrenheitToCelsiusResponse' => {
'FahrenheitToCelsiusResult' => 'Error'
}
};

但是华氏度服务存在一个普遍问题。