arrays - Perl : creating array of known size

Question

我必须存储来自使用 Parallel::ForkManager 运行的请求的数据。
但它不是按顺序排列的，我的意思是，我轮询了交换机的所有端口，但其中一些端口的响应速度比其他端口快。所以，我不知道如何保存它，以便稍后显示。

我可以这样做吗？

my @array = ();
$array[10] = "i am a string corresponding to port 10"
$array[2] = "the one for the port 2"
...
print @array;

或者我应该使用带有端口号的 %hash 作为键，但它似乎不是最好的。
谢谢你。

Answer 1

你可以这样做:

my @array = ();
$array[10] = "i am a string corresponding to port 10"
$array[2] = "the one for the port 2"
print @array;

但是如果某些端口没有响应，您将在未填充的阵列插槽中出现 undef 条目。正如你所说，使用散列会更干净:

my %hash;
$hash{10} = "I am port 10";
$hash{2} = "I am port 2";

foreach my $key (keys %hash) {
   print "$key: $hash{$key}\n";
}