源代码如下:
C#代码
[WebMethod]
public string Hello()
{
return "Hello World";
}
#!/usr/bin/perl -w
use strict;
use SOAP::Lite;
print SOAP::Lite
->uri('http://tempuri.org')
->on_action(sub{sprintf '%s/%s',@_})
# 使用on_action方法覆盖默认的习惯并为SOAPAction头指定一个新的格式
->proxy('http://localhost/WS/WSTest.asmx')
->Hello()
->result;
Perl代码2:
#!/usr/bin/perl -w
use strict;
use SOAP::Lite
proxy => 'http://localhost/WS/WSTest.asmx',
uri => 'http://tempuri.org',
on_action => sub{sprintf '%s/%s',@_}
;
my $proxy = new SOAP::Lite;
print $proxy ->Hello()->result;