perl - 如何在perl中以json格式获取LWP请求的输出

Question

我不知道如何解析 json 格式的 LWP po​​st 请求的输出。我正在使用以下代码:-

use LWP::UserAgent;
use JSON;

my $ua = LWP::UserAgent->new;
my $server_endpoint = URL;                   #URL contains actual URL

# set custom HTTP request header fields
my $req = HTTP::Request->new( POST => $server_endpoint );
$req->header( 'content-type' => 'application/json' );
$req->header( 'Accept'       => 'application/json' );

# add POST data to HTTP request body
my $post_data = '{ "auth": {"tenantName":"****", "passwordCredentials": {"username":"****","password":"****"} }}';
$req->content($post_data);

my $resp = $ua->request($req);
if ( $resp->is_success ) {
    my $message = $resp->decoded_content;
    print "Received reply: $message\n\n\n";
    $tojson   = to_json($resp);
    $fromjson = from_json($tojson);
    print "Token id is " . $fromjson->{'access'}{'token'}{'tenant'}{'id'} . "\n";
}

我想使用哈希获取 token ID。但我没有得到任何输出。那么有没有什么办法可以将输出转换为json格式，方便我们获取token id呢？

Answer 1

$tojson   = to_json($resp);
$fromjson = from_json($tojson);

不应该是 $fromjson = from_json($message); 吗？