- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #2500 [588]
От : Dmitry Y. Labutin 2:5020/400 10 февраля 04, 02:21
Кому : All 10 февраля 04, 06:54
Тема : Передача HASH'а в процедуру по значению
-------------------------------------------------------------------------------
From: "Dmitry Y. Labutin"
Приветствую.
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)