Perl，perl 构造函数中的@array

Question

我编写了 perl 类，但我不知道如何在我的 $this 中使用数组或散列多变的 ？

我有一个 pack.pm :

#!/usr/bin/perl -w
use strict;
use Parallel::ForkManager;
package Pack;

our $cgi = new CGI;

sub new {
    my ($classe, $nom, $nbports, $gio) = @_;

    my $this = {
    "nom"    => $nom,
    "nbports" => $nbports,
    "gio"   => $gio
    };

    bless($this, $classe);
    return $this;   
}
    ...
1;

我想要一个 @tab , 我可以通过 $this->tab 访问，但我不想在 arg 中将它提供给实例。
它在 Perl 中是如何工作的？

谢谢。

Answer 1

鉴于你对我的评论的回答，我想你想要

my($this) = {
    "nom"     =>  $nom,
    "nbports" =>  $nbports,
    "gio"     =>  $gio,
    "tab"     =>  []
};

即将 $this->{tab} 设置为对新匿名数组的引用。

现在您可以根据需要引用它，例如

$this->{"tab"}[0] = "new value";
print "Table contains ", scalar(@{$this->{"tab"}}), "entries\n";