先來(lái)看下our的用法。
require 5.006
當(dāng)版本號(hào)小于 5.006 的時(shí)候，會(huì)返回失敗，從而導(dǎo)致模塊加載失敗。
所以它的作用就是保證模塊調(diào)用環(huán)境的 Perl 版本。
our 和 my 一樣，都是對(duì)變量的聲明，
不過(guò) our 聲明的是包全局變量，
而 my 聲明的是詞法變量。
不過(guò)，經(jīng)過(guò) our 聲明的變量，它會(huì)變得像一個(gè)詞法變量一樣，
其實(shí)這也是 our 存在的目的：用來(lái)欺騙 strict pragma，使 strict 以為它是一個(gè)詞法變量，其實(shí)卻不是。
有一個(gè)簡(jiǎn)單的辦法可以理解 our：
1，你就把 our 聲明的變量和 my 聲明的當(dāng)成一樣。
2，記住 our 和 my 的區(qū)別：our 聲明的是一個(gè)包全局變量，因此在符號(hào)表中存儲(chǔ)（可以通過(guò)全限定在任何地方訪問(wèn)），而 my 聲明的是一個(gè)真正的詞法變量，只能在閉合塊中訪問(wèn)。
使用my的情況：
復(fù)制代碼 代碼如下:
my $var = 1;
{
my $var = 2;
print $var, "\n";
}
print $var, "\n";
輸出：
2
1
使用our的情況：
復(fù)制代碼 代碼如下:
our $var = 1;
{
our $var = 2;
print $var, "\n";
}
print $var, "\n";
輸出：
2
2
附：perl中our的用法
其實(shí)，our 的出現(xiàn)有它的歷史，
Perl 和別的語(yǔ)言不同，可以隨便聲明變量，
在 Perl 4 那個(gè)時(shí)代，根本就不需要 my 什么的，
隨便寫(xiě)個(gè)名字，就是變量了。
在 Perl 5 中仍然如此，除非你用 my 明確聲明為詞法變量，否則所有的變量都是（包）全局變量，而且可以不聲明直接使用。
但是，這樣有個(gè)壞處，那就是萬(wàn)一不小心寫(xiě)錯(cuò)名字了，或者解符號(hào)引用的時(shí)候，字符串運(yùn)算錯(cuò)了，都會(huì)造成很多麻煩（因?yàn)榘凑?Perl 5 語(yǔ)法，這些都是正確的，其結(jié)果就是產(chǎn)生一個(gè)新的變量，很顯然，這不是你想要的目的。）
所以，為了解決這些問(wèn)題，在 Perl 5 中就引入了 strict 和 warnings 兩個(gè) pragma，它們的作用，就是限制變量不聲明直接使用，
經(jīng)過(guò) strict 和 warnings 限制后，所有沒(méi)有聲明的直接使用的變量都會(huì)報(bào)錯(cuò)。但是 my 聲明的變量又是局部變量，local 又不能創(chuàng)造變量，
所以，我們就沒(méi)法使用全局變量了（注1），
因此就又引入了 our，our 的作用就是聲明一個(gè)全局變量，但是讓 strict 和 warnings 以為它是詞法變量，因此 our 聲明的變量也是詞法作用域的。但是實(shí)際上它是全局變量。
注1：
如果不使用 our，我們有兩種辦法可以創(chuàng)建全局變量：
1，用 no strict "vars" 臨時(shí)關(guān)掉 strict pragma，聲明完了再用 use strict "vars" 打開(kāi)。
2，用變量的全限定名稱(chēng)，如 $main::var 或者 $foo::bar 這樣子。
use，package，our 三者之間無(wú)任何關(guān)系。
use 是加載一個(gè) .pm 文件，
package 是切換當(dāng)前名字空間，
our 是在當(dāng)前名字空間中創(chuàng)建一個(gè)變量，如果該變量已經(jīng)存在，則 our 只起到一個(gè)聲明的作用。
你還是沒(méi)有明白 our 和 my 的區(qū)別。
our （或者什么修飾都沒(méi)有）聲明的是“包全局變量”，它的是“依附”在“包”上面的，它的存儲(chǔ)位置是“包符號(hào)表”，
my 聲明的是“詞法變量”，它是“依附”在“代碼塊”上的，它的存儲(chǔ)位置是“代碼塊”的“變量標(biāo)簽薄”，所以詞法變量不可以從代碼塊之外訪問(wèn)（除了傳遞引用）。
但是包全局變量就不同了，用全限定就可以訪問(wèn)。
