內(nèi)置變量 $_：
先來(lái)看一個(gè)例子：
復(fù)制代碼 代碼如下:
#!/usr/bin/perl -w
@array = qw(a b c d);
foreach (@array) {
print $_," ";
}
例子的作用就是定義一個(gè)數(shù)組并把其中的元素打印出來(lái)，這里需要注意的是foreach循環(huán)部分，foreach循環(huán)的標(biāo)準(zhǔn)格式應(yīng)該是：
復(fù)制代碼 代碼如下:
foreach $element (@array){
......
}
其中數(shù)組@array將其中的元素依次賦值給$element，但是在上面那個(gè)程序中，我并沒(méi)有這樣做，在程序中，我就使用到了perl中內(nèi)置的一個(gè)特殊變量 $_
在程序第五行中 foreach (@array) 實(shí)際上就是等于 foreach $_ (@array)，在這里， $_是默認(rèn)是輸入/輸出，因此，如果在程序中有類(lèi)似的沒(méi)有明確聲明的變量位置的時(shí)候，就有可能能使用$_代替
內(nèi)置變量 $$：
復(fù)制代碼 代碼如下:
perl -e "sleep(5); print qq (The PID of process perl.exe is : $$)";
這是一句命令行上使用的perl程序，作用就是打印出一段話(huà)：print qq(The PID of process perl.exe is : $$) ，在這里，存在著特殊變量$$ ；
$$是當(dāng)前perl解析器的進(jìn)程ID（即，PID），大家可以將在段程序?qū)懺诿钚猩?，該程序?huì)在perl解析器運(yùn)行5秒后打印出perl解析器的進(jìn)程ID，大家可以在程序運(yùn)行期間通過(guò)查看進(jìn)程列表來(lái)確定打印結(jié)果是否正確。
內(nèi)置變量 $!：
接下來(lái)是一個(gè)用來(lái)返回錯(cuò)誤信息（或是錯(cuò)誤號(hào)）的特殊變量。
為了省事，不寫(xiě)程序了，還是來(lái)個(gè)命令行的吧
復(fù)制代碼 代碼如下:
perl -e "opendir FH,'c: one' or die qq (can't open:$!);";
這句話(huà)就是要打開(kāi)C盤(pán)下的一個(gè)none目錄（而實(shí)際上我的C盤(pán)中并沒(méi)有此目錄，之所以這樣寫(xiě)的目的就是為了引起一個(gè)程序中的錯(cuò)誤信息），如果沒(méi)有打開(kāi)的話(huà)，會(huì)執(zhí)行后面的die qq(can't open:$!)
在這里，$!就指明了錯(cuò)誤信息的內(nèi)容，命令行會(huì)返回錯(cuò)誤信息：
復(fù)制代碼 代碼如下:
can't open:No such file or directory at -e line 1.
$!在open或是opendir中用的比較多（無(wú)論是打開(kāi)文件還是管道或是其他）。
來(lái)個(gè)例子，說(shuō)一個(gè)有意思的特殊內(nèi)置變量
復(fù)制代碼 代碼如下:
$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盤(pán)下的test.txt的內(nèi)容是：
111111111111111111111111111
222222222222222222222222222
333333333333333333333333333
=================================
好，程序的運(yùn)行結(jié)果是：
111111111111111111111111111
#===========================#
111111111111111111111111111
222222222222222222222222222
333333333333333333333333333
程序就不多廢話(huà)了，作用就是讀文件，關(guān)鍵部分在“$line = ”，尖括號(hào)操作符（即，>）作用是讀取一行文件內(nèi)容（相信大多數(shù)教程或是書(shū)上都是這么寫(xiě)的），但是，這里所說(shuō)的一行，實(shí)際上是有一個(gè)標(biāo)準(zhǔn)的，那就是當(dāng)perl在遇到了換行符后，邊認(rèn)為是一行，而換行符默認(rèn)情況下是由于$/這個(gè)特殊變量定義的，是缺省值。
也就是說(shuō)，perl 在每次使用>操作符讀文件的時(shí)候，會(huì)先從$/中獲得一個(gè)叫做“分隔符”的東西，并以該分隔符為標(biāo)記來(lái)讀取文件，如果按默認(rèn)的$/來(lái)說(shuō)，這個(gè)分割符就是一個(gè)換行符，所以，默認(rèn)時(shí)，>操作符才會(huì)每次讀取一行文本。
在給出的例子中，有這樣一句 ：undef $/ ，也就是將$/設(shè)置為未定義的值，這樣一來(lái)呢，$/就不再起作用了，因此，大家可以看到，第二次進(jìn)行同樣的操作的時(shí)候， >操作符就不再是只讀一行而是將文件內(nèi)容全部讀出來(lái)了。
接下來(lái)看一個(gè)會(huì)受到$/影響的內(nèi)置變量，還是先說(shuō)實(shí)例：
復(fù)制代碼 代碼如下:
$text = "C:\test.txt";
open FH,$text or die "can't open:$!";
while () {
print "line $. is:$_";
}
close FH;
先來(lái)看循環(huán)中的：print "line $. is:$_"
程序的作用是讀文件，并且，將文件逐行賦值給$_（因?yàn)橹挥昧?gt;操作符而沒(méi)有指定內(nèi)賦值變量，因此，默認(rèn)就是賦值給了$_）；
但是這里除了$_，還有一個(gè)變量“$.”
我們來(lái)看一下結(jié)果：
復(fù)制代碼 代碼如下:
line 1 is:111111111111111111111111111
line 2 is:222222222222222222222222222
line 3 is:333333333333333333333333333
可見(jiàn)，變量$.的作用是一個(gè)類(lèi)似計(jì)數(shù)器的東西，但是，為什么剛開(kāi)始我說(shuō)$.會(huì)受到$/變量的影響呢 ？
將上面的例子稍做修改，再看一下：
復(fù)制代碼 代碼如下:
$text = "C:\test.txt";
undef $/; # 注意，多加了這一行
open FH,$text or die "can't open:$!";
while () {
print "line $. is:$_";
}
close FH;
第二行多加了一句undef $/; ，上面已經(jīng)說(shuō)過(guò)它的作用了，來(lái)看一下這段程序運(yùn)行的結(jié)果：
復(fù)制代碼 代碼如下:
line 1 is:111111111111111111111111111
222222222222222222222222222
333333333333333333333333333
本來(lái)應(yīng)該是三行的文本，不但被一次性打印出來(lái)，而且還指明了“l(fā)ine 1”（看來(lái)程序認(rèn)為這個(gè)文本只有一行），為什么 ？
這是因?yàn)?.變量并不是一個(gè)單純的行計(jì)數(shù)器，確切地說(shuō)，可以說(shuō)$.是一個(gè)對(duì)$/計(jì)數(shù)器，我們?cè)賮?lái)看一段程序大概就會(huì)明白了：
復(fù)制代碼 代碼如下:
$text = "C:\a.txt";
$/ = ";"; # 注意這里，這里我并將$/設(shè)置為未定義，而是給其賦值為分號(hào)
open FH,$text or die "can't open:$!";
while () {
print "line $. is:$_ ";
}
close FH;
再看一下C盤(pán)下的a.txt的內(nèi)容：
復(fù)制代碼 代碼如下:
ddd;bbb;ccc;fff;eee;
就這么簡(jiǎn)單了。
看一下運(yùn)行結(jié)果：
復(fù)制代碼 代碼如下:
line 1 is:ddd;
line 2 is:bbb;
line 3 is:ccc;
line 4 is:fff;
line 5 is:eee;
看過(guò)這段程序應(yīng)該就明白了吧。
好，$.已經(jīng)講得差不多了，接下來(lái)再說(shuō)一個(gè)它的特性，仍然是看程序說(shuō)話(huà)：
復(fù)制代碼 代碼如下:
$text = "C:\test.txt";
open FH,$text or die "can't open:$!";
while () {
print "line $. is:$_ ";
}
print " ",$.;
close FH;
print " ",$.;
這個(gè)程序要注意的是最后三行中的兩個(gè)print " ",$.;（一個(gè)是在關(guān)閉文件前，另外一個(gè)則是在關(guān)閉文件后）。
看一下執(zhí)行結(jié)果：
復(fù)制代碼 代碼如下:
line 1 is:111111111111111111111111111
line 2 is:222222222222222222222222222
line 3 is:333333333333333333333333333
3
0
結(jié)果的前三行剛才就已經(jīng)知道了，這不是我們關(guān)心的，我們應(yīng)該關(guān)心的是最后兩行結(jié)果（即兩個(gè)print " ",$.;的結(jié)果）；
$.變量是具有記憶性的（從原理上來(lái)將，它是一個(gè)包變量），因此，在關(guān)閉文件前打印會(huì)發(fā)現(xiàn)，它的值是還沒(méi)有變化的（這時(shí)的值和最后一次讀完文件的值均為3）；
而在關(guān)閉文件后，該變量又被重新初始化為0了。
這個(gè)特性大家注意一下就可以了，因?yàn)槠渲械脑砩婕暗搅藀erl的作用域和包的一些知識(shí)，不是很容易說(shuō)清楚，所以就不說(shuō)了，如果對(duì)包和作用域有了解的讀者對(duì)這部分即使我不講他們也應(yīng)該能理解的。
內(nèi)置變量：$^O：
再說(shuō)最后一個(gè)吧
說(shuō)一個(gè)用來(lái)簡(jiǎn)單判斷操作系統(tǒng)類(lèi)型的，看個(gè)例子：
復(fù)制代碼 代碼如下:
C:>perl -e "print $^O;";
MSWin32
注意，這里這個(gè)特殊變量$^O 最后一個(gè)字符是字母O，且大寫(xiě)。
如果是在linux下的話(huà)，結(jié)果就不是MSWin32了，而是Linux ；
這是一個(gè)判斷環(huán)境的變量，簡(jiǎn)單實(shí)用。
