小编han*_*bbs的帖子

在 perl book 的这个例子中，“_components”来自哪里？我知道添加 _ 来表示 sub 是包私有的，但这个似乎突然使用了领先分数。你能给我指出一些关于这个的来源吗？谢谢你。

package Computer;
@ISA = qw(StoreItem);

sub new {
    my $pkg = shift;
    my $obj = $pkg->SUPER::new("Computer", 0,0);
    $obj->{_components} = [];
    $obj->components(@_);
    $obj;
}

sub components {
    my $obj = shift;
    @_ ? push (@{$ojb->{_components}}, @_) : @{$obj->{_components}};
}

sub price {
    my $obj = shift;
    my $price = 0;
    my $component;
    for my $component ($obj->components()) {
        $price += $component->price();
    }
    $price;
}

我真的不了解 perl 哈希。我一直在阅读 perl 文档，但无法完全获得 perl 参考。

作为一个主要的例子，你能告诉我下面的区别吗？

 @{$table}{$item}
 @{$table{$item}}
 %{$table}{$item}
 %{$table{$item}}

或者是否有一些我无法破译这些的一般规则？

请指出我正确的方向。我一直在阅读 perldoc.perl.org..

我必须简单地问一下这两者之间有什么区别？

${$rarray[1]} 对比 ${$rarray}[1]

我理解，${$rarray}[1] 但我真的无法理解我的生活${$rarray[1]} ？？