Perl 词法范围变量在声明中的效率

Question

最终编辑：为了清楚起见，我正在对这个问题进行最后一次编辑。我相信它已经在所有的 cmets 中得到了回答，但是如果有这样的选择，我认为最好为未来的读者清理这个问题。

我最近继承了某人的 Perl 代码，并且有一个有趣的设置，我想知道它是否可以提高效率。

程序设置为使用strict 和warnings（应该如此）。程序设置为使用global 变量；这意味着变量在程序顶部被声明并初始化为undef。然后将超出初始undef 的特定值分配给程序内各个循环中的变量。设置后，有一个单独的报告部分（在所有内部循环和子例程运行之后）使用变量作为其内容。

有相当多的变量，在程序顶部进行初始变量声明似乎是重复的，以便以后可用于输出/报告目的（并保持符合严格的编译指示）。根据我的理解和迄今为止收到的所有 cmets，这似乎是唯一的方法，因为根据定义，词法范围的变量仅在其声明的范围内持续存在。因此，为了使其成为global，需要尽早声明（即在顶部）。

我只是想知道是否有一种捷径可以将变量的范围提升为全局变量，而不管它在哪里声明，并且仍然保持在strict's 参数范围内？

我之前的例子很混乱，所以我会在这里写一个伪代码示例来传达这个概念（我没有原始来源）：

# Initial declaration to create "Global variables" -- imagine about 30 or so
my ($var1, $var2, $var3); # Global

# Imagine a foreach loop going through a hash and assigning values 
# to previously declared variables
for my $k (keys %h){
  ...
  $var = 1; #$var gets set to 1 within the foreach loop
  ...
}
print "The final calculated report is as follows:\n";

#output $var after loop is done later in program
print "Variable 1 comes to $var1\n"; 

所以问题是：是否有一个可接受的快捷方式在上面的foreach 循环中声明$var1 并将其范围升级到foreach 循环之外，所以它实际上是“全局”的？这将避免需要在程序顶部将其声明和初始化为undef，并且仍然可以在程序的输出中使用。

根据已收到的反馈，由于定义的范围限制，答案似乎是明确的“否”。

Answer 1

根据您自己的问题：

所以问题是：是否有一个可接受的快捷方式在上面的 foreach 循环中声明 $var1 并将其范围升级到 foreach 循环之外，所以它实际上是“全局”的？这将避免需要在程序顶部将其声明和初始化为 undef，并且仍然可以在程序的输出中使用它。

您可以通过使用包括命名空间在内的整个名称来引用变量名而无需先声明它：

use strict;
use warnings;

my %h = (
    first   => 'value 1',
    second  => 'value 2',
    third   => 'value 3',
);

for my $k (keys %h) {
    print "Processing key $k...\n";
    $main::var = 1;
}

print "Variable var is now $main::var\n";

我假设main 作为您的命名空间，这是默认的。如果您的脚本声明package，那么您需要使用该名称。另外，如果您没有先声明变量，则每次都需要使用整个 package::name 格式。

但是，很清楚：您不需要“将变量声明并初始化为 undef”。如果你这样做：

my ($var1, $var2, $var3);

这些变量已经初始化为undef。

现在，您还需要了解词法变量和全局变量之间的区别。使用关键字my 在脚本顶部声明变量将使它们在脚本的所有其余部分中可用，无论您是在块内部还是外部。但它们并不是真正的全局，因为它们对任何外部模块或脚本都不可见。如果您将关键字 my 更改为 our，那么它们是全局的，并且在该脚本之外的任何地方都可见。

Answer 2

我只是想知道是否有一种捷径可以将变量的范围提升为全局变量，而不管它在哪里声明，并且仍然保持在严格的参数范围内？

使用全局变量是愚蠢的，但可能。

use vars qw( $foo );

在任何使用之前它仍然需要存在。