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

发布时间：2020-12-15 21:54:31 所属栏目：大数据来源：网络整理

导读：我有一堆运行工具流程的脚本.就像Makefile一样但是在Perl中. 作为这些流程的一部分,Perl脚本设置了环境变量,并且它们发生的时间并不总是很容易,因此很难重现流程的各个阶段. 有没有办法挂钩％ENV,这样我可以在环境变化时注册一个回调？我能绑到它吗？％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;
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!