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

StackOverflow https://stackoverflow.com/questions/1019617

题

我在 Perl Monks 上查看一些较旧的Perl代码，以找出编程使用Win32 :: OLE和MS Word。在整个代码中分散的是名称为 $ MS :: Word 等的变量，其声明中没有包含“ my ”。在Google上阅读了一下之后，我了解这些被称为“包变量”与使用 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 和一个lexical $ 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 Best Practices 是直接的：“从不使变量成为模块接口的一部分＆quot; （强调原文）。

其他提示

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

perldoc perlmod 也很有用。

代码离这个世界很难看。它仅仅因为作者似乎认为$ author :: email很酷而践踏各种名称空间而没有引起任何关注。

更好的方法是使用哈希：

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

无需遍历符号表。

我确实有一些 Win32 :: OLE 示例： http：// www.unur.com/comp/ 这些都不是艺术品，但我相信这种风格的改进。另见为什么Word文档中的页面数在Perl和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：我相信我的摘录是合理使用的。

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

关于第二个问题，请参阅我和我们在Perl中有什么区别？

许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top