Я пишу классы 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
, но я не хочу указывать его в аргументе для экземпляра.
Как это работает в Perl?
Спасибо.