Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

Приветствую. Как в 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, 18:00   #2
antonb770
Пользователь
 
Регистрация: 27.04.2015
Сообщений: 28
По умолчанию

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


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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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