如何取消引用@$_？

Question

我正在这样做：

sub worker {
    my ($job, @action) = @$_; #<-- error thrown here
    Build($job, @action[0]);
}


for (1..NUM_WORKERS) {
  async {
     while (defined(my $job = $q->dequeue())) {
        worker($job);
     }
  };
}

$q->enqueue([$_, 'clean']) for @compsCopy;

# When you're done adding to the queue.
$q->end();
$_->join() for threads->list();

当它执行时，我得到：

线程 8 异常终止：不能使用字符串（“8”）作为 ARRAY 引用，而“严格引用”正在使用（@上面引用的行）

我在这里做错了什么？

编辑：为了更深入地了解我想要完成的工作，我希望能够执行以下操作：

$q->enqueue([$_, 'clean']) for @compsCopy; #clean
$q->enqueue([$_, 'l1']) for @compsCopy; #build
$q->enqueue([$_, '']) for @compsCopy; #link

用户可以在哪里指定他们何时运行脚本，$actions 他们希望在组件（目录）上执行。

Answer 1

如果worker的第一个参数是一个数组引用，那么你执行以下操作：

sub worker {
    my ($job, @action) = @{$_[0]}; 

$_ 和 @_ 可能看起来相似，但它们是不同的变量。使用数组@_ 访问传递给该子例程的参数。 $_[0] 将保存该数组的第一个元素。

注意：我建议您为第一个捕获的参数取一个与worker 子不同的名称。重用$job 令人困惑。在 sub 内部，my ($val, @action) = ... 在语义上可能更准确。

---

现在，如果我们撤消 OP 所做的所有更改，我们会返回使用更合理的参数顺序和不使用名称 $job 的两个不同的东西。

sub worker {
    my ($job) = @_;
    my ($job_type, @job_params) = @$job;

    if ($job_type eq 'clean') {
        clean(@job_params);
    }
    # elsif ($job_type eq '...') {
    #    ...
    # }
    # ...
}


for (1..NUM_WORKERS) {
  async {
     while (defined(my $job = $q->dequeue())) {
        worker($job);
     }
  };
}

$q->enqueue([ clean => $_ ]) for @compsCopy;

# When you're done adding to the queue.
$q->end();
$_->join() for threads->list();