perl - 使用 "require"时如何导入变量？

Question

这不起作用(下面的错误消息)。我怎样才能使这项工作？

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

sub routine {
    require FindBin;
    FindBin::->import( '$RealBin' );
    say $RealBin;
}

routine();

给出这个输出

Global symbol "$RealBin" requires explicit package name at ./perl.pl line 9.
Execution of ./perl.pl aborted due to compilation errors.

Answer 1

require和 import发生在运行时，而变量必须在编译时声明。所以我们有三个解决方案:

进口 FindBin在编译时:

use FindBin qw/$RealBin/;

sub routine {
    say $RealBin;
}

我强烈建议这个解决方案。

声明变量以便它可以在没有 strict 的情况下使用或 warnings提示:

sub routine {
    require FindBin;
    FindBin->import('$RealBin');
    our $RealBin;  # this just declares it so we can use it from here on
    say $RealBin;
}

不要导入符号并使用完全限定名称:

sub {
    require FindBin;
    # FindBin->import;  # does nothing here
    say $FindBin::RealBin;
}

加载中FindBin从性能的角度来看，在运行时可能没用，你应该只是 use它通常。如果你正在做这些奇怪的运行时体操来计算 $RealBin每次调用 routine 时重新，这些解决方案都不起作用，因为 require如果模块已经加载，则不执行该模块(它执行类似于 $INC{'FindBin.pm'} or return 的操作)。 FindBin::again功能可能会有所帮助。

FindBin docs

require docs