perl特殊变量.doc

perlvar - Perl 预定义变量
DESCRIPTION
预定义名称
后面列出的名称对 Perl 来说具有特殊含义。
大多数标点名称都有合理的助记方法或类似于在 shell 中的用法。
然而,如果你就是想用长变量名,那只要在程序开头加上
use English;
即可。这样会为所有短名称在当前包中创建长名称别名。
其中一些甚至还有中间名,一般是从 awk 借用过来的。一般来说,如果不需要
$PREMATCH,$MATCH 和$POSTMATCH,那最好使用
use English '-no_match_vars';
调用方式,因为它能避免在用正则表达式时出现效率降低的情况。见 English。
依赖当前被选中文件句柄的变量可以通过在 IO::Handle
对象上调用合适的对象方法来设置,
但是这要比使用普通的内建变量效率低一些。(下面的概括行里包含的单词 HANDLE
即指 IO::Handle 对象。) 首先你要声明
use IO::Handle;
然后就可以用
method HANDLE EXPR
或者更安全的形式,
HANDLE->method(EXPR)
每个方法都返回 IO::Handle 属性的旧值,同时接受一个可选的 EXPR。
如果提供了该参数,则其指定了所涉及 IO::Handle
属性的新值。如果不提供该参数, 大多数方法不改变当前值--除了
autoflush(),它会假定给定了参数 1,稍有不同。
载入 IO::Handle
类是一项代价高昂的操作,因此你该知道如何使用常规的内建变量。
这些变量中的少数几个是“只读的”。这意味着如果直接或者通过引用间接向该变
量赋值, 就会引起一个运行时异常。
在修改本文档中描述的大部分特殊变量的缺省值时都需要特别小心。多数情况下应
该
在修改之前局部化这些变量,如果不这么做,就可能影响依赖于你所修改特殊变量
缺省值的其他模块。下面是一次性读入整个文件的一种正确方法:
open my $fh, "foo" or die $!;
local $/; # enable localized slurp mode
my $content = ;
close $fh;
但下面的代码就很糟糕:
open my $fh, "foo" or die $!;
undef $/; # enable slurp mode
my $content = ;
close $fh;
因为一些模块可能想以默认的“行模式”从文件中读取数据,而一旦我们刚才
列出的代码得到执行,在同一个 Perl 解释器内运行的所有其他代码读到的$/
全局值都会被改变。
通常,在局部化一个变量时总是想让影响限制在尽可能小的范围内,因此
应该自己建立一个"{}" 块,除非你已经处于某些小的"{}" 块内。例如:
my $content = '';
open my $fh, "foo" or die $!;
{
local $/;
$content = ;
}
close $fh;
下面是代码失控的一个例子:
for (1..5){
nasty_break();
print "$_ ";
}
sub nasty_break {
$_ = 5;
# do something with $_
}
你可能希望上述代码打印出:
1 2 3 4 5
但实际上得到的却是:
5 5 5 5 5
为什么?因为 nasty_break() 修改了$_ 而没有事先将其局部化。
改正方法是增加 local():
local $_ = 5;
虽然在这样一个短小的例子里很容易发现问题,但在更复杂的代码中,如果不
对特殊变量进行局部化更改就是在自找麻烦。
下列内容按照先标量变量、后数组、最后散列的顺序排列。
$ARG
$_ 默认的输入和模式搜索空间。下面的几对代码都是等同的:
while () {...} # equivalent only in while!
while (defined($_ = )) {...}
/^Subject:/
$_ =~ /^Subject:/
tr/a-z/A-Z/
$_ =~ tr/a-z/A-Z/
chomp
chomp($_)
以下是几处即使没有写明 Perl 也会假定使用$_ 的地方:
* 各种单目函数,包括像 ord() 和 int() 这样的函数以及除"-t"
以外所有的文件测试操作("-f","-d"),"-t" 默认操作 STDIN。
* 各种列表函数,例如 print() 和 unlink()。
* 没有使用"=~" 运算符