我有一堆运行工具流程的脚本.就像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;
}