Perl多线程和foreach

我正在编写一个简单的Perl脚本,它应该同时运行其他Perl脚本.我不知道如何使主程序等待运行线程.由于许多原因,睡眠不是一个合适的解决方案.这是我的“主要”脚本：

#!/usr/bin/perl
use threads;
main:
{
    if ($#ARGV == -1) { usage(); exit(1); }
    my $hostname = $ARGV[0];
    my $thRSSh = threads ->create(\&ssh,$hostname);
    my $thrdns = threads ->create(\&dns,$hostname);
    my $thrping = threads ->create(\&ping,$hostname);
    my $thrsmtp = threads ->create(\&smtp,$hostname);
    my $thrproxy = threads ->create(\&proxy,$hostname);
}
sub ssh {
    threads->detach();
    my $hostname = @_;
    #print "SSH\n";
    #LAUNCH SSH SCRIPT
}
#OTHER SUBROUTINES...
sub proxy {
    threads->detach();
    my $hostname = @_;
    #print "PROXY\n";
    #LAUNCH PROXY SCRIPT
}

如果我尝试运行这个脚本,我可以注意到的第一件事是打印是“顺序的”,我认为文本搞砸了,但也许打印是独家我不知道.主要问题是最后两个子程序没有时间执行.

SSH
DNS
PING
Perl exited with active threads:
2 running and unjoined
0 finished and unjoined
0 running and detached

如果我使用join而不是分离,则子例程变为“顺序”,例如,如果我在子ssh中进行休眠,则其他线程将在启动之前等待.我希望它们是并行的,主程序只在所有线程完成后关闭,任何帮助？

我实际上还有另一个问题,如果我必须在foreach cicle中运行多个线程,那么我应该加入它们？即：

my $thRSSh;
foreach $mynode ($nodeset->get_nodelist) {
    #...
    $thRSSh = threads ->create(\&ssh,$port,$hostname);
    #...
}
$thssh->join();

是对的吗？

解决方法

在完成所有线程之后,您需要从主线程加入所有线程.如果您不希望在线程仍在运行时退出解释器,请不要分离.

...
my $thRSSh = threads ->create(\&ssh,$hostname);
my $thrdns = threads ->create(\&dns,$hostname);
...
$thRSSh->join();
$thrdns->join();
...

关于你的编辑：不,这是不对的.您需要保留对您创建的每个线程的引用,否则您无法加入它们.

做类似的事情：

my @thrs;
foreach $mynode ($nodeset->get_nodelist) {
    #...
    $thRSSh = threads ->create(\&ssh,$hostname);
    push @thrs,$thRSSh;
    #...
}
$_->join() for @thrs;

Perl多线程和foreach

解决方法

猜你在找的Perl相关文章