這個短程序有什麼問題？

Question

我寫這個小程序。它編譯但它只是沒有按預期打印數組大小。我的程序有什麼問題？

#!/usr/bin/perl -w 

use strict; 
use warnings; 
my $primaryFeatures 
= { foo => [ 'fool', 'food', 'foot' ], 
    bar => ['barricade'], 
    }; 
my $arraysize = $#{$primaryFeatures->{"foo"}}+1; 
print $arraysize; 

Answer 1

您正在使用數組引用作爲您的散列值（因爲您應該），因此您需要取消引用數組引用。

另外，如果您在標量上下文中使用數組，則返回數組的大小。一般而言，您應該贊同使用$#構造。

#!/usr/bin/perl -w 

use strict; 
use warnings; 
my $primaryFeatures = { 
    foo => [ 'fool', 'food', 'foot' ], 
    bar => ['barricade'], 
}; 
my $arraysize = @{$primaryFeatures->{foo}}; 
print $arraysize; 

Answer 2

沒有什麼錯你的計劃。

$ cat x.pl 
use strict; 
use warnings; 
my $primaryFeatures 
= { foo => [ 'fool', 'food', 'foot' ], 
    bar => ['barricade'], 
    }; 
my $arraysize = $#{$primaryFeatures->{"foo"}}+1; 
print $arraysize, "\n"; 

$ perl x.pl 
3 

（我添加了一個新行到輸出，但是這是不相關的問題。）

我發現下面的清潔劑，雖然：

my $arraysize = @{ $primaryFeatures->{foo} };