perl - 什么时候应该使用包变量和词法变量(有什么区别)？

Question

我正在查看 Perl Monks 上的一些较旧的 Perl 代码弄清楚如何使用 Win32::OLE 和 MS Word 进行编程。整个代码中散布着名称类似于 $MS::Word 等的变量，但其声明中不包含“my”。在 Google 上阅读了一些内容后，我了解到这些变量被称为“包变量”，而不是使用 my 声明的“词法变量”。

我的第一个问题是“包变量有什么用？”。我(认为)我理解词法变量是什么，但我不理解包变量的目的或它们的使用与词法有何不同，所以我的第二个问题是，'词法变量和包变量之间有什么区别？'

Answer 1

您应该阅读Coping with Scoping由 MJD 提供。

perldoc perlmod阅读起来也很有用。

这段代码实在是太丑了。它肆无忌惮地践踏各种命名空间，只是因为作者似乎认为 $author::email 很酷。

更好的方法是使用哈希:

my %author = (
   email => 'author@example.com',
   ...
);

没有必要遍历整个符号表。

我确实有一些 Win32::OLE 示例:http://www.unur.com/comp/这不是艺术品，但我相信是对这种风格的改进。另请参阅Why are the number of pages in a Word document different in Perl and Word VBA?

我要咆哮一点:

@pgm::runtime_args = @ARGV ;

因此，我们放弃了标准的 @ARGV 数组，转而践踏 pgm 命名空间。不仅如此，每个 Perl 程序员都知道 @ARGV 是什么。无论如何，@pgm::runtime_args 不会在脚本中再次使用。

$pgm::maxargs = $#pgm::runtime_args + 1 ;

当然，标量上下文中的 @pgm::runtime_args 会给我们该数组中的元素数量。我不知道为什么可能需要 $pgm::maxargs ，但如果是的话，那么这一行应该是:

$pgm::maxargs = @pgm::runtime_args;

我不会引用更多这些东西。我想这就是 Cobol 程序员尝试编写 Perl 时发生的情况。

$program::copyright = "Copyright (c) 02002 - Kenneth Tomiak : All rights reserved.";

我很高兴他为这一年分配了五位数字。你永远不知道!

PS:我相信我的摘录构成合理使用。