Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> perl json без datadumber 
V
    Опции темы
Loki
Дата 12.2.2015, 03:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 244
Регистрация: 9.7.2006

Репутация: нет
Всего: нет



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

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:03
PM MAIL   Вверх
Loki
Дата 12.2.2015, 04:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 244
Регистрация: 9.7.2006

Репутация: нет
Всего: нет



разобрался, вот как надо
print $out->{'cats'}->{'Meowka'}->{'weight'};
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.0985 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.