Question

我将在周末学习Perl的面试。为了更深入地理解我正在尝试实现一个树类。

#use strict;
#use warnings;

package Tree;

sub new {
    my $class   = shift @_;
    my $content = shift @_;
    my @array   = shift @_;
    return bless { "content" => $content, "array" => @array }, $class;
}

sub num_children {
    my $self = shift @_;
    my @array = $self->{"array"};
    return scalar @array;
}

return 1;

为了测试（错误的）树类，我实现了以下测试脚本。

#!/usr/bin/perl

require Tree;

my $t = Tree->new("#", undef);
my $tt = Tree->new("*", undef);
my $tttt = Tree->new("-", undef);
my $ttttt = Tree->new(".", undef);

my @list = ();
push @list, $tt;
push @list, $t;
push @list, $tttt;
push @list, $ttttt;


my $ttt = Tree->new("+", @list);

print $ttt->num_children();

不幸的是，输出是1，而不是我对4的期望。我假设数组以某种方式被切断或不自觉地转换为标量。有任何想法吗？

Answer 1

主要问题是您无法将数组作为单个值传递 - 您必须传递引用。

此外，您永远不会注释掉use strict和use warnings。它们是有价值的调试工具，如果您在启用它们时收到错误消息，则应该修复它们正在标记的错误。

这是一个有效的Tree.pm

use strict;
use warnings;

package Tree;

sub new {
    my $class = shift;
    my ($content, $array) = @_;
    return bless { content => $content, array => $array }, $class;
}

sub num_children {
    my $self = shift;
    my $array = $self->{array};
    return scalar @$array;
}

1;

和调用程序tree_test.pl。请注意，您应该use而不是require模块。

#!/usr/bin/perl

use strict;
use warnings;

use Tree;

my @list = map { Tree->new($_) } ('#', '*', '-', '.');

my $ttt = Tree->new('+', \@list);

print $ttt->num_children, "\n";

<强>输出

Answer 2

shift仅从数组中删除一个元素。填充@array没有它：

 my @array = @_;

但是，你不能直接在哈希中存储数组，你必须使用引用：

return bless { content => $content,
               array   => \@array,
             }, $class;

然后您必须取消引用：

my @array = @{ $self->{array} };
return scalar @array

在Perl中实现树 - 儿童被切断

2 个答案: