Perl：构造对象数组

Question

部分与这个问题相关，但不同，因为这是关于构造函数调用......

我想创建一个固定数量的数组的物体。

我可以这样做：

my @objects;
push( @objects, new MyPackage::MyObject() );
push( @objects, new MyPackage::MyObject() );
push( @objects, new MyPackage::MyObject() );
# ...

那是几种丑陋的方式。让它成为一个循环只会稍微好一些。

没有办法在 Perl 中创建（构造函数初始化的）对象数组吗？

事后思考的问题：

我想要创建的这些“对象”实际上是 SWIG 生成的 C 结构包装器，即没有“行为”的数据结构（除了 SWIG 生成的 get和set 函数）。我只想将数组作为参数传递给 C 函数，该函数将为我填充结构；我是否需要调用构造函数，或者是否有一个快捷方式可以让 get 函数在之后读取结构内容？ （是的，我对 OPerl 非常陌生......）

Answer 1

有不止一种简洁的方法可以做到这一点：

my @objects = map { new MyPackage::MyObject() } 1..$N;

my @objects = ();
push @objects, new MyPackage::MyObject() for 1..$N;

Answer 2

您可以通过向 push 提供多个参数来避免循环并重复相同的语句：

push(@objects, 
  new MyPackage::MyObject(), 
  new MyPackage::MyObject(), 
  new MyPackage::MyObject());

这是可能的，因为 push 的原型是 push ARRAY,LIST。

或者您可以使用数组编辑器以更直接的方式完成此操作（首选）：

my @objects = (
  new MyPackage::MyObject(), 
  new MyPackage::MyObject(), 
  new MyPackage::MyObject(),
);

Answer 3

你可以说

@objects = (new MyPackage::MyObject(), new MyPackage::MyObject(), new MyPackage::MyObject());   

Answer 4

您可以构造一个对象列表并将其分配给您的数组：

my @objects= (
  new MyPackage::MyObject(),
  new MyPackage::MyObject(),
  new MyPackage::MyObject(), 
  # ...
);