[perl] 关于perl中面向对象编程时，实例之间的比较
本帖最后由 Johan_000 于 2021-1-26 13:21 编辑现在是这样的一个问题，因为是业务系统，涉及到NDA，这边不便放出数据结构，只能大致描述一下情况。
公司用Perl写那种非常裸的面向对象，然后我现在遇到这样的一个问题：
首先假设我通过某个方法获得了一个由对象实例构成的数组`array_0`，然后我通过另一个方法获得了另一个有对象实例构成的数组`array_1`，然后我想利用foreach、if和grep来筛选出`array_0`中不包含在`array_1`中的元素。
但是问题就出现了，由于这里的元素是对象实例，我并没有在Perl中处理过这种对象的比较，我不确定使用eq是不是可行，有没有Perl带手子能告知一下，或者说一下怎么在Perl中比较两个对象实例是不是相同。
大致代码如下：
```
my @array_0 = xxxxx;
my @array_1 = xxxxxxx;
foreach my $obj (@array_0) {
if (grep {$_ eq $obj} @array_1) { # 能这么写吗？
balabalabala;
}
}
```
页:
[1]