Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Скриптовые языки программирования > Perl
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 17.11.2019, 10:44   #1
antonb770
Пользователь
 
Регистрация: 27.04.2015
Сообщений: 22
По умолчанию

Приветствую. Как в perl получить результат, аналогичный функции extract из PHP? (c Perl практически не знаком)
Есть:
# $outputfile файл содержит json строку
my $content = read_file($outputfile);

Hужно:
decode_json($content)
раскидать на переменные и их соответствующие значения, как в PHP https://www.php.net/manual/ru/function.extract.php

Подскажите что посмотреть. СПАСИБО.

вот код:
Код:
my $content = read_file($inputfile);
my %cfg_from_json = decode_json($content);

if (%cfg_from_json != NULL){
#делаем extract))))
}
antonb770 вне форума   Ответить с цитированием
Старый 18.11.2019, 19:00   #2
antonb770
Пользователь
 
Регистрация: 27.04.2015
Сообщений: 22
По умолчанию

Вышел из положения, все переменные заранее объявлены как our $xxxx, присвоил им соответствующие значения из хэша.


Код:
......
our $arr = decode_json($content);
foreach my $key (keys %{$arr->{'cur'}}){
	   $main::key = $arr->{'cur'}->{$key};
}
......
Всем, спасибо. Может кому пригодится)))
antonb770 вне форума   Ответить с цитированием
Старый 20.11.2019, 20:50   #3
antonb770
Пользователь
 
Регистрация: 27.04.2015
Сообщений: 22
По умолчанию

$main::{$key} = \$arr->{'cur'}->{$key};
точнее)
antonb770 вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как получить список всех perl модулей в проекте? dtulyakov Perl 1 02.05.2017 13:34
Не успеваю получить результат выполнения функции в процедуре Den7656 Общие вопросы Delphi 15 12.09.2011 11:54
Получить результат! skank123 Microsoft Office Access 1 28.01.2010 23:05
Математика. Получить параметр функции зная результат Stilet Общие вопросы по программированию, компьютерным наукам 2 06.03.2009 09:51