ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Y. Labutin 2:5020/400 10 Feb 2004 03:21:44
To : All
Subject : Передача HASH'а в процедуру по значению
--------------------------------------------------------------------------------
Приветствую.
Hужно следующее.
Hапример есть хеш:
$q{a} = 1;
Hужно в функцию передать хеш $q{значение здесь вычисляется в ходе работы},
чтобы она присвоила два значения
$q{значение здесь вычисляется в ходе работы}{b} = 1;
$q{значение здесь вычисляется в ходе работы}{c} = 2;
Что-то в этом роде:
sub qqq
{
@_[0]{b} = 2;
@_[0]{c} = 3;
}
$q{a} = 1;
qqq ($q{b});
print $q{a}; # печатает 1
print $q{b}{b}; # печатает 2
print $q{b}{с}; # печатает 3
Естественно это не работает. Как правильно нужно это написать?
И вопрос вдогонку - как проверить $q{b} - это конечное значение или
вложенный хеш?
--
Дмитрий Лабутин
dmitry@incub.ru
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: incub creative team (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
