- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #2528 [500]
От : Artem Chuprina 2:5020/400 11 февраля 04, 02:19
Кому : Dmitry Y. Labutin 14 февраля 04, 22:51
Тема : Re: Передача HASH'а в процедуру по значению
-------------------------------------------------------------------------------
From: Artem Chuprina
Dmitry Y. Labutin -> Sergey Gernichenko @ Tue, 10 Feb 2004 06:13:24 +0000
(UTC):
DYL> Твой вариант:
DYL> sub qqq
DYL> {
DYL> $_[0]->{b} = 2;
DYL> }
DYL> $q{a} = 1;
DYL> qqq (\$q{b});
DYL> print $q{b}->{b};
DYL> Ругается так:
DYL> Not a HASH reference at q.pl line 3.
Резонно. Если ты хотел не только чтобы оно тебе заполняло элемент хэша,
но и чтобы создавало его, то
sub qqq { $_[0]{$_[1]} = 2 }
qqq(\%q, 'b');
--
Artem Chuprina
RFC2822: , FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)