Perl语言入门

子程序

｜

79

用

my

声明的词法变量

词法变量可用在任何语句块内，并不仅限于子程序的语句块。例如，在

if

、

while

或

foreach

的语句块内都可使用词法变量：

foreach (1..10) {

my($square) = $_ * $_; #

在此循环内的私有变量

print "$_ squared is $square.\n";

}

上例中，变量

$square

对其所属语句块，也就是

foreach

循环的语句块来说是私有

的。如果变量的定义并未出现在任何语句块里，则该变量对于整个程序源文件来说是

私有的。

目前为止，你的程序还用不到两个以上的程序源文件，所以这还不成问题。这里的重

点在于，词法变量的作用域

scope

受限于定义它的最内层语句块内，或文件内。只有

语句块内的代码才能使用这个

$square

变量。

这为程序维护提供了便利：如果

$square

的值出错了，那就可以在有限的代码范围内

找原因。有经验的程序员通过实践，往往倾向于将变量作用域局限在一页或少数几行

代码内，以加快开发和测试周期。

一个程序文件也是一个独立的作用域，所以其中的词法变量到了其他文件是无法访问

的。这里涉及可重用库和模块，我们暂时不讨论，可参考《

Intermediate Perl

》一书。

还需要注意的是，

my

操作符并不会更改变量赋值时的上下文：

my($num) = @_; #

列表上下文

,

和

($num) = @_;

相同

my $num = @_; #

标量上下文

,

和

$num ...