Perl变量垃圾收集和refcount

在以下示例中，我对Perl中的变量垃圾收集有点困惑：

#!/bin/env perl
use v5.14;

package MyTestModule {
sub foo {
    my $fh = shift;
    for(1..100){
        say "PUT";
        $fh->autoflush(1);
        print $fh "Heloo\n";
        sleep 1;
    }
}
}


package main;

use AnyEvent;
use AnyEvent::Fork::Template;

my $cv = AnyEvent->condvar;
$AnyEvent::Fork::Template->fork->run("MyTestModule::foo", sub {
    my $fh_fh_fh = shift;
    my $w_w_w;
    $w_w_w = AnyEvent->io(fh => $fh_fh_fh, poll => "r", cb => sub {
           $w_w_w unless 1;
           sysread $fh_fh_fh, my $rslt, 10;
           say "GOT:", $rslt;
            }
        );
   });
$cv->wait;

在上面的代码中，如果我删除

$w_w_w

，那么由于

AnyEvent->io

创建了一个对象，它的引用变为零，那么它将被Perl回收，这使得代码无法工作（不会调用cb）

然后我将其分配给标量

$w\u w\u w

，但我不需要回调中的

$w\u w\u w

。但以下代码不起作用（将不调用回调）：

因此，我在回调中添加了一行代码（您可以在这个请求的前面看到）：

$w\u w\w，除非1

因为断言总是错误的，所以它不会运行，我认为perl编译器/解释器会优化这行代码（删除它），那么$w_w_w的引用计数将为零。并且也不会调用回调。 但它是有效的。因此，我希望有人能解释这一点

perl-MO=Deparse t2.pl

sub BEGIN {
    require v5.14;
}
package MyTestModule;
sub foo {
    use strict;
    no feature;
    use feature ':5.12';
    my $fh = shift();
    foreach $_ (1 .. 100) {
        say 'PUT';
        $fh->autoflush(1);
        print $fh "Heloo\n";
        sleep 1;
    }
}
package main;
use strict;
no feature;
use feature ':5.12';
{;};
use AnyEvent;
use AnyEvent::Fork::Template;
my $cv = 'AnyEvent'->condvar;
$AnyEvent::Fork::Template->fork->run('MyTestModule::foo', sub {
    my $fh_fh_fh = shift();
    my $w_w_w;
    $w_w_w = 'AnyEvent'->io('fh', $fh_fh_fh, 'poll', 'r', 'cb', sub {
        '???';
        sysread $fh_fh_fh, my $rslt, 10;
        say 'GOT:', $rslt;
    }
    );
}
);
$cv->wait;

---

我在perlmonks.org上找到了答案：

你把我的$fh\u fh\u fh转换成了什么值？？它是socketpair的一个文件处理程序，用于与forked进程进行通信。既然你不在乎$w\u w，那么在回调子项的末尾添加

undef$w\u w\u w

，而不是

$w\u w\u，除非1

-我想，因为你至少是reference在anonymous sub中添加$w_w_w_w，引用使其通过编译时，不会被破坏。但不是100%确定，因此不想将此作为答案发布。请注意，代码泄漏给观察者-永远无法再次破坏观察者。如果观察者被认为是永恒的，那么这很好。在perl模块中，这是最有可能的不想要的行为。

$AnyEvent::Fork::Template->fork->run("MyTestModule::foo", sub {
    my $fh_fh_fh = shift;
    my $w_w_w;
    $w_w_w = AnyEvent->io(fh => $fh_fh_fh, poll => "r", cb => sub {

       sysread $fh_fh_fh, my $rslt, 10;
            say "GOT:", $rslt;
        }
    );
  });

sub BEGIN {
    require v5.14;
}
package MyTestModule;
sub foo {
    use strict;
    no feature;
    use feature ':5.12';
    my $fh = shift();
    foreach $_ (1 .. 100) {
        say 'PUT';
        $fh->autoflush(1);
        print $fh "Heloo\n";
        sleep 1;
    }
}
package main;
use strict;
no feature;
use feature ':5.12';
{;};
use AnyEvent;
use AnyEvent::Fork::Template;
my $cv = 'AnyEvent'->condvar;
$AnyEvent::Fork::Template->fork->run('MyTestModule::foo', sub {
    my $fh_fh_fh = shift();
    my $w_w_w;
    $w_w_w = 'AnyEvent'->io('fh', $fh_fh_fh, 'poll', 'r', 'cb', sub {
        '???';
        sysread $fh_fh_fh, my $rslt, 10;
        say 'GOT:', $rslt;
    }
    );
}
);
$cv->wait;