什么时候应该使用包变量和词法变量（有什么区别）？

Question

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

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

Answer 1

您应该阅读 MJD 的应对范围界定。

perldoc perlmod 也将是有用的阅读。

该代码非常丑陋。 它践踏各种名称空间而无需担心，只是因为作者似乎认为 $author::email 很酷。

更好的方法是使用散列：

my %author = (
   email => '[email protected]',
   ...
);

不需要遍历整个符号表。

我确实有一些 Win32::OLE 示例： http://www.unur .com/comp/ 这不是艺术品，但我相信是对这种风格的改进。 另请参阅为什么 Perl 和 Word VBA 中的 Word 文档页数不同？

我要咆哮一点：

@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：我相信我的摘录构成合理使用。

Answer 2

包变量存在于符号表中，因此给定其名称，可以从任何其他包或作用域读取或修改它。 词法变量的范围由程序文本决定。 “通过 my() 的私有变量” 部分perlsub 联机帮助页提供了有关定义词法的更多详细信息。

假设我们有以下 MyModule.pm：

package MyModule;

# these are package variables
our $Name;
$MyModule::calls = "I do not think it means what you think it means.";

# this is a lexical variable
my $calls = 0;

sub say_hello {
  ++$calls;

  print "Hello, $Name!\n";
}

sub num_greetings {
  $calls;
}

1;

请注意，它包含一个包 $calls 和一个词法 $calls。 任何人都可以访问前者，但模块控制对后者的访问：

#! /usr/bin/perl

use warnings;
use strict;

use MyModule;

foreach my $name (qw/ Larry Curly Moe Shemp /) {
  $MyModule::Name = $name;
  MyModule::say_hello;
}

print MyModule::num_greetings, "\n";

print "calls = $MyModule::calls\n";

程序的输出是

Hello, Larry!
Hello, Curly!
Hello, Moe!
Hello, Shemp!
4
calls = I do not think it means what you think it means.

如您所见，包变量是全局变量，因此所有常见的陷阱和建议都适用。 除非显式提供访问权限，否则 MyModule 包外部的代码不可能访问其词法 $calls。

经验法则是你几乎总是想使用词汇。 Damian Conway 的 Perl 最佳实践 很直接：“永远不要让模块接口的变量部分”（原文强调）。

Answer 3

包变量是全局变量； 它们在整个程序（甚至其他模块）中随处可见。 当您想要或需要这种程度的可见性和/或外部影响力时，它们非常有用。 例如，Text::Wrap 模块使用它们来允许对文本换行的列数进行单个配置点。 此外，包变量允许您使用称为“动态作用域”的东西——但这是一个有点高级且有点深奥的概念。

对于第二个问题，请参阅Perl 中的 my 和 our 有什么区别？