VPF::Perl json - Форум программистов

nankko

Дата 5.6.2015, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Добрый день. Прошу помочь с формированием хэща для кодирования в json.

Есть такой хэш (создан руками)

Код


my %hash = (
'id' => 1, 
'array'    => {
                      'id1'=> 'id1',                                                                                        
                          'value1'    => {
                                                     'pwd'    => $name}
            }
);

При вызове функции my $json = encode_json \%hash; получается такой JSON

Код


{"id":"1",
  "array":{
                     'id1': 'id1',    
                      "value1":{
                                       "pwd":$name}
}
}

А мне требуется чтобы перед array были [] скобки, но если я ставлю их в хэше, то после конвертации json воспринимает их как массив.

Вот что хочу получить

Код


{"id":"1",
  "array":[{
                     'id1': 'id1',    
                      "value1":{
                                       "pwd":$name}
}]
}

Заранее спасибо за помощь

reiserford

Дата 5.6.2015, 19:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 22
Регистрация: 20.3.2012

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

Раз вы хеш создаёте руками то и список руками создавайте:

Код


my %hash = (
    'id' => 1, 
    'array' => [
        {
            'id1'=> 'id1',                                                                                        
            'value1' => {
                'pwd' => $name
            }
        }
    ]
);

Это сообщение отредактировал(а) reiserford - 5.6.2015, 19:19

nankko

Дата 8.6.2015, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Спасибо, помогло

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