构建 .NET 使用的 Perl Soap 服务

Question

我有一个带有 Perl 库的 Linux 服务器，我需要将其公开给 .NET 应用程序。自然地，我想我会构建一个独立于平台的解决方案，比如 SOAP，来弥补差距。我发现这并不像我预期的那么容易。

作为一个小型概念验证，我正在尝试在 Perl 中构建一个 hello world 服务。我根据本教程生成了我的代码：

http://guide.soaplite.com/#quick%20start%20guide%20with%20soap%20and%20soap::lite

我在这里找到了一些 Pod::SOAP 评论： http://www.perlmonks.org/?node_id=632923

最终得到了这项服务：

#!/usr/bin/perl
use CGI;
use SOAP::Transport::HTTP;

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

package Demo;

=begin WSDL
_RETURN $string
=end WSDL
=cut

sub hi {
    return "hello, world";
}

我用这个脚本生成了一个 WSDL：

#!#!/usr/bin/perl
use Pod::WSDL;

my $pod = new Pod::WSDL(source => '/var/www/html/perl/test.pl', location => 'http://localhost/perl/test.pl', pretty => 1, withDocumentation =>1);

print $pod->WSDL;

瞧，当我点击这个脚本时，我得到了一个 WSDL。我将它作为 ServiceReference 加载到 .NET 4.0 并认为生活很美好。但事实并非如此。

当我尝试像这样唤起参考时：

var myWS = new ServiceReference1.DemoHandlerClient(new System.ServiceModel.BasicHttpBinding(), new System.ServiceModel.EndpointAddress(url));
string result = myWS.hi();

我最终从soap请求中得到了这个错误：

SOAPAction 应该匹配 'uri#method' 如果存在（得到 'http://localhost/Demo/DemoHandler/hiRequest'，预期 'http://localhost/Demo#hi'

很明显，我看到 .NET 没有提交预期的 SOAPAction。我能做些什么来解决这个问题？我怀疑如果我要为客户端使用 perl SOAP::Lite 库，这将正常工作。

编辑：也许更奇怪——如果我使用 Fiddler 来捕获 .NET 发送的 XML，然后使用 SoapUI 手动发送相同的 XML，我最终会得到一个有效的响应。

Answer 1

我在 2006 年使用SOAP::Lite 构建了一个 Web 服务，这是一次糟糕的经历，我从那以后就一直避免这种体验，就像魔鬼避免圣水一样。如果您确实在走 SOAP 之路，那么我非常建议您熟悉用于 XML Schema、SOAP 和 WSDL 的 XML::Compile 模块套件。我发现该模块更易于使用，并且有一个邮件列表，作者反应非常迅速。

查看XML::Compile::SOAP::Daemon 了解如何构建服务器。