內(nèi)置變量 $_：

先來看一個例子：
代碼如下:
#!/usr/bin/perl -w
@array = qw(a b c d);
foreach (@array) {
 print $_," ";
}
例子的作用就是定義一個數(shù)組并把其中的元素打印出來，這里需要注意的是foreach循環(huán)部分，foreach循環(huán)的標(biāo)準(zhǔn)格式應(yīng)該是：
代碼如下:foreach $element (@array){
 ......
}
其中數(shù)組@array將其中的元素依次賦值給$element，但是在上面那個程序中，我并沒有這樣做，在程序中，我就使用到了perl中內(nèi)置的一個特殊變量 $_
在程序第五行中 foreach (@array) 實際上就是等于 foreach $_ (@array)，在這里， $_是默認(rèn)是輸入/輸出，因此，如果在程序中有類似的沒有明確聲明的變量位置的時候，就有可能能使用$_代替

內(nèi)置變量 $$：

代碼如下:perl -e "sleep(5);  print qq (The PID of process perl.exe is : $$)";  
這是一句命令行上使用的perl程序，作用就是打印出一段話：print qq(The PID of process perl.exe is : $$) ，在這里，存在著特殊變量$$ ；
$$是當(dāng)前perl解析器的進程ID（即，PID），大家可以將在段程序?qū)懺诿钚猩希摮绦驎趐erl解析器運行5秒后打印出perl解析器的進程ID，大家可以在程序運行期間通過查看進程列表來確定打印結(jié)果是否正確。

內(nèi)置變量 $!：


接下來是一個用來返回錯誤信息（或是錯誤號）的特殊變量。
為了省事，不寫程序了，還是來個命令行的吧
代碼如下:perl -e "opendir FH,'c: one' or die qq (can't open:$!);";
這句話就是要打開C盤下的一個none目錄（而實際上我的C盤中并沒有此目錄，之所以這樣寫的目的就是為了引起一個程序中的錯誤信息），如果沒有打開的話，會執(zhí)行后面的die qq(can't open:$!)
在這里，$!就指明了錯誤信息的內(nèi)容，命令行會返回錯誤信息：
代碼如下:can't open:No such file or directory at -e line 1.
$!在open或是opendir中用的比較多（無論是打開文件還是管道或是其他）。

來個例子，說一個有意思的特殊內(nèi)置變量
代碼如下:$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的內(nèi)容是：
111111111111111111111111111
222222222222222222222222222
333333333333333333333333333
=================================
好，程序的運行結(jié)果是：
111111111111111111111111111
#===========================#
111111111111111111111111111
222222222222222222222222222
333333333333333333333333333

程序就不多廢話了，作用就是讀文件，關(guān)鍵部分在“$line = ”，尖括號操作符（即，<>）作用是讀取一行文件內(nèi)容（相信大多數(shù)教程或是書上都是這么寫的），但是，這里所說的一行，實際上是有一個標(biāo)準(zhǔn)的，那就是當(dāng)perl在遇到了換行符后，邊認(rèn)為是一行，而換行符默認(rèn)情況下是由于$/這個特殊變量定義的，是缺省值。