这只是与问题有点相关，但我刚刚发现了一个(对我来说)模糊的perl语法，你可以使用“我们的”(包)变量，而不能使用“我的”(本地)变量。

#!/usr/bin/perl

our $foo = "BAR";

print $foo . "\n";
${"foo"} = "BAZ";
print $foo . "\n";

输出:

BAR
BAZ

如果你把“our”改成“my”，这就行不通了。

一个例子:

use strict;

for (1 .. 2){
    # Both variables are lexically scoped to the block.
    our ($o);  # Belongs to 'main' package.
    my  ($m);  # Does not belong to a package.

    # The variables differ with respect to newness.
    $o ++;
    $m ++;
    print __PACKAGE__, " >> o=$o m=$m\n";  # $m is always 1.

    # The package has changed, but we still have direct,
    # unqualified access to both variables, because the
    # lexical scope has not changed.
    package Fubb;
    print __PACKAGE__, " >> o=$o m=$m\n";
}

# The our() and my() variables differ with respect to privacy.
# We can still access the variable declared with our(), provided
# that we fully qualify its name, but the variable declared
# with my() is unavailable.
print __PACKAGE__, " >> main::o=$main::o\n";  # 2
print __PACKAGE__, " >> main::m=$main::m\n";  # Undefined.

# Attempts to access the variables directly won't compile.
# print __PACKAGE__, " >> o=$o\n";
# print __PACKAGE__, " >> m=$m\n";

# Variables declared with use vars() are like those declared
# with our(): belong to a package; not private; and not new.
# However, their scoping is package-based rather than lexical.
for (1 .. 9){
    use vars qw($uv);
    $uv ++;
}

# Even though we are outside the lexical scope where the
# use vars() variable was declared, we have direct access
# because the package has not changed.
print __PACKAGE__, " >> uv=$uv\n";

# And we can access it from another package.
package Bubb;
print __PACKAGE__, " >> main::uv=$main::uv\n";

这只是与问题有点相关，但我刚刚发现了一个(对我来说)模糊的perl语法，你可以使用“我们的”(包)变量，而不能使用“我的”(本地)变量。

#!/usr/bin/perl

our $foo = "BAR";

print $foo . "\n";
${"foo"} = "BAZ";
print $foo . "\n";

输出:

BAR
BAZ

如果你把“our”改成“my”，这就行不通了。

处理作用域是对Perl作用域规则的一个很好的概述。它已经足够古老了，所以我们没有在正文中讨论。在最后的Notes一节中讨论了这个问题。

本文讨论包变量和动态作用域，以及它们与词法变量和词法作用域的区别。

我曾经在Perl中遇到过一些关于词汇声明的陷阱，这些陷阱也与这个问题有关，所以我在这里添加了我的总结:

1. 定义还是声明?

local $var = 42;
print "var: $var\n";

输出为var: 42。但是我们不知道local $var = 42;定义或声明。但是这个怎么样:

use strict;
use warnings;

local $var = 42;
print "var: $var\n";

第二个程序将抛出一个错误:

Global symbol "$var" requires explicit package name.

$var没有定义，这意味着本地的$var;只是一个宣言!在使用local声明变量之前，请确保之前已将其定义为全局变量。

但为什么这不会失败呢?

use strict;
use warnings;

local $a = 42;
print "var: $a\n";

输出为:var: 42。

这是因为$a和$b都是在Perl中预定义的全局变量。还记得排序函数吗?

2. 词汇的还是全局的?

在开始使用Perl之前，我是一名C程序员，所以词法变量和全局变量的概念对我来说似乎很简单:它只对应于C中的自动变量和外部变量，但有一些小的区别:

在C语言中，外部变量是定义在任何函数块之外的变量。另一方面，自动变量是在函数块中定义的变量。是这样的:

int global;

int main(void) {
    int local;
}

而在Perl中，事情是微妙的:

sub main {
    $var = 42;
}

&main;

print "var: $var\n";

输出为var: 42。$var是一个全局变量，即使它是定义在函数块中!实际上，在Perl中，任何变量都默认声明为全局变量。

教训是要时刻加用严;使用警告;在Perl程序的开始，这将迫使程序员显式地声明词法变量，这样我们就不会被一些想当然的错误弄乱。

perldoc对我们的。

与我的方法不同，我的方法既为变量分配存储空间，又将一个简单的名称与该存储空间关联起来，以便在当前作用域内使用，而我们的方法则将一个简单的名称与当前包中的一个包变量关联起来，以便在当前作用域内使用。换句话说，our具有与my相同的作用域规则，但不一定创建变量。