Perl中的特殊內建變數詳細介紹

內建變數 $_：

先來看乙個例子：

複製** **如下:

#!/usr/bin/perl -w

@array = qw(a b c d);

foreach (@array)

例子的作用就是定義乙個陣列並把其中的元素列印出來，這裡需要注意的是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），大家可以將在段程式寫在命令列上，該程式會在per解析器執行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 lwww.cppcns.comine 1.

$!在open或是opendir中用的比較多（無論是開啟檔案還是管道或是其他）。

來個例子，說乙個有意思的特殊內建變數

複製** **如下:

$text = "c:\test.txt";

print "#*************************==# ";

******************************===

c盤下的test.txt的內容是：

111111111111111111111111111

222222222222222222222222222

333333333333333333333333333

******************************===

好，程式的執行結果是：

111111111111111111111111111

#*************************==#

111111111111111111111111111

222222222222222222222222222

333333333333333333333333333

程式就不多廢話了，作用就是讀檔案，關鍵部分在「$line = 」，尖括號操作符（即，<>）作用是讀取一行檔案內容（相信大多數教程或是書上都是這麼寫的），但是，這裡所說的一行，實際上是有乙個標準的，那就是當perl在遇到了換行符後，邊認為是一行，sopypc而換行符預設情況下是由於$/這個特殊變數定義的，是預設值。

也就是說，perl 在每次使用<>操作符讀檔案的時候，會先從$/中獲得乙個叫做「分隔符」的東西，並以該分隔符為標記來讀取檔案，如果按預設的$/來說，這個分割符就是乙個換行符，所以，預設時，<>操作符才會每次讀取一行文字。

在給出的例子中，有這樣一句：undef $/ ，也就是將$/設定為未定義的值，這樣一來呢，$/就不再起作用了，因此，大家可以看到，第二次進行同樣的操作的時候， <>操作符就不再是唯讀一行而是將檔案內容全部讀出來了。

接下來看乙個會受到$/影響的內建變數，還是先說例項：

複製** **如下:

$text = "c:\test.txt";

open fh,$text or die "can't open:$!";

while ()

close fh;

先來看迴圈中的：print "line $. is:$_"

程式的作用是讀檔案，並且，將檔案逐行賦值給$_（因為只用了<>操作符而沒有指定內賦值變數，因此，預設就是賦值給了$_）；

但是這裡除了$_，還有乙個變數「$.」

我們來看一下結果：

複製** **如下:

line 1 is:111111111111111111111111111

line 2 is:222222222222222222222222222

line 3 is:333333333333333333333333333

可見，變數$.的作用是乙個類似計數器的東西，但是，為什麼剛開始我說$.會受到$/變數的影響呢？

將上面的例子稍做修改，再看一下：

複製** **如下:

$text = "c:\test.txt";

undef $/; # 注意，多加了這一行

open fh,$text or die "can't open:$!";

while ()

close fh;

第二行多加了一句undef $/; ，上面已經說過它的作用了，來看一下這段程式執行的結果：

複製** **如下:

line 1 is:111111111111111111111111111

222222222222222222222222222

333333333333333333333333333

本來應該是三行的文字，不但被一次性列印出來，而且還指明了「line 1」（看來程式認為這個文字只有一行），為什麼？

這是因為$.變數並不是乙個單純的行計數器，確切地說，可以說$.是乙個對$/計數器，我們再來看一段程式大概就會明白了：

複製** **如下:

$text = "c:\a.txt";

$/ = ";"; # 注意這裡，這裡我並將$/設定為未定義，而是給其賦值為分號

open fh,$text or die "can't open:$!";

while ()

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 " ",$.;

close fh;

print " ",$.;

這個程式要注意的是最後三行中的兩個print " ",$.;（乙個是在關閉檔案前，另外乙個則是在關閉檔案後）。

看一下執行結果：

複製** **如下:

line 1 is:111111111111111111111111111

line 2 is:222222222222222222222222222

line 3 is:33333333333333333333333333330

結果的前三行剛才就已經知道了，這不是我們關心的，我們應該關心的是最後兩行結果（即兩個print " ",$.;的結果）；

$.變數是具有記憶性的（從原理上來將，它是乙個包變數），因此，在關閉檔案前列印會發現，它的值是還沒有變化的（這時的值和最後一次讀完檔案的值均為3）；

而在關閉檔案後，該變數又被重新初始化為0了。

這個特性大家注意一下就可以了，因為其中的原理涉及到了perl的作用域和包的一些知識，不是很容易說清楚，所以就不說了，如果對包和作用域有了解的讀者對這部分即使我不講他們也應該能理解的。

內建變數：$^o：

再說最後乙個吧

說乙個用來簡單判斷作業系統型別的，看個例子：

複製** **如下:

c:>perl -e "print $^o;";

mswin32

注意，這裡這個特殊變數$^o 最後乙個字元是字母o，且大寫。

如果是在linux下的話，結果就不是mswin32了，而是linux ；

這是乙個判斷環境的變數，簡單實用。

本文標題: perl中的特殊內建變數詳細介紹

本文位址: /jiaoben/perl/108422.html

Perl中的特殊內建變數詳細介紹

Perl內建特殊變數

Perl內建特殊變數

perl的內建特殊變數

Perl中的特殊內建變數詳細介紹

Perl內建特殊變數

Perl內建特殊變數

perl的內建特殊變數

相關推薦