perl – ‘Exporter’,’use vars’和’local’之间的互动

package Bar;

use base 'Exporter';
use vars qw/ $BarVar /;
BEGIN { @EXPORT_OK = qw/ $BarVar /; }

$BarVar = 'original';

1;

package Foo;

use Bar qw/ $BarVar /;

sub foo { print $BarVar . "\n"}

1;

use Strict;
use warnings;

use Foo;

{
  local $Bar::BarVar = 'modified'; 
  Foo::foo();
}

Foo::foo();

您可能听说过我和我们的创建变量(后者是别名),但是本地只是对值进行临时备份.

我撒了谎.

本地确实进行备份,但不进行备份.它备份相关标量的地址,创建新标量,并将名称与新标量相关联.在这种情况下,使$Bar :: BarVar引用新标量,$Foo :: BarVar引用旧标量.

$perl -E'
   *x = \$y;  say \$x," - ",\$y;
   local $y;  say \$x,\$y;
'
SCALAR(0x44d7c70) - SCALAR(0x44d7c70)
SCALAR(0x44d7c70) - SCALAR(0x44ba130)

如果您实际上只是备份值,问题就会消失.

use Sub::ScopeFinalizer qw( scope_finalizer );

{
   my $BACkup = $Bar::BarVar;
   my $guard = scope_finalizer { $Bar::BarVar = $BACkup };
   $Bar::BarVar = 'modified'; 
   Foo::foo();
}

可能存在更专业的工具.