[Moscow.pm] Fwd: Почему меняется старое значение, хотя переменная локализирована?

[Vladimir Timofeev]

А какая версия Perl у вас?

А то вот я запускаю ваш пример в виде такого скрипта:
=== test.pl
#!perl

print "Case 1. DB special var\n";
{
    $DB::single = 7; my $x = \$DB::single;
    print "Before: ". \$DB::single ." <<$x $$x\n";
    local $DB::single = 0;
    print "After: ". \$DB::single ." <<$x $$x\n";
}

print "Case 2. Normal scalar\n";
{
    $DB::xxx = 7; my $x = \$DB::xxx;
    print "Before: ". \$DB::xxx ." <<$x $$x\n";
    local $DB::xxx = 0;
    print "After: ". \$DB::xxx ." <<$x $$x\n";
}
===

На 5.22.1 получаю:
Case 1. DB special var
Before: SCALAR(0x7f914a029b60) <<SCALAR(0x7f914a029b60) 7
After: SCALAR(0x7f914a004850) <<SCALAR(0x7f914a029b60) 7
Case 2. Normal scalar
Before: SCALAR(0x7f914a030e40) <<SCALAR(0x7f914a030e40) 7
After: SCALAR(0x7f914a004a00) <<SCALAR(0x7f914a030e40) 7

То же самое получаю на системных (из макоси) 5.18 и 5.16.

Но реально можно всякого ожидать от попытки натравить магию на и так
магическую штуку ))) И уж совсем не понятно, что же вы пытались
сделать, что в итоге такой кусок кода получился )))

Если серьёзно, то ищите PL_DBsingle в *.h, *.c файлах в исходниках ;-)


On Wed, Jan 6, 2016 at 2:50 PM, KES <kes-kes на yandex.ru> wrote:
> День добрый.
> Локализация $DB::single работает без проблем, но если брать ссылку на неё, то возникают проблемы:
> The localization of $DB::single works fine, but the reference to it does not work:
>         {
>                 $DB::single = 7; my $x = \$DB::single;
>                 print "Before: ". \$DB::single ." <<$x $$x\n";
>                 local $DB::single = 0;
>                 print "After: ". \$DB::single ." <<$x $$x\n";
>         }
>
> The output/Вывод
> Before: SCALAR(0x10f8310) <<SCALAR(0x10f8310) 7
> After: SCALAR(0x110cbc8) <<SCALAR(0x10f8310) 0
>
> В то время как:
> Where as works fine:
>         {
>                 $DB::z = 7; my $x = \$DB::z;
>                 print "Before: ". \$DB::z ." <<$x $$x\n";
>                 local $DB::z = 0;
>                 print "After: ". \$DB::z ." <<$x $$x\n";
>         }
> The output:/Вывод
> Before: SCALAR(0x134d398) <<SCALAR(0x134d398) 7
> After: SCALAR(0x1239bc8) <<SCALAR(0x134d398) 7
>
> Тут видно, что в первом примере память выделена: Новый адрес $DB::single является: SCALAR(0x110cbc8)
> Но когда присваиваем новое значение в $DB::single, то значение по старому адресу ((SCALAR(0x10f8310)) меняется тоже
> Во втором примере мы видим, что выделение памяти происходит по той же схеме, но значение 7 сохранено как и ожидалось.
> We see that in *first* example the new variable is created: The new address of $DB::single is SCALAR(0x110cbc8)
> but when assigning to $DB::single the value by old reference (SCALAR(0x10f8310) changed too.
> In *second* example we see that addressing works in same manner, but value 7 is preserved as expected.
>
> Почему значение $DB::single по старой ссылке меняется?
> Why the value of $DB::single by old reference is not preserved?
>
> PS. Можно отвечать на русском.
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org



-- 
Vladimir Timofeev <vovkasm на gmail.com>