perl - 如何检查变量是否在perl中声明？

Question

我正在使用 use strict;在 perl 中，我使用以下语句。

unless(defined($x)){
      print "Not defined";
}

$x 未在任何地方声明的地方。所以我希望它打印“ Not defined ”但它返回一个错误

Global symbol "$x" requires explicit package name at *********** in line 15.

Answer 1

strict pragma由三部分组成:严格引用、严格变量和严格子项。你遇到的那个是

strict vars

This generates a compile-time error if you access a variable that wasn't declared via our or use vars, localized via my, or wasn't fully qualified. Because this is to avoid variable suicide problems and subtle dynamic scoping issues, a merely local variable isn't good enough.

因为它会生成编译时错误，所以您的非 BEGIN代码甚至没有机会运行。您可以在块中临时允许非严格变量，如

{
  no strict 'vars';
  print "Not defined!\n" unless defined $x;
}

但请注意 Perl 的 defined运算符告诉您是否定义了值，而不是是否已声明变量。

告诉我们更多关于您的申请的信息，我们可以为您提供更好的处理建议。