Perl:构造一个对象数组

Question

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

我想创建一个固定数量的对象的数组.

我能做到这一点:

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

这是几种丑陋的.使它成为一个循环只是略微好一点.

是不是有办法在Perl中创建(构造函数初始化的)对象数组？

事后问题:

我想要创建的这些"对象"实际上是用于C结构的SWIG生成的包装器,即没有"行为"的数据结构(除了SWIG生成的get和set函数之外).我只想将数组作为参数传递给C函数,这将为我填充结构; 我是否需要调用构造函数,或者是否有一个快捷方式来get获取之后读取结构内容的函数？(是的,我对OOPerl 非常陌生......)

Answer 1

有不止一个简洁的方法:

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

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