ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Y. Labutin 2:5020/400 10 Feb 2004 15:35:14
To : Dmitry Y. Labutin
Subject : Re[5]: Передача HASH'а в процедуру по значению
--------------------------------------------------------------------------------
Приветствую.
DYL> sub qqq
DYL> {
DYL> # Что здесь нужно написать чтобы можно было написать так?
DYL> $tmp->{c} = 2;
DYL> #$_[0]->{c} = 2;
DYL> }
Вроде разобрался. Так правильно?
use strict;
sub qqq
{
my $temp = \$_[0];
$$temp->{c} = 2;
}
my %a;
$a->{a} = 1;
print $a->{a}."\n";
qqq ($a->{b});
print $a->{b}->{c}."\n";
--
Дмитрий Лабутин
dmitry@incub.ru
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: incub creative team (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
