perl - 访问数组中结构的字段

Question

我有一个结构数组(来自 Class::Struct)，但我无法访问它们的“字段”。我看过其他解决方案，例如 Perl - Class::Struct Deferencing array和 Perl 文档没有成功。我的代码是:

use Class::Struct;
use Data::Dump qw(dump);

struct( Tag => {
    attributes => '%',
    value => '$'
});

my @data = [];
push @data, Tag->new(attributes => { 'id' => 1 }, value => "hello world!");
dump @data;



my $tag = $data[0];
my $value = $tag->value;
print $value, "\n";

我已经尝试使用“Tag”对 blessing $tag 进行变体(因为无法在 unblessed 上调用 value ... 是当前错误)，将 $tag 解引用为散列，等等。

Answer 1

你的错误是在@data的初始化中:

my @data = []; # the same as my @data = ( [] );

您声明名为 @data 的数组并使用一个空数组引用对其进行初始化。 接下来使用 push 将第二个元素推送到数组。您的类(class)现在位于 $data[1] 中。 所以固定的例子:

struct( Tag => {
    attributes => '%',
    value => '$'
});

my @data;
push @data, Tag->new(attributes => { 'id' => 1 }, value => "hello world!");

my $tag = $data[0];
my $value = $tag->value;
print $value, "\n";