[请教]Perl多线程收割的技巧

r_zack

大家好我想请教一下Perl多线程join()收割的技巧，假设我们的程序有三个线程报存在一个数组里，开启线程的方法就像这样：

1. push @threads, threads->new(\&server_behavior) for (0..2);

复制代码

收割的时候我们可以用如下方法收割：

1. $_->join for (@threads);

复制代码

当然也可以用笨法子收割（假设我们的线程是报存在三个scalar变量里面）：

1. ($thread_A, $thread_B, $thread_C)->join;

复制代码

我想打听一下有没有比第一个收割方法更简单的方法呢？为什么不可以想那个笨法子一样来收割呢？就像这样：

1. (@threads)->join;

复制代码

这个收割方式会报错的，请问有谁知道为什么阿？

黑色阳光_cu

($thread_A, $thread_B, $thread_C)->join;

这个应该只收割到$thread_C吧？

lijiamin1986

嘩。。。很複雜！！！！！！！！！！！！！

wfnh

穿越了·

兰花仙子

(@threads)->join;

除非重载()运算符。Perl里貌似不可以。

r_zack

谢谢大家，那就算了，反正可以收割就行了，哈哈

黑色阳光_cu

只收割到$t3

#!/bin/env perl

use strict;
use warnings;
use threads;

my $t1 = threads->create(\&a);
my $t2 = threads->create(\&b);
my $t3 = threads->create(\&c);

($t1, $t2, $t3)->join();
print "over\n";

sub a()
{
        sleep 100;
}

sub b()
{
        ;
}

sub c()
{
        ;
}

bluewaterray

"收割"挺形象的，不过这个问题和线程没什么关系嘛，而是Perl本身的语法问题