自删除数组元素（一旦它们变得未定义）

Question

我有一个 Perl 脚本生成一组对对象的弱引用。一旦这些对象之一超出范围，数组中对它的引用将变为未定义。

ex（伪代码）：

# Imagine an array of weak references to objects
my @array = ( $obj1_ref, $obj2_ref, $obj3_ref );

# Some other code here causes the last strong reference
# of $obj2_ref to go out of scope.

# We now have the following array
@array = ( $obj1_ref, undef, $obj3_ref )

有没有办法让未定义的引用在未定义后自动从数组中删除？

我想要@array = ($obj1_red, $obj3_ref )。

编辑：

我尝试了这个解决方案，但它不起作用：

#!/usr/bin/perl
use strict;
use warnings;

{
    package Object;
    sub new { my $class = shift; bless({ @_ }, $class) }
}

{
    use Scalar::Util qw(weaken);
    use Data::Dumper;

    my $object = Object->new();

    my $array;
    $array = sub { \@_ }->( grep defined, @$array );

    {
        my $object = Object->new();
        @$array = ('test1', $object, 'test3');
        weaken($array->[1]);
        print Dumper($array);
    }

    print Dumper($array);

输出：

$VAR1 = [
          'test1',
          bless( {}, 'Object' ),
          'test3'
        ];
$VAR1 = [
          'test1',
          undef,
          'test3'
        ];

undef 不会自动从数组中删除。

我错过了什么吗？

编辑 2：

我还尝试在对象的 DESTROY 方法中从数组中删除未定义的值，但这似乎也不起作用。看来，由于该对象在技术上仍未“销毁”，因此仍会定义弱引用，直到 DESTROY 方法完成...

Answer 1

不，没有，只是使用一个神奇的（例如绑定的）数组。

如果您引用的是数组而不是数组，则可以使用以下方法有效地过滤掉未定义的元素，而无需“强化”任何引用。

$array = sub { \@_ }->( grep defined, @$array );

事实上，这根本不会复制值。只有“C 指针”被复制。

Answer 2

Perl 不会自动为您执行此操作。你有几个选择。首先是每次使用时都要自己清洗：

my @clean = grep { defined $_ } @dirty;

或者您可以创建一个tie'd array 并将该功能添加到FETCH* 和POP 挂钩。