[PerlChina] Re: 请教用SOAP::Lite调用 SOAP/WSDL服务的问题

太感谢了，这是第一次用Perl来调用web service, 我也没CLASSID的，只是用来做些简单的测试，

On 7月20日, 上午10时12分, cnhack TNT <cnhack...@gmail.com> wrote:
> 直接贴代码了，申请了 loc-aid 的 classid， 但是还没给下来，貌似蛮麻烦的，人工审核？我就想测试一下而已。
>
> use strict;
> use Data::Dumper;
> #use SOAP::Lite +trace => [qw /all -objects/ ]; # 调试时用这行代替下面的吧
> use SOAP::Lite;
>
> my $uri = 'http://webservice.portico.locaid.net/';
> my $WSDL = 'https://ws.loc-aid.net:443/webservice/LatitudeLongitudeServices?wsdl';
>
> # 这个我是根据它官方站点的说明上那个请求样例来构造的
> my $serializer = SOAP::Serializer->new();
> $serializer->envprefix('soapenv');
> $serializer->register_ns($uri, 'web');
>
> my $method = SOAP::Data
> ->prefix('web')
> ->name('getLocationsX');
>
> my $soap = SOAP::Lite
> ->serializer($serializer)
> ->readable(1) # 调试时方便阅读，生产机可以去掉
> ->uri('http://webservice.portico.locaid.net/')
> ->proxy("$WSDL");
>
> # 同样，这些参数来自官方样例，但是还是得自己申请 classid, 不然结果是杯具
> my @params = (
> SOAP::Data->name(login => 'bo...@loc-aid.com'),
> SOAP::Data->name(password => 'blahblah'),
> SOAP::Data->name(classId => '0O0O0'),
> SOAP::Data->name(msisdnList => 16509880432),
> SOAP::Data->name(coorType => 'DECIMAL'),
> SOAP::Data->name(locationMethod => 'CELL'),
> SOAP::Data->name(syncType => 'SYN'),
> SOAP::Data->name(overage => 1),
> SOAP::Data->name(delayTime => 500),
> );
>
> my $result = $soap->call($method => @params);
> die $result->faultstring if $result->fault;
>
> print Dumper $result->result;
>
> 输出的结果是：
>
> $VAR1 = {
> 'transactionId' => '3694635',
> 'error' => {
> 'errorCode' => '00001',
> 'errorMessage' => 'Invalid or inactive user'
> }
> };
>
> 好奇一般情况下的结果是啥，楼主有 classid 不妨借我玩玩？哈哈
>
> 2010/7/19 酒窝 <cloud.li...@gmail.com>
>
>
>
> > 关于Perl调用SOAP::WSDL协议的web service，想请教一下，
>
> > 我的代码是这样的
>
> > my $WSDL = 'https://ws.loc-aid.net:443/webservice/
> > LatitudeLongitudeServices?wsdl';
> > my $soap = SOAP::Lite
> > -> uri('http://webservice.portico.locaid.net/')
> > -> proxy("$WSDL");
>
> > my $method = SOAP::Data->name('getLocation');
>
> > my @params = ( SOAP::Data->name(login => '3'),
> > SOAP::Data->name(password => '4'),
> > SOAP::Data->name(classId => '4'),
> > SOAP::Data->name(msisdn => 111111111111),
> > SOAP::Data->name(coorType => 'DMS'),
> > SOAP::Data->name(locationMethod =>
> > 'LEAST_EXPENSIVE'),
> > SOAP::Data->name(overage => 1), );
> > my $result = $soap->call($method => @params)->result;
>
> > 中间没有报错，但$result 总是为undefined，
> > 我把 $soap->call($method => @params) 这一步的结果dump出来的时候总是会看到500 internal
> > server error，但service肯定是好的，我用其他语言可以调用成功，比方说c#。
>
> > 不知道是什么原因，请各位帮忙我看看是哪里出错了，谢谢了
>
> > --
> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> > 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> > 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com<perlchina%2Bunsubscribe@googlegroups-.com>
> > 。
> > 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。- 隐藏被引用文字 -
>
> - 显示引用的文字 -

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。