- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #2513 [500]
От : Dmitry Y. Labutin 2:5020/400 10 февраля 04, 13:21
Кому : Sergey Gernichenko 14 февраля 04, 22:51
Тема : Re[4]: Передача HASH'а в процедуру по значению
-------------------------------------------------------------------------------
From: "Dmitry Y. Labutin"
Приветствую.
SG> Запись вида $q{c}{a}... - неправильная.
SG> Изучи perldoc perlref, там и о сложных структурах рассказывается.
Вот:
use strict;
sub qqq
{
$_[0]->{c} = 2;
}
my %a;
$a->{a} = 1;
print $a->{a}."\n"; # печатает 1
qqq ($a->{b});
print $a->{b}->{c}."\n"; # печатает 2
Уже почти то, что мне нужно. Такой вопрос - как в подпрограмме qqq
правильно присвоить значение другой переменной, чтобы я через нее
присвоил значение?
sub qqq
{
# Что здесь нужно написать чтобы можно было написать так?
$tmp->{c} = 2;
#$_[0]->{c} = 2;
}
--
Дмитрий Лабутин
dmitry@incub.ru
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: incub creative team (2:5020/400)