Perl语言入门（第8版）

76

｜

第

4

章

子程序中的私有变量

既然每次调用子程序时

Perl

都会给我们新的

@_

，难道不能利用它构造私有变量吗？

答案当然是可以。

默认情况下

Perl

里的所有变量都是全局变量，也就是说，在程序里的任何地方都可

以访问它们。但你随时可以借助

my

操作符来创建私有变量，我们称之为词法变量

（

lexical variable

）：

sub max {

my($m, $n); #

该语句块中的新私有变量

($m, $n) = @_; #

将参数赋值给变量

if ($m > $n) { $m } else { $n }

}

这些变量属于封闭语句块中的私有变量（或者也可以称作有限作用域（

scoped

）变

量），语句块之外任意地方的

$m

或

$n

都完全不受这两个私有变量的影响。反过来

也是，外部变量同样无法影响内部的私有变量，存心也好意外也罢，两不相犯。所

以，我们可以把这个子程序放进世界上任何一个

Perl

程序里，不用担心它和哪个程

序中可能存在的同名

$m

和

$n

变量冲突。当然，如果那个程序中碰巧也有个子程序

叫

&max

，那就乱了。

另外值得一提的是，在前一个例子的

if

语句块中，作为返回值的表达式后面没有分

号。分号实际上是一个语句分隔符，而不是语句结束符。虽然

Perl

允许你省略语句块

中最后一个分号，但实际上通常只有像前面的例子那样，代码简单到整个语句块内只

有一行时，才可以省略分号。

前一个例子中的子程序还可以进一步简化。你是否注意到列表

($m, $n)