Question

我试图通过perl获取d请求。但即时得到以下错误：

#!/usr/bin/perl 
use lib "/usr/packages/perl/perl-5.16.3/lib/5.16.3"; 
use strict; 
use warnings; 
use LWP::UserAgent; 
use JSON; 
use MIME::Base64; 

my $url = 'https://example.com:8443/cli/agentCLI'; 
my $credentials = encode_base64('username:password'); 

my $ua = LWP::UserAgent->new(ssl_opts =>{ verify_hostname => 0}); 
my $response = $ua->get($url, 'Authorization' =>" Basic $credentials"); 

die 'http status: ' . $response->code . ' ' . $response->message 
unless ($response->is_success); 

my $json_obj = JSON->new->utf8->decode($response->content); 

# the number of rows returned will be in the 'rowCount' propery 
print $json_obj->{rowCount} . " rows:n"; 

# and the rows array will be in the 'rows' property. 
foreach my $row(@{$json_obj->{rows}}){ 
    #Results from this particular query have a "Key" and a "Value" 
    print $row->{Key} . ":" . $row->{Value} . "n"; 
} 

输出（误差）：

伪散列在agent.pl线弃用21. 没有这样的伪散列字段“rowCount时”在agent.pl线21 。

感谢， Kalaiyarasan

Answer 1

参见：

http://perldoc.perl.org/5.8.8/perlref.html#Pseudo-hashes%3A-Using-an-array-as-a-hash

最近的版本：http://perldoc.perl.org/perlref.html#Pseudo-hashes%3a-Using-an-array-as-a-hash

这已弃用。我会想象（但不能没有你的JSON），你的JSON顶层是一个数组。

Data::Dumper可以帮助告诉你你的实际数据结构是什么。