为什么 mysql.pm 中的全局变量没有声明为我们的？

Question

引自mysql.pm ：

   3 package DBD::mysql;
   4 use strict;
   。。。。
  17 $err = 0;>--# holds error code   for DBI::err
  18 $errstr = "";>--# holds error string for DBI::errstr
  19 $drh = undef;>--# holds driver handle once initialised

奇怪的是我所有use warnings; 并且使用这个模块不会给出任何警告。

为什么？

Answer 1

在源代码的第 5 行：

use vars qw(@ISA $VERSION $err $errstr $drh);

请参阅使用 vars文档。

在our被引入 Perl 之前，这是我们能够使全局变量和严格变量共存的方式之一。 尽管它现在被认为是“过时的”（根据文档），但它仍然存在于实际代码中。 我猜在某些情况下，它属于“如果没有损坏，请不要修复它”的类别。 你找到了其中一个案例。

Answer 2

这些变量在第 5 行使用vars pragma 预先声明：

use vars qw(@ISA $VERSION $err $errstr $drh);

这就是为什么 Perl 尽管use strict有效但没有抱怨的原因。