[Moscow.pm] Почему память не используется повторно?

[Ivan B. Serezhkin]

Привет.

В разных скопах она остаётся, и с андефом, и без.
В одном и том же скопе она реюзается, с андефом и без =)



Вот тестовый стэнд
#!/usr/bin/perl

use strict;
use URI;
use Data::Dumper;
use Devel::Peek;


sub printmysize {
    our $iter;
    $iter++;
    print "$iter : ".`ps awuxp $$`;
}


# do it in same scope
for (1..5) {
    my $aaa = '1' x (10 * 1024);
    $aaa x= 1024;
    printmysize();
}


=pod

printmysize();
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
printmysize();
}
printmysize();
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
printmysize();
}
printmysize();
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
printmysize();
}

###################
printmysize();
{
    my $aaa = '1' x (10 * 1024);
    $aaa x= 1024;
    printmysize();
    undef($aaa);

}
printmysize();
{
    my $aaa = '1' x (10 * 1024);
    $aaa x= 1024;
    printmysize();
    undef($aaa);
}
printmysize();
{
   my $aaa = '1' x (10 * 1024);
   $aaa x= 1024;
   printmysize();
   undef($aaa);
}
printmysize();

=cut


-- 
Ivan B. Serezhkin