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