Perl 中的 bash 导出相当于什么？

Question

我正在将 bash 脚本转换为 Perl。我不确定 export 的等价物是什么。

LOC=/tmp/1/
export LOC

例如，对于上面两行，等效的 Perl 代码是什么？

my $LOC = '/tmp/1/';
# what should go here?

Answer 1

$ENV{LOC} = "/tmp/1";

%ENV 的内容被传播到Perl 脚本的子进程。

Answer 2

模块环境（请参见 http://perldoc.perl.org/Env.html）

Answer 3

在 bash 中，您可能想做这样的事情：

EXPORT_CMD=/tmp/${0}_exports.bsh
perl ...
chmod +x $EXPORT_CMD
$EXPORT_CMD
rm $EXPORT_CMD

在 Perl 中，这样：

sub export (@) {
    state $exh;
    unless ( $exh ) {
        my $export_cmd_path = $ENV{EXPORT_CMD};
        open( $exh, '>>', $export_cmd_path )
            or die "Could not open $export_cmd_path!"
            ;
    }
    while ( @_ > 1 ) { 
        my ( $name, $value ) = (( uc shift ), shift );
        # If you want it visible in the current script:
        {   no strict 'refs';
            ${"::$name"} = $value;
        }
        $exh->print( qq{export $name "$value"\n} );
    }
}

然后，只需编写以下代码即可：

export LOC => '/tmp/1/';

问题是大多数程序无法更改调用它们的 shell 变量。