perl – 如何捕获％ENV的更改？

我有一堆运行工具流程的脚本.就像Makefile一样但是在Perl中.

作为这些流程的一部分,Perl脚本设置了环境变量,并且它们发生的时间并不总是很容易,因此很难重现流程的各个阶段.

有没有办法挂钩％ENV,这样我可以在环境变化时注册一个回调？

我能绑到它吗？％ENV已经表现得像个平局.

后续行动：是的.你只是绑定它.

解决方法

这是可行的.我认为执行以下操作可能会有性能损失,我确信我没有涵盖所有可能的情况,但这绝对可以让你开始.

use strict;
use warnings;

tie %ENV,'change_noticer',%ENV or die $!;

$ENV{PATH} .= ":test";
print $ENV{PATH},"\n";
delete $ENV{PATH};

package change_noticer;

use strict;
use warnings;
use Carp;
use Tie::Hash;
use base 'Tie::StdHash';

sub DELETE {
    my $this = shift;

    carp "deleting \$ENV{$_[0]}";
    $this->SUPER::DELETE(@_);
}

sub STORE {
    my $this = shift;

    carp "altering \$ENV{$_[0]}";
    $this->SUPER::STORE(@_);
}

sub TIEHASH {
    my $class = shift;
    my $this  = bless {},$class;

    while( my ($k,$v) = splice @_,2 ) {
        $this->{$k} = $v;
    }

    return $this;
}

perl – 如何捕获％ENV的更改？

解决方法

相关文章