Perl中的特殊内置变量详细介绍

内置变量 $_：

先来看一个例子：
代码如下:
#!/usr/bin/perl -w
@array = qw(a b c d);
foreach (@array) {
 print $_," ";
}
例子的作用就是定义一个数组并把其中的元素打印出来，这里需要注意的是foreach循环部分，foreach循环的标准格式应该是：
代码如下:foreach $element (@array){
 ......
}
其中数组@array将其中的元素依次赋值给$element，但是在上面那个程序中，我并没有这样做，在程序中，我就使用到了perl中内置的一个特殊变量 $_
在程序第五行中 foreach (@array) 实际上就是等于 foreach $_ (@array)，在这里， $_是默认是输入/输出，因此，如果在程序中有类似的没有明确声明的变量位置的时候，就有可能能使用$_代替

内置变量 $$：

代码如下:perl -e "sleep(5);  print qq (The PID of process perl.exe is : $$)";  
这是一句命令行上使用的perl程序，作用就是打印出一段话：print qq(The PID of process perl.exe is : $$) ，在这里，存在着特殊变量$$ ；
$$是当前perl解析器的进程ID（即，PID），大家可以将在段程序写在命令行上，该程序会在perl解析器运行5秒后打印出perl解析器的进程ID，大家可以在程序运行期间通过查看进程列表来确定打印结果是否正确。

内置变量 $!：


接下来是一个用来返回错误信息（或是错误号）的特殊变量。
为了省事，不写程序了，还是来个命令行的吧
代码如下:perl -e "opendir FH,'c: one' or die qq (can't open:$!);";
这句话就是要打开C盘下的一个none目录（而实际上我的C盘中并没有此目录，之所以这样写的目的就是为了引起一个程序中的错误信息），如果没有打开的话，会执行后面的die qq(can't open:$!)
在这里，$!就指明了错误信息的内容，命令行会返回错误信息：
代码如下:can't open:No such file or directory at -e line 1.
$!在open或是opendir中用的比较多（无论是打开文件还是管道或是其他）。

来个例子，说一个有意思的特殊内置变量
代码如下:$text = "C:/test.txt";
{
 open FH,$text or die "can't open:$!";
 my $line = ;
 close FH;
 print $line;
}
print "#===========================# ";
{
 undef $/;
 open FH,$text or die "can't open:$!";
 my $line = ;
 close FH;
 print $line;
}
=================================
C盘下的test.txt的内容是：
111111111111111111111111111
222222222222222222222222222
333333333333333333333333333
=================================
好，程序的运行结果是：
111111111111111111111111111
#===========================#
111111111111111111111111111
222222222222222222222222222
333333333333333333333333333

程序就不多废话了，作用就是读文件，关键部分在“$line = ”，尖括号操作符（即，<>）作用是读取一行文件内容（相信大多数教程或是书上都是这么写的），但是，这里所说的一行，实际上是有一个标准的，那就是当perl在遇到了换行符后，边认为是一行，而换行符默认情况下是由于$/这个特殊变量定义的，是缺省值。