Perl wsdl wsdl服务调用

Question

我是perl webservice call的新手。

我正在调用一个wsdl webservice函数，我得到的响应是400错误请求错误。我试着用谷歌搜索了很多网站，但都不能成功。请帮我解决这个问题。下面是我的代码。

use SOAP::Lite;
my $lite = SOAP::Lite -> service('http://localhost:8080/service.svc?wsdl');
my $arg1 ="SRC";
my $arg2 = "ARG";
my @arg3 = ('test1','test2','test3');
my @res = $lite->Func($arg1,$arg2,@arg3);
print "@res"; 

Answer 1

我刚刚有了类似的problem，似乎SOAP::Lite在处理复杂数据结构方面可能有一个bug。

无论如何，如果您的SOAP方法(Func)需要3个参数，最后一个参数应该是对数组的引用。

此外，使用use SOAP::Lite qw(trace)可以调试请求信封。

Answer 2

如果您在SOAP::Lite上没有受到限制，我将请求您查看一下XML::Compile::SOAP::Client

Answer 3

我不确定WSDL和ASMX web服务之间有多大的区别。如果不是很多，请尝试这个代码示例，它对我有效。

  my $soap = SOAP::Lite
    -> uri('http://foo.com')
    -> on_action( sub { join '/', 'http://foo.com', $_[1] } )
    -> proxy('http://foo/services/GetEmailAddress/Service.asmx');

  my $method = SOAP::Data->name('GetEmailAddress')
    ->attr({xmlns => 'http://foo.com/'});

  my @params = ( SOAP::Data->name(username => $user) ); 
  my $email = $soap->call($method => @params)->result;

输入是用户名，输出是电子邮件地址。我相信ASMX web服务是在.NET 3中创建的。

我所知道的一切都是从http://msdn.microsoft.com/en-us/library/ms995764.aspx那里学到的。