加载中...

特殊变量


$_

$_ 是默认变量。它常用于内置函数的默认参数。

while ( <> ) {  # Read a line into $_
    print lc;   # print lc($_)
}

这与下列代码相同:

while ( $it = <> ) {
    print lc($it);
}

$0

$0 包含执行程序的名称,正如给 Shell 的一样。如果程序直接通过 Perl 解释器执行,那么 $0 包含文件名称。

$ cat file.pl
#!/usr/bin/perl
print $0, "\n";
$ ./file.pl
file.pl
$ perl file.pl
file.pl
$ perl ./file.pl
./file.pl
$ cat file.pl | perl
-

$0 是 C 程序员期望从 argv 数组找到的第一个元素。

@ARGV

@ARGV 包含给程序的参数,顺序与 Shell 中一样。

$ perl -e 'print join( ", ", @ARGV), "\n"' 1 2 3
1, 2, 3
$ perl -e 'print join( ", ", @ARGV), "\n"' 1 "2 3" 4
1, 2 3, 4

C 程序员可能会搞混,因为 $ARGV[0] 是他们的 argv[1]。不要犯这样的错。

@INC

@INC 包含 Perl 搜索模块的所有路径。

Perl 程序员通过后置或前置到 @INC 添加库路径。眼下,使用 use lib 代替。 下面的代码等效:

BEGIN { unshift @INC, "local/lib" };

use lib "local/lib";

%ENV

%ENV 包含当前环境的拷贝。该环境由 Perl 创建的子 Shell 所给予。

这对 taint 模式很重要,%ENV 具有能修改 Shell 行为的内容。正因如此, perlsec 推荐在 taint 模式执行命令时使用下列代码:

$ENV{'PATH'} = '/bin:/usr/bin'; # change to your real path
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

%SIG

Perl 具有丰富的信号处理能力。使用 %SIG 变量,你能够在当信号发送给运行 的进程时执行任意子例程。

如果你有耗时进程,这将特别有用。通过发送信号(通常是 SIGHUP)来重载配置 ,你不必启动和停止进程。

通过分别赋值 $SIG{__DIE__} 和 $SIG{__WARN__},你也可以更改 die 和 warn 的行为。

<>

钻石操作符 <> 用于程序期望的输入时,而不用关心它如何到达。

如果程序收到任何参数,它们将分成文件名及其内容发送给 <>。否则,使用标准 输入(STDIN)。

<> 对于过滤程序特别有用。

<DATA>DATA

如果程序包含自身为一行的魔法标记 __DATA__,那么它下面的任何东东均可通过 魔法<DATA> 句柄为程序所用。

如果你想在程序中包含数据,但又想与主程序逻辑分开,那么这将特别有用。

$!

当使用 system 执行命令时,如果命令返回非真状态,那么 $! 将为真。否则, 可能未被执行。$! 将包含出错消息。

$@

如果使用 eval,那么 $@ 将包含 eval 所抛出的语法错误。


还没有评论.