perl中our的用法

happig1

今天心血來潮看了一下ActivePerl下的Exporter.pm下的代碼,發現里面有:
require 5.006;

# Be lean.
#use strict;
#no strict 'refs';

our $Debug = 0;
our $ExportLevel = 0;
our $Verbose ||= 0;
our $VERSION = '5.58';
our (%Cache);
我不知道這個our是什么意思,請知道的來指點迷津
還有就是那個require 5.006,這個有什么說法嗎?
謝謝.

flw

require 5.006
當版本號小于 5.006 的時候，會返回失敗，從而導致模塊加載失敗。
所以它的作用就是保證模塊調用環境的 Perl 版本。

our 和 my 一樣，都是對變量的聲明，
不過 our 聲明的是包全局變量，
而 my 聲明的是詞法變量。

不過，經過 our 聲明的變量，它會變得像一個詞法變量一樣，
其實這也是 our 存在的目的：用來欺騙 strict pragma，使 strict 以為它是一個詞法變量，其實卻不是。

有一個簡單的辦法可以理解 our：
1，你就把 our 聲明的變量和 my 聲明的當成一樣。
2，記住 our 和 my 的區別：our 聲明的是一個包全局變量，因此在符號表中存儲（可以通過全限定在任何地方訪問），而 my 聲明的是一個真正的詞法變量，只能在閉合塊中訪問。

flw

my 和 our 的區別：

1. D:\MoChou>cat ttt.pl
   
2. use strict;
   
3. 
   
4. my $var;
   
5. $var = 1;
   
6. {
   
7.     my $var;
   
8.     $var = 2;
   
9.     print $var, "\n";
   
10. }
    
11. print $var, "\n";
    
12. 
    
13. D:\MoChou>ttt
    
14. 2
    
15. 1
    
16. 
    
17. D:\MoChou>

復制代碼

1. D:\MoChou>cat ttt.pl
   
2. use strict;
   
3. 
   
4. our $var;
   
5. $var = 1;
   
6. {
   
7.     our $var;
   
8.     $var = 2;
   
9.     print $var, "\n";
   
10. }
    
11. print $var, "\n";
    
12. 
    
13. D:\MoChou>ttt
    
14. 2
    
15. 2
    
16. 
    
17. D:\MoChou>

復制代碼

[ 本帖最后由 flw 于 2006-6-17 11:39 編輯 ]

flw

很顯然，兩處 my 聲明的雖然是同一個名字“$var”，但是他們是兩個變量。
而 our 卻是同一個變量。

flw

再舉一個例子，更加明顯：

1. D:\MoChou>cat ttt.pl
   
2. use strict;
   
3. 
   
4. {
   
5.     my $var;
   
6.     $var = 2;
   
7.     print $var, "\n";
   
8. }
   
9. 
   
10. if ( defined $main::var ){
    
11.     print '$main::var defined! value = ', "$main::var.\n";
    
12. }
    
13. else{
    
14.     print '$main::var not defined!', "\n";
    
15. }
    
16. 
    
17. D:\MoChou>ttt
    
18. 2
    
19. $main::var not defined!
    
20. 
    
21. D:\MoChou>

復制代碼

1. D:\MoChou>cat ttt.pl
   
2. use strict;
   
3. 
   
4. {
   
5.     our $var;
   
6.     $var = 2;
   
7.     print $var, "\n";
   
8. }
   
9. 
   
10. if ( defined $main::var ){
    
11.     print '$main::var defined! value = ', "$main::var.\n";
    
12. }
    
13. else{
    
14.     print '$main::var not defined!', "\n";
    
15. }
    
16. 
    
17. D:\MoChou>ttt
    
18. 2
    
19. $main::var defined! value = 2.
    
20. 
    
21. D:\MoChou>

復制代碼

[ 本帖最后由 flw 于 2006-6-17 11:39 編輯 ]

flw

其實，our 的出現有它的歷史，
Perl 和別的語言不同，可以隨便聲明變量，
在 Perl 4 那個時代，根本就不需要 my 什么的，
隨便寫個名字，就是變量了。
在 Perl 5 中仍然如此，除非你用 my 明確聲明為詞法變量，否則所有的變量都是（包）全局變量，而且可以不聲明直接使用。
但是，這樣有個壞處，那就是萬一不小心寫錯名字了，或者解符號引用的時候，字符串運算錯了，都會造成很多麻煩（因為按照 Perl 5 語法，這些都是正確的，其結果就是產生一個新的變量，很顯然，這不是你想要的目的。）

所以，為了解決這些問題，在 Perl 5 中就引入了 strict 和 warnings 兩個 pragma，它們的作用，就是限制變量不聲明直接使用，
經過 strict 和 warnings 限制后，所有沒有聲明的直接使用的變量都會報錯。但是 my 聲明的變量又是局部變量，local 又不能創造變量，
所以，我們就沒法使用全局變量了（注1），
因此就又引入了 our，our 的作用就是聲明一個全局變量，但是讓 strict 和 warnings 以為它是詞法變量，因此 our 聲明的變量也是詞法作用域的。但是實際上它是全局變量。

注1：
如果不使用 our，我們有兩種辦法可以創建全局變量：
1，用 no strict "vars" 臨時關掉 strict pragma，聲明完了再用 use strict "vars" 打開。
2，用變量的全限定名稱，如 $main::var 或者 $foo::bar 這樣子。

flw

聲明：
以上提到的“全局變量”這個字眼都表示“包全局變量”。

happig1

小弟看完后,收獲頗多,謝謝各位.

m0925j

我原來以為在一個package里面定義了一個our變量，然后在一個pl里面use的話就能用pm里面那些our變量了，原來our只是相當于一個沒在{}里面的my，這樣理解對嗎