strict pragma 包含三部分:严格引用、严格变量和严格子项.你遇到的是

The strict pragma has three parts: strict references, strict variables, and strict subs. The one you're running into is

如果您访问的变量不是通过 our 或 use vars 声明的，而是通过 my 本地化的，则会生成编译时错误，或者不完全合格.因为这是为了避免变量自杀问题和微妙的动态范围问题，仅仅使用 local 变量是不够的.

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 代码甚至没有机会运行.您可以在块中临时允许非严格变量，如

Because it generates compile-time errors, your non-BEGIN code won't even have a chance to run. You can temporarily allow non-strict variables inside a block as in

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

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

but note that Perl's defined operator tells you whether a value is defined, not whether a variable has been declared.

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

Tell us more about your application, and we can give you better advice about how to handle it.