急 急 急 急 急 急perl 调用 .net服务

急 急 急 急 急 急perl 调用 .net服务

急 急 急 急 急 急perl 调用 .net服务
本人只是这两天才接触perl的一直做java方面的开发
我要做一个perl调用人家写好的短信接口是个webservice
--------------对方提供的.net调用时的例子------------------------------
SMSWebService service = new SMSWebService();//创建Web Service Agent对象
service.Url = @"http://10.24.16.11/ MBSWebService/SMSWebSvr.asmx";//设置Web Service链接地址
ErrorInfo errorInfo = service. SmsMessage("100013", "短信内容", "13901000000");//发送短信
if (errorInfo.ErrorCode == "0")
{
  MessageBox.show(“发送成功!”);//发送成功处理代码
}
else
{
  MessageBox.show(“发送失败!,失败原因是”+ errorInfo.ErrorContent);//发送失败处理代码
}


------------------------------我用perl写的调用的内--------------------------------------
我写的调用我这边没显示错误信息,服务器端的log里总是出现500错误编号

#!/usr/bin/perl

use strict;
use SOAP::Lite;

my $s = SOAP::Lite

->uri('http://nsmc.cma.gov.cn/mbswebservice/')
->proxy('http://10.24.16.11/MBSWebService/SMSWebSvr.asmx')
->SmsMessage("100013", "短信内容", "13681430433");
print $s->result();

这样服务器端的log里总是出现500错误编号


-------------------------------------下面是我用另一种方法ia写的内容---------------
use SOAP::Lite;

my $soap = SOAP::Lite
-> uri('http://nsmc.cma.gov.cn/mbswebservice/')
-> proxy('http://10.24.16.11/ MBSWebService/SMSWebSvr.asmx');

my $method = SOAP::Data->name('SmsMessage')
->attr({xmlns => 'http://nsmc.cma.gov.cn/mbswebservice/'});

my @params = ( SOAP::Data->name(x1 => "100013"),
SOAP::Data->name(x2 => "信息内容"),
SOAP::Data->name(x3 => "13681430430"));

print $soap->call($method => @params)->result;

-----------------------------------------请高手指点谢谢应急----------------------
拜托 拜托
高手给看看呀,谢谢,[CCB.
高手给看看呀,谢谢,
那位给看看呀,[CCB]26[/C.
那位给看看呀,
[CCB]6[/CCB].