|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 24 Jun 2003 17:47:12
To : "Michael Spector"
Subject : Re: Что-то странное ... или я что-то упустил
--------------------------------------------------------------------------------
Хмутро.
MS> Hi All,
MS> Имеем:
MS> This is perl, v5.8.0 built for MSWin32-x86-multi-thread
MS> (with 1 registered patch, see perl -V for more detail)
MS> Copyright 1987-2002, Larry Wall
MS> Binary build 805 provided by ActiveState Corp. http://www.ActiveState.com
MS> Built 18:08:02 Feb 4 2003
MS> Запускаю: perl -de
MS> DB<1> sub { $_[0] = "Abba"; }
MS> DB<2> sub func { $_[0] = "Abba"; }
MS> DB<3> $a = "BoneyM";
MS> DB<4> func($a);
MS> DB<5> print $a;
MS> DB<6> Abba
MS> ^^^^^ здесь всё нормально, как и должно быть
MS> DB<6> $b = "Hello";
MS> DB<7> func(\$b);
MS> DB<8> print $b;
MS> DB<9> Hello
MS> ^^^^^ тоже хорошо
MS> DB<9> sub func2 { $$_[0] = "Abba"; }
MS> DB<10> func2(\$b);
MS> DB<11> print $b;
MS> DB<12> Hello
MS> ^^^^^^ почему не Abba? ведь функция изменила значение адреса,
MS> алиасом которого является $_[0] ?
Если ты этого хотел, то надо было писать
sub func2 { ${$_[0]} = "Abba"; }
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
