这个短程序有什么问题？

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} };