Perl implement Tree data structure (1)

用perl实现了Tree的数据结构，使用Class::Struct来实现，以下为代码：

use Data::Dumper;

use Class::Struct;

struct Node =>{

left => 'Node',

value => '$',

right => 'Node',

};

$root = Node->new;

add($root,$_) for (5,7,1,4,9,6,0,9,100,20,30,21,60);

#print Dumper $root;

print LMR($root),"/n";

print RML($root),"/n";

print MLR($root),"/n";

sub add{

my ($root,$value) = @_;

if (! defined $root->value){

$root->value($value);

return;

}

my $tmp = $root;

while($tmp){

if ($value < $tmp->value){

if (defined $tmp->left){

$tmp = $tmp->left

}

else{

$tmp->left(Node->new(value => $value));

return

}

}

elsif ($value > $tmp->value){

if (defined $tmp->right){

$tmp = $tmp->right

}

else{

$tmp->right(Node->new(value => $value));

return

}

}

else{

return

}

}

}

#左序遍历

sub LMR{

my $tmp = shift;

if (defined $tmp->left){

LMR($tmp->left)

}

print $tmp->value;

if (defined $tmp->right){

LMR($tmp->right)

}

}

#右序遍历

sub RML{

my $tmp = shift;

if (defined $tmp->right){

RML($tmp->right)

}

print $tmp->value;

if (defined $tmp->left){

RML($tmp->left)

}

}

#中序遍历

sub MLR{

my $tmp = shift;

print $tmp->value;

if (defined $tmp->left){

MLR($tmp->left)

}

if (defined $tmp->right){

MLR($tmp->right)

}

}

问题：

树节点无法更改，无法改为平衡二叉树，也许是struct的问题，暂时还没有找到解决方法。