Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > perl json без datadumber

Автор: Loki 12.2.2015, 03:35

Почему я получаю "пусто" вместо значений?

Код


use strict;
use warnings;
use JSON;

my $json = q{
    {
        "cats":{
            "Meowka":{
                "weight":"5",
                "birth":"05-01-2009"
            },
            "Kitty":{
                "weight":"6",
                "birth":"11-10-2020"
            }
        },
        "dogs":{
            "Bobik":{
                "weight":"20",
                "birth":"25-09-2011"
            },
            "Sharik":{
                "weight":"10",
                "birth":"01-11-2012"
            }
        }
    }
};

my @out= decode_json($json);
my $i=0;
my $o=0;
for ($i;$i<10;$i++){
for ($o=0;$o<10;$o++){
print $out[$i]->{$o}. "\n";
}
}

1;

мне нужно получить данные из json'а в строках и стоблцах.

а если вот так:

Код


my $out= decode_json($json);
print $out->{0}->{0}. "\n";

то тоже не выдает значения.

Автор: Loki 12.2.2015, 04:22

разобрался, вот как надо
print $out->{'cats'}->{'Meowka'}->{'weight'};