just for practice, i made a class BinaryTree. its just a blessed reference to
a hash that contains two things: size and root. root gets assigned to a
BinaryTree::Node which is just a bless reference containing: key, value,
left, right.
perl deallocates according to reference counts. so if i want "destory" my
tree structure, i'd have to make sure there are no references to any of the
BinaryTree::Node's, right? something like this...
$my pr_clear;
$pr_clear = sub {
my $p = shift(); # parent node
my $w = shift(); # which child of the parent
my $n = shift(); # child node
if ($n != undef) {
this->$pr_clear($n, "left", $n->left());
this->$pr_clear($n, "right", $n->right());
$p->$w(undef);
}
}
sub clear() {
this->$pr_clear(this->{root}, "left", this->{root}->left());
this->$pr_clear(this->{root}, "right", this->{root}->right());
this->{root} = undef;
}
thanks in advance, and thanks to those who helped with the module questions,
-- christopher
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
