Perl中的變數作用範圍 local, my, our與全域性變數

引用自： xxx

 

Perl中的變數作用範圍 local, my, our與全域性變數

很古老很古老以前......嗯，不用老到白堊紀，那時候的Perl是自由射擊的。沒有什麼定義變數的說法，所有的變數都是全域性變數，也不需要任何 定義就可以使用。後來就出現了local, 再後來出現了use strict 'vars'和my, 再後來又有了our......所以今天的Perl大陸就有了崇山巨嶺，一些變數就被限制在盆地裡，老死於桃花源中也。

因為要使用一個跨模組全域性變數，研究了一下Perl的變數作用範圍，寫一點筆記吧。

1. 首先說our, 這個最晚出現但其實質卻最早出現的變數修飾符。眾所周知，在Perl不使用use strict 'vars'的時候，你可以任意使用變數而不需要實現定義：

$szStateMachineStatus = undef;

這行程式碼在使用了use strict 'vars'以後是編譯不能透過的。如果這個變數是一個全域性變數，那麼可以定義

our $szStateMachineStatus = undef;

這個效果和在不使用use strict 'vars'時一樣。"一樣"意味著什麼呢？

our $szStateMachineStatus = 'init';

{

$szStateMachineStatus = 'inited';

print $szStateMachineStatus;

}

print $szStateMachineStatus;

列印的結果是兩個'inited'。順便說，用our定義過的變數，可以在任何地方被再次用our定義，仍然和第一個our定義的變數是同一個。

2. my

慢慢地有人覺得Perl的"自由射擊式"變數定義法則不行，最突出的就是一些常會打錯字(typo)的人。假如你定義了一個變數叫$ szStateMachineStatus，可是在某個地方寫成了$szStatMachineStatus，少了一個e。因為不use strict啊，所以沒有任何警告，可以這樣用。結果就是出了錯你就慢慢debug去吧，很浪費時間，不符合Perl的懶惰文化。

然後就有了use strict 'vars'和my。有了use strict 'vars'以後，所有的變數在使用前必須先被定義。my的法則很簡單，只在當前作用域起作用。比如說定義了

my $szStateMachineStatus;

那麼如果是在檔案頭定義的，作用範圍就到檔案尾，在子函式里也能用。如果是在子函式里定義的，那麼作用範圍就只到函式結束。試看以下程式碼

foreach my $szName (@arrName){

print $szName;

}

在這個迴圈裡Perl每次都建立一個新的$szName變數。換句話說，"my"是屬於"見到my就新建"的變數。

3. local

其實這個定義都可以取消了。它是在my還沒出現之前的一個權宜方案。比如說一個變數$i被定義成了全域性變數，可是你又想暫時使用一個也叫$i的臨時變數。

no strict 'vars';

$i = 9999;

{

local $i = 7777;

print "$i/n";

}

print "$i/n";

結果是7777, 9999。在出了local的作用域以後$i又回到了原來的值。在出現了my以後，沒有任何理由需要使用local了，請忘記掉它吧。

4. 最後一個話題，全域性變數

當你只有一個pl檔案時，很簡單，把你的全域性變數在檔案頭部定義成our就行。可能你會看到有些書上說要使用use vars qw( $szVersion $szToolName); 這樣的方式來把 $szVersion和$szToolName定義成全域性變數。注意了，use vars的用法是在my出現後，our出現之前的一個歷史的盲腸。our的語法更自然，更易於理解，為什麼不用our呢？ －－另外，在檔案頭把變數定義成my, 也是全域性可用的，但是冒了風險，假如在某個函式里用my再定義一次，原來的值可就消失了。用our就不存在多次定義會導致丟值的狀況。

當你在寫一個有一個pl檔案，N個pm檔案的系統時該如何呢？事實上Perl裡的變數和函式名都有一個系統級的名字。比如說你在某pm檔案的頭上定義了包名和全域性變數

package bagua;

our $east = 'wood';

那麼在任何地方，任何pm和pl檔案裡都可以使用$bagua::east來訪問這個變數。$bagua::east就被稱為系統級名字。這也能回答一個問題，為什麼不同的perl包裡面定義的同名全域性變數間不會衝突，因為它們都被限制在包的名字空間下面了。

如果你是在pl裡定義全域性變數，而且該檔案沒有定義package名字怎麼辦？Perl會生成一個預設的package，名字叫"main"。所以如果你的pl檔案是這樣

our $szVersion = '1.0.1";

那麼在其它檔案裡就可以用$main::szVersion來訪問，並不需要你定義package main.

最後，說一個邪門招式。你可以試一下定義任意一個含有::的變數

our $gColor::Blue = '0x0000FF';

這個變數就在任何地方可用，哪怕你從來沒有定義過gColor這個package。這個是Perl的靈活性的體現，它看到這個就自動生成了gColor這個名字空間。當然，我不鼓勵這種無厘頭的用法。