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

Mon, 19 Jul 2010 19:12:17 -0700 

直接贴代码了，申请了 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 => '[email protected]'),
                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 酒窝 <[email protected]>

> 关于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 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
> 要取消订阅此网上论坛，请发送电子邮件至 
> [email protected]<perlchina%[email protected]>
> 。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

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

回复