Multithreading Perl线程：：队列

我正在创建一个Thread:：Queue元素数组。 我是这样做的：

for (my $i=0; $i < $queues_amount; $i++){
    $queues[i]=Thread::Queue->new;
}

我得到以下错误：

无法对未定义的值调用方法“排队…”

你能帮我找出问题所在吗

---

我的perl版本是5.12.2。

您没有在循环中的

$i

变量上使用

$

符号：

for (my $i=0; $i < $queues_amount; $i++){
    $queues[i]=Thread::Queue->new;  # should be $i
}

---

您没有在循环中的

$i

变量上使用

$

符号：

for (my $i=0; $i < $queues_amount; $i++){
    $queues[i]=Thread::Queue->new;  # should be $i
}

my @queues = map {Thread::Queue->new} 0 .. $queues_amount - 1;