Perl-對象中的對象數組

Question

我有具有某種抽象水平的objA，並且我嘗試創建具有它自己的屬性的objB，但是其中之一是objA數組。 我希望能夠創建objB並使用值填充它的objA數組。 如何在perl中進行編碼？

Answer 1

如果您的ObjA對象基於哈希，那么您可以擁有一個與數組引用相對應的字段，以存儲ObjB對象的列表。

您沒有說要使用或訪問這些項目的方式，但是可以說這樣編寫方法

package ObjA;

sub new {
  my ($class);
  bless {}, $class;
}

sub add_b_object {
  my ($self, $b_obj);
  push @{ $self->{b_objects} }, $b_obj;
}

然后你的代碼看起來像

my $a_obj = ObjA->new;

for (1..3) {
  my $b_obj = ObjB->new;
  $a_obj->add_b_object($b_obj);
}

希望對您有所幫助