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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как обьявить локальные переменные, имя и значения 
:(
    Опции темы
ReactOS
  Дата 26.3.2008, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Привет всем!

Нужно обьявить и присвоить локальным переменным значения имена которых хранятся в хэше.
Вот пример который я делаю вручную.

func(param => 1,param1 => 2, param2 => 3);
Код


sub func {
my %params = @_;
my param =  $params{param};
my param1 = $params{param1};
my param2 = $params{param2};
};



Но поскольку постоянно приходится передавать в функции разные значения - надоело их постоянно вручную прописывать.
Можно ли создать какой-то цикл что бы сразу прошел по всем ключам хэша и обьявил все переменные?
Ну типа что-то такого:

Код


foreach my $key (keys %params) {
my ${$key} = $params{$key};
};


Заранее спасибо!
PM   Вверх
nitr
Дата 26.3.2008, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



Зачем (уж извините) такой "геморой"?
Почему нельзя объявить
%params;

А потом просто использовать $params{'имя параметра'}?
На ту задачу, что выхотите решить в данной теме уйдет немало ресурсов сервера/ПК - зачем? smile
Чтобы в итоге переосмыслить и заново придумвать алгоритм...

Мой вам совет (хотя точно вашей задачи здесь не описано, но на первый взгляд...) не придумывайте...


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


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

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


 




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


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

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