詳細介紹Perl中的特殊內置變量

2020-02-23 19:46:47

字體：大中小

來源：轉載

供稿：網友

本文是Perl中的特殊內置變量的詳細介紹，Perl語言有五種類型的變量，希望通過本文的研究，您能夠更好地理解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在遇到了換行符后，邊認為是一行，而換行符默認情況下是由于$/這個特殊變量定義的，是缺省值。

也就是說，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:111111111111111111111111111
line 2 is:222222222222222222222222222
line 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:111111111111111111111111111
222222222222222222222222222
333333333333333333333333333

本來應該是三行的文本，不但被一次性打印出來，而且還指明了“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:111111111111111111111111111
line 2 is:222222222222222222222222222
line 3 is:333333333333333333333333333
3
0

結果的前三行剛才就已經知道了，這不是我們關心的，我們應該關心的是最后兩行結果（即兩個print " ",$.;的結果）；
$.變量是具有記憶性的（從原理上來將，它是一個包變量），因此，在關閉文件前打印會發現，它的值是還沒有變化的（這時的值和最后一次讀完文件的值均為3）；
而在關閉文件后，該變量又被重新初始化為0了。
這個特性大家注意一下就可以了，因為其中的原理涉及到了perl的作用域和包的一些知識，不是很容易說清楚，所以就不說了，如果對包和作用域有了解的讀者對這部分即使我不講他們也應該能理解的。

內置變量：$^O：

再說最后一個吧

說一個用來簡單判斷操作系統類型的，看個例子：