perl – 使用Sub :: Quote弱化捕获

use 5.10.0;
use Scalar::Util qw[ weaken ];
{
  my $s = 'foo';
  my $x = sub { say $s };
  weaken( my $y = $x );

  my $bar = sub { &$y };
  &$bar;
  $x = undef;
  &$bar
}

foo
Can't use an undefined value as a subroutIne reference [...]

use 5.10.0;
use Sub::Quote;
use Scalar::Util qw[ weaken ];
{
  my $s = 'foo';
  my $x = sub { say $s };
  weaken( my $y = $x );

  my $bar = quote_sub( '&$y',{ '$y' => \$y } );
  &$bar;
  $x = undef;
  &$bar;
}

foo
foo

@H_658_2@my $bar = quote_sub( '&$y',{ '$y' => \$y } );

大致相同

@H_658_2@my $bar = eval(q{ my $y = $y; sub { &$y } });

(它做得更多,但这些位与这个问题无关).如您所见,这为sub [1]创建了一个新的强引用.

作为一种解决方法,您可以添加一个间接层：

@H_658_2@my $bar = eval(q{ my $y_ref = \$y; sub { &{ $$y_ref } } });

这可以通过使用：

@H_658_2@my $bar = quote_sub( '&{$$y_ref}',{ '$y_ref' => \\$y } );

如果Sub :: Quote创建的$y是$y的别名,则不会有任何问题.这可以使用Data :: Alias或5.22中引入的实验性功能来实现.

这可以通过以下方式证明：

{
  package Sub::Quote;

  my $sub = sub {
    my ($from,$captures,$indent) = @_;
    join(
      '',"use feature qw( refaliasing );\n","no warnings qw( experimental::refaliasing );\n",map {
        /^([\@\%\$])/
          or croak "capture key should start with \@,\% or \$: $_";
        (' ' x $indent).qq{\\my ${_} = \\${1}{${from}->{${\quotify $_}}};\n};
      } keys %$captures
    )
  };

  no warnings qw( redefine );
  *capture_unroll = $sub;
}


my $bar = quote_sub( '&$y',{ '$y' => \$y } );

您可以与模块的维护者讨论添加一个会导致使用别名的选项.

>当您创建(强或弱)引用的副本时,它是一个强大的参考.