Perl WSDL11 无法在两个 WSDL 文件上工作

Question

这个问题与我在使用XML:：Compile:：WSD11 Perl模块的Perl程序中遇到的问题有关，在该模块中，我的公司Web服务使用带有XML导入的多个WSDL。

描述这个问题的原始帖子可以在这里找到。在那篇文章中，我尝试了imatveev13的建议，使用XML:：Compile:：WSDL11中的addWSDLAPI，代码片段如下所示。

测试Perl程序中使用的两个WSDL文件是：WSDL0和WSDL1。

#!/usr/bin/perl
use 5.018;
use strict;
use warnings;
use Data::Dumper qw{Dumper};
use XML::Compile::SOAP11; # XML::Compile::SOAP 2.x
use XML::Compile::WSDL11;
use XML::Compile::Transport::SOAPHTTP;
my $WSDL0 = 'CamstarWebClient0.wsdl';
my $WSDL1 = 'CamstarWebClient1.wsdl';
# Create service proxy for web service
my $wsdlXml0 = XML::LibXML->new->parse_file($WSDL0);
my $wsdlXml1 = XML::LibXML->new->parse_file($WSDL1);
my $SoapSrv = XML::Compile::WSDL11->new();
$SoapSrv->addWSDL($wsdlXml0);
$SoapSrv->addWSDL($wsdlXml1);
print Dumper($SoapSrv);
# Compile all service methods
my (%SoapOps);
foreach my $SoapOp ($SoapSrv->operations)
{
print Dumper($SoapOp);
# XML::Compile::SOAP 2.x
if ($XML::Compile::SOAP::VERSION > 1.99)
{
$SoapOps{$SoapOp->name}
= $SoapSrv->compileClient(operation => $SoapOp->name, 
port => "ICamstar");
}
}
print "n";
exit;

运行代码时出现错误：找不到端口"ICamstar"，请从BasicHttpBinding_ICamstar中选择。

我也尝试过不指定端口，因为该服务没有实现多端口，但它给了我一个不同的错误。

无法通过/usr/local/share/perl5/XML/Compile/SOAP.pm第155行的包"XML:：Compile:：SOAP1:：Client"找到对象方法"_writer_body_rpenc_hook">。

感谢社区的帮助。谢谢

Answer 1

确保在脚本顶部使用模块XML::Compile::SOAP11::Encoding：

use XML::Compile::SOAP11::Encoding;