Как я использую массив в качестве атрибута объекта в Perl?

Если вы включите директиву strict, код даже не компилируется:

Global symbol "@_IncludePath" requires explicit package name at Packet.pm line 15.
Global symbol "@_IncludePath" requires explicit package name at Packet.pm line 29.
Global symbol "@_IncludePath" requires explicit package name at Packet.pm line 30.
Global symbol "@_IncludePath" requires explicit package name at Packet.pm line 40.

Не используйте @ без кавычек в ваших ключах, потому что это запутает синтаксический анализатор. Я рекомендую полностью удалить их, чтобы не запутать людей, читающих ваш код.

Похоже, вы хотите вытащить все значения атрибутов из аргументов в конструктор, поэтому продолжайте снимать скалярные значения с помощью shift , а затем все, что осталось, должно быть путем включения.

Я предполагаю, что компоненты пути включения будут простыми скалярами, а не ссылками; в последнем случае вы захотите сделать глубокие копии в целях безопасности.

sub new {
  my $class = shift;

  my $Packet = {
    _PacketName  => shift,
    _Platform    => shift,
    _Version     => shift,
    _IncludePath => [ @_ ],
  };

  bless $Packet, $class;
}

Обратите внимание, что нет необходимости сохранять благословенный объект во временной переменной, а затем немедленно возвращать его из-за семантики подпрограмм Perl :

Если не найдено return и если последний оператор является выражением, возвращается его значение.

Приведенные ниже методы также будут использовать эту функцию.

Учитывая вышеупомянутый конструктор, GetIncludePath становится

sub GetIncludePath {
  my( $Packet ) = @_;
  my @path = @{ $Packet->{_IncludePath} };
  wantarray ? @path : \@path;
}

Здесь происходит несколько вещей. Во-первых, обратите внимание, что мы стараемся возвращать копию пути включения, а не прямую ссылку на внутренний массив. Таким образом, пользователь может изменить значение, возвращаемое из GetIncludePath , не беспокоясь о том, чтобы испортить состояние пакета.

Оператор wantarray позволяет подпрограмме определять контекст своего вызова и отвечать соответствующим образом. В контексте списка GetIncludePath вернет список значений в массиве.В противном случае он возвращает ссылку на копию массива. Таким образом, клиентский код может вызывать его либо как в

foreach my $path (@{ $packet->GetIncludePath }) { ... }

, либо как

foreach my $path ($packet->GetIncludePath) { ... }

SetIncludePath тогда

sub SetIncludePath {
  my ( $Packet, @IncludePath ) = @_;
  $Packet->{_IncludePath} = \@IncludePath;
}

Обратите внимание, что вы могли бы использовать аналогичный код в конструкторе вместо удаления одного параметра за раз с помощью сдвиг .

Вы можете использовать класс, определенный выше, как в

#! /usr/bin/perl

use strict;
use warnings;

use Packet;

sub print_packet {
  my($p) = @_;
  print $p->GetPacketName, "\n",
        map("  - [$_]\n", $p->GetIncludePath),
        "\n";
}

my $p = Packet->new("MyName", "platform", "v1.0", qw/ foo bar baz /);
print_packet $p;

my @includeobjects = (
    "./input/myMockPacketName",
    "./input/myPacket/my3/*.txt",
    "./input/myPacket/in.html",
);
$p->SetIncludePath(@includeobjects);
print_packet $p;

print "In scalar context:\n";
foreach my $path (@{ $p->GetIncludePath }) {
  print $path, "\n";
}

Вывод:

MyName
  - [foo]
  - [bar]
  - [baz]

MyName
  - [./input/myMockPacketName]
  - [./input/myPacket/my3/*.txt]
  - [./input/myPacket/in.html]

In scalar context:
./input/myMockPacketName
./input/myPacket/my3/*.txt
./input/myPacket/in.html