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); 
} 

我希望這可以幫助