perl - 取消 SOAP::Lite->service() 调用

Question

我有一个功能齐全的 perl 脚本，可以与我们的 SOAP 网络服务对话。今天，它通过 SOAP::Lite->service('.../name?WSDL') 然后针对返回值调用 execute() 来做到这一点。他们现在锁定了 WSDL，所以当我点击它时，我得到了 403 错误。

我正在寻找有关如何更改我的脚本的指针，以便它不再使用 WSDL 来解决问题。我确实可以访问 WSDL 本身来查看我需要知道的任何内容，但是 perl 脚本不再需要。

Answer 1

由于您拥有 WSDL 文件，因此您可以使用它的本地副本直接插入，而无需对您的代码进行其他更改：

my $soap = SOAP::Lite->service("file:localcopy.wsdl");

如果您不介意切换到SOAP::WSDL，它包括wsdl2perl.pl将为您生成所有 perl 包的内容：

wsdl2perl.pl file:localcopy.wsdl