奇怪的參數(shù)檢查

feiliang1983

我寫(xiě)了一個(gè)2000行以上的.pm庫(kù)文件和100多行的.pl接口文件管理配置文件。在pm庫(kù)文件中有一個(gè)函數(shù)在定義之前使用時(shí)函數(shù)工作不太正常。

在b.pl運(yùn)行時(shí)沒(méi)有發(fā)現(xiàn)任何警告，也不提示輸入?yún)��?shù)錯(cuò)誤。大家能告訴我原因么？

文件結(jié)構(gòu)如下：

1. a.pm
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. sub f()
   
7. {
   
8. my @arr = ();
   
9. g(@arr);
   
10. print Dumper(@arr);
    
11. }
    
12. 
    
13. sub ff()
    
14. {
    
15. my @arr = ();
    
16. g(\@arr);
    
17. print Dumper(@arr);
    
18. }
    
19. 
    
20. sub g(\@)
    
21. {
    
22. my $arr = shift;
    
23. 
    
24. push @{$arr}, 12;
    
25. }
    
26. 
    
27. sub gf()
    
28. {
    
29. my @arr = ();
    
30. g(@arr);
    
31. print Dumper(@arr);
    
32. }
    
33. 
    
34. sub gff()
    
35. {
    
36. my @arr = ();
    
37. g (\@arr); # 報(bào)錯(cuò)
    
38. print Dumper(@arr);
    
39. }
    
40. 1;
    
41. 
    
42. b.pl：
    
43. use strict;
    
44. use warnings;
    
45. use a;
    
46. 
    
47. f(); #無(wú)輸出
    
48. ff(); #輸出12
    
49. gf(); #輸出12
    
50. gff(); #編譯錯(cuò)誤

復(fù)制代碼

flw

g 用了原型，
所以調(diào)用時(shí)直接 g(@arr) 即可，
不需要也不能 g(\@arr)。

feiliang1983

回復(fù) 2# flw
謝謝回復(fù)

現(xiàn)在最大的問(wèn)題是ff()為什么檢查不出來(lái)？而且還工作正常的樣子？

是因?yàn)闆](méi)有原型的時(shí)候需要必須自己處理引用的轉(zhuǎn)換么？

有沒(méi)有文檔專(zhuān)門(mén)說(shuō)明這種問(wèn)題？

黑色陽(yáng)光_cu

http://perldoc.perl.org/perlsub.html#Prototypes

flw

因?yàn)?ff 還沒(méi)見(jiàn)到原型。

feiliang1983

回復(fù) 4# 黑色陽(yáng)光_cu
多謝

問(wèn)題已解決。

函數(shù)原型不是強(qiáng)制的，在一些特定情況下函數(shù)會(huì)被當(dāng)作舊格式的函數(shù)。如果
函數(shù)被當(dāng)作無(wú)原型的舊函數(shù)時(shí)，函數(shù)請(qǐng)求的輸入?yún)��?shù)是引用，這就可以
解釋我的函數(shù)為什么出錯(cuò)了。

再次感謝兩位的幫助。

BTW:有沒(méi)有什么方法徹底禁用無(wú)原型的舊格式的函數(shù)的使用？至少報(bào)出一個(gè)
警告？我覺(jué)得如果老是出這種問(wèn)題的話(huà)，調(diào)試起來(lái)相當(dāng)些麻煩，而且很難找到
出錯(cuò)原因

黑色陽(yáng)光_cu

回復(fù)  黑色陽(yáng)光_cu
多謝

問(wèn)題已解決。

函數(shù)原型不是強(qiáng)制的，在一些特定情況下函數(shù)會(huì)被當(dāng)作舊格式的 ...
feiliang1983 發(fā)表于 2010-06-05 17:26

   
把參數(shù)原型提前說(shuō)明

use strict;
use warnings;
use Data::Dumper;

sub g(\@);        # here

sub f()
{
my @arr = ();
g(@arr);
print Dumper(@arr);
}

sub ff()
{
my @arr = ();
g(\@arr);
print Dumper(@arr);
}

sub g(\@)
{
my $arr = shift;

push @{$arr}, 12;
}

sub gf()
{
my @arr = ();
g(@arr);
print Dumper(@arr);
}

sub gff()
{
my @arr = ();
g (\@arr); # 報(bào)錯(cuò)
print Dumper(@arr);
}

f(); #無(wú)輸出
ff(); #輸出12
gf(); #輸出12
gff(); #編譯錯(cuò)誤

黑色陽(yáng)光_cu

更奇怪的是用prototype("inner")檢查原型

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. # sub inner(\@);
   
6. 
   
7. sub outer()
   
8. {
   
9.         my $prototype = prototype("inner");
   
10.         if (defined $prototype)
    
11.         {
    
12.                 print "Subrounte inner's prototype is: $prototype\n";
    
13.         }
    
14. 
    
15.         inner();
    
16. }
    
17. 
    
18. sub inner(\@)
    
19. {
    
20.         ;
    
21. }
    
22. 
    
23. outer();
    

復(fù)制代碼

明明可以檢查到原型是\@了，但下面的inner()不工作，一定要把原型聲明前置。結(jié)論就是prototype少用為妙

黑色陽(yáng)光_cu

而且用&調(diào)用函數(shù)不會(huì)被檢查原型~~~


http://www.perl.com/language/misc/fmproto.html#Prototype_Bugs

1. use strict;
   
2. use warnings;
   
3. 
   
4. BEGIN
   
5. {
   
6.         warn prototype("proc");
   
7. }
   
8. 
   
9. sub proc(\@)
   
10. {
    
11.         print "proc\n";
    
12. }
    

復(fù)制代碼

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub proc(\@)
   
6. {
   
7.         print "proc\n";
   
8. }
   
9. 
   
10. BEGIN
    
11. {
    
12.         warn prototype("proc");
    
13. }
    
14. 
    
15. 
    
16. 
    

復(fù)制代碼

feiliang1983

回復(fù) 9# 黑色陽(yáng)光_cu

看了一下，感覺(jué)perl的原型系統(tǒng)基本不靠譜。

如果是寫(xiě)一堆功能單一的小文件還可以保證聲明放在文件頭上；對(duì)于一個(gè)羅列了一堆小函數(shù)
而且需要經(jīng)常添加新函數(shù)的大文件聲明基本無(wú)效。開(kāi)始的時(shí)候接口數(shù)目不多，所有函數(shù)堆在
一個(gè)文件了

再次感謝各位前輩