Question

我只找到Python通过redfish获取信息的例子。这是我已经获得的Perl Code Snippet：

use strict;
use warnings;
use MIME::Base64;
use JSON;
use Data::Dumper;
use Getopt::Long;
use REST::Client;

my $client = REST::Client->new(host => $host);
my $encoded_auth = encode_base64("$user:$password", '');

 # Get the incident with sys_id declared above
 $client->GET("/redfish/v1",
              {'Authorization' => "Basic $encoded_auth",
               'Accept' => 'application/json'});

my $perlScalar = decode_json $client->responseContent();
print Dumper $client->responseContent();

我从Dumper获取一个空字符串，所以我认为连接不正确。此脚本可用于HP REST API设备。

我真的不明白怎么做，使用:: JSON模块..也许有人你已经完成了这个？

亲切的问候

Answer 1

我发现this bug report for REST::Client似乎很相关。

如果未将Follow设置为true，则模块将使用LWP :: UserAgent simple_request方法。这意味着身份验证不起作用。

查看模块的文档，似乎修复是添加

$client->setFollow(1);

在您尝试使用客户端之前。

Perl通过Redfish请求GET

1 个答案: