Я ищу помощь, чтобы понять, почему json_decode возвращает скаляр вместо хэша. Я все еще изучаю perl и описание или некоторую ссылку. было бы замечательно.Почему json_decode возвращает скаляр?
Итак, вопросы: Почему json_decode возвращает скаляр? (или это не скаляр) Есть ли лучший способ для работы с данными?
Вот мой код:
use strict;
use warnings;
use JSON qw(decode_json);
use LWP::UserAgent;
my $url = "http://api.bf4stats.com/api/playerInfo?plat=xbox&name=Ttylz00&output=json";
my $ua = LWP::UserAgent->new;
my $data = $ua->get($url);
my $json;
if($data->is_success){
$json = decode_json($data->decoded_content);
}
&sData($json);
sub sData {
my $data = $_[0];
my $kdr = int($data->{stats}->{extra}->{kdr}*100)/100;
printf "\nName: %s\nRank: %s, %s\nKDR: %s\n", $data->{player}->{name},
$data->{player}->{rank}->{nr}, $data->{player}->{rank}->{name},
$kdr;
}