ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrew Alakozow 2:5061/6 10 Apr 2003 21:17:40
To : Oleg Ivanenko
Subject : Re: mod_perl: parallel requests
--------------------------------------------------------------------------------
>> Попробуй сделать класс Tree, в котором будет сидеть ссылка на корень
>> дерева, и в его деструкторе освобождать память.
OI> Деструктор вызывается автоматически. Т. е. как здесь уже было сказано,
OI> он HЕ ВЫЗОВЕТСЯ из-за циклических ссылок. У меня есть метод
OI> освобождающий память для этого объекта. Hе это главное. Я не об этом
OI> спрашивал.
use strict;
{
my $n1 = TreeNode->new('n1');
my $n2 = TreeNode->new('n2');
$$n1{parent} = $n2;
$$n2{child} = $n1;
my $t = Tree->new;
$$t{root} = $n2;
}
print "The End!\n";
package Tree;
sub new { return bless {} }
sub DESTROY { print "destroy tree\n"; undef ${${$_[0]}{root}}{child} }
package TreeNode;
sub new { return bless { name => $_[1] } }
sub DESTROY { print "destroy tree node ".${$_[0]}{name}."\n" }
aa29
--- Microsoft Outlook Express 6.00.2720.3000
* Origin: Life In The Dark (2:5061/6)
Вернуться к списку тем, сортированных по:
|
