Perl:创建已知大小的数组

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

Answer 2

在Perl中,您不必担心数组的大小.他们根据需要成长:

my @array; # defines an empty array

$array[0] = 4; # array has one element
$array[9] = 20; # array has 10 elements now

print join "-", @array;

# prints: 4--------20 because the empty places are undef

如果您有许多端口并且担心有太多空条目,请使用哈希.我看不出有任何理由不去做.

Answer 3

哈希是用于" 稀疏数组 " 的良好数据类型.好像你正在描述那个; 稀疏数组 - 大多数元素未定义的数组.Perl会让你预先标准一个标准数组,但这不是你需要的.你似乎需要一个哈希,如果你有$array[2],那就没关系了$array[23],例如,之间没有哈希.使用本机数组,一旦创建$array[23],23以下的所有未使用元素将以' undef'作为它们的值而存在.

使用哈希,你会有$item{2},和$item{23}.您可以使用该keys()函数获取散列中包含哪些项目的列表.