perl - 当 Perl 脚本的 $0 变为空时有什么标准吗？

Question

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

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::);
}