Perl：构造一个对象数组

发布时间：2020-12-15 21:46:42 所属栏目：大数据来源：网络整理

导读：部分与 this question相关但不同,因为这是关于构造函数调用… 我想创建一个固定数量的对象的数组. 我能做到这一点： my @objects;push( @objects,new MyPackage::MyObject() );push( @objects,new MyPackage::MyObject() );# ... 这是几种丑陋的.使它成为一

部分与 this question相关但不同,因为这是关于构造函数调用…

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

我能做到这一点：

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

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

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

事后问题：

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

解决方法

有不止一个简洁的方法：

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!