Perl中的特殊內建變數詳解

標籤：style   blog   color   os   使用   ar   for   檔案   sp   

#!/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的內容是：111111111111111111111111111222222222222222222222222222333333333333333333333333333=================================好，程式的運行結果是：111111111111111111111111111#===========================#111111111111111111111111111222222222222222222222222222333333333333333333333333333程式就不多廢話了，作用就是讀檔案，關鍵區段在“$line = ”，角括弧操作符（即，<>）作用是讀取一行檔案內容（相信大多數教程或是書上都是這麼寫的），但是，這裡所說的一行，實際上是有一個標準的，那就是當perl在遇到了分行符號後，邊認為是一行，而分行符號預設情況下是由於$/這個特殊變數定義的，是預設值。也就是說，perl 在每次使用<>操作符讀檔案的時候，會先從$/中獲得一個叫做“分隔字元”的東西，並以該分隔字元為標記來讀取檔案，如果按預設的$/來說，這個分割符就是一個分行符號，所以，預設時，<>操作符才會每次讀取一行文本。在給出的例子中，有這樣一句 ：undef $/ ，也就是將$/設定為未定義的值，這樣一來呢，$/就不再起作用了，因此，大家可以看到，第二次進行同樣的操作的時候， <>操作符就不再是唯讀一行而是將檔案內容全部讀出來了。　　接下來看一個會受到$/影響的內建變數，還是先說執行個體：$text = "C:\test.txt";open FH,$text or die "can‘t open:$!";while () {    print "line $. is:$_";}close FH;先來看迴圈中的：print "line $. is:$_"程式的作用是讀檔案，並且，將檔案逐行賦值給$_（因為只用了<>操作符而沒有指定內賦值變數，因此，預設就是賦值給了$_）；但是這裡除了$_，還有一個變數“$.”我們來看一下結果：line 1 is:111111111111111111111111111line 2 is:222222222222222222222222222line 3 is:333333333333333333333333333可見，變數$.的作用是一個類似計數器的東西，但是，為什麼剛開始我說$.會受到$/變數的影響呢 ？將上面的例子稍做修改，再看一下：$text = "C:\test.txt";undef $/; # 注意，多加了這一行open FH,$text or die "can‘t open:$!";while () {    print "line $. is:$_";}close FH;　　第二行多加了一句undef $/; ，上面已經說過它的作用了，來看一下這段程式啟動並執行結果：line 1 is:111111111111111111111111111222222222222222222222222222333333333333333333333333333本來應該是三行的文本，不但被一次性列印出來，而且還指明了“line 1”（看來程式認為這個文本只有一行），為什麼 ？這是因為$.變數並不是一個單純的行計數器，確切地說，可以說$.是一個對$/計數器，我們再來看一段程式大概就會明白了：$text = "C:\a.txt";$/ = ";"; # 注意這裡，這裡我並將$/設定為未定義，而是給其賦值為分號open FH,$text or die "can‘t open:$!";while () {    print "line $. is:$_ ";}close FH;　　再看一下C盤下的a.txt的內容：ddd;bbb;ccc;fff;eee;就這麼簡單了。看一下運行結果：line 1 is:ddd;line 2 is:bbb;line 3 is:ccc;line 4 is:fff;line 5 is:eee;看過這段程式應該就明白了吧。好，$.已經講得差不多了，接下來再說一個它的特性，仍然是看程式說話：$text = "C:\test.txt";open FH,$text or die "can‘t open:$!";while () {    print "line $. is:$_ ";}print " ",$.;close FH;print " ",$.;這個程式要注意的是最後三行中的兩個print " ",$.;（一個是在關閉檔案前，另外一個則是在關閉檔案後）。看一下執行結果：line 1 is:111111111111111111111111111line 2 is:222222222222222222222222222line 3 is:33333333333333333333333333330結果的前三行剛才就已經知道了，這不是我們關心的，我們應該關心的是最後兩行結果（即兩個print " ",$.;的結果）；$.變數是具有記憶性的（從原理上來將，它是一個包變數），因此，在關閉檔案前列印會發現，它的值是還沒有變化的（這時的值和最後一次讀完檔案的值均為3）；而在關閉檔案後，該變數又被重新初始化為0了。這個特性大家注意一下就可以了，因為其中的原理涉及到了perl的範圍和包的一些知識，不是很容易說清楚，所以就不說了，如果對包和範圍有瞭解的讀者對這部分即使我不講他們也應該能理解的。　　再說最後一個吧說一個用來簡單判斷作業系統類型的，看個例子：C:>perl -e "print $^O;";MSWin32注意，這裡這個特殊變數$^O 最後一個字元是字母O，且大寫。如果是在linux下的話，結果就不是MSWin32了，而是Linux ；這是一個判斷環境的變數，簡單實用。

 

Perl中的特殊內建變數詳解