当$ 0的Perl脚本变为空时，任何标准？

Question

我有一个Perl脚本，它在内部使用来自CPAN和我自己的项目的依赖Perl模块。我在我的脚本中使用$0（进程脚本名称）属性值。奇怪的是，在某些依赖的API调用之后，该值突然变为NULL。我的流程中没有使用eval()或system()。只是一个常规的自上而下的运行脚本。知道可能是$0值消失的原因是什么？

Answer 1

Tie::StdScalar找出谁更改了$0。

{
   package Tie::Scalar::Croaker;
   use Tie::Scalar qw( );
   use Carp qw( confess );
   our @ISA = qw( Tie::StdScalar );
   sub FETCH { $0 }
   sub STORE { confess('$0 changed'); }
   tie($0, Tie::Scalar::Croaker::);
}