如何在不阻止的情况下顺序启动多个程序？

Question

在UNIX系统

我有一个名为program_sets目录，并在program_sets，存在8目录，每个目录，他们有一个叫做A.pl

我要启动和运行8 A.程序pl程序，但是当我启动第一个程序时，程序将被阻塞，直到第一个程序调用完成。我该如何解决这个问题？

这里是我的代码

#!/usr/bin/perl 

opendir(Programs,"./program_sets"); 
@Each_names = readdir(Programs); 
shift(@Each_names); 
shift(@Each_names); 

for($i=0;$i<=$#Each_names;$i++) 
{ 
    `perl ./program_sets/$Each_names[$i]/A.pl`; 
} 

感谢

Answer 1

与&它们运行在后台，就像你从shell会。

for($i=0;$i<=$#Each_names;$i++) 
{ 
    system("perl ./program_sets/$Each_names[$i]/A.pl >/dev/null 2>&1 &"); 
} 

此外，反引号应该当你分配输出到一个变量中。使用system()运行命令而不保存输出。

Answer 2

在* NIX中，您可以在命令行中添加“&”以在后台启动程序。

另一种选择是使用fork（）http://perldoc.perl.org/functions/fork.html

Answer 3

有看起来是其他一些问题在这里。

#!/usr/bin/perl 

# warnings, strict 
use warnings; 
use strict; 

# lexically scoped $dh 
#opendir(Programs,"./program_sets"); 
my $cur_dir = "./program_sets"; 
opendir(my $dh, $cur_dir); 

# what exactly is being shifted off here? "." and ".."?? 
#@Each_names = readdir(Programs); 
#shift(@Each_names); 
#shift(@Each_names); 

# I would replace these three lines with a grep and a meaningful name. 
# -d: only directories. /^\./: Anything that begins with a "." 
# eg. hidden files, "." and ".." 
my @dirs = grep{ -d && $_ !~ /^\./ } readdir $dh; 
close $dh; 

for my $dir (@dirs) { 
    my $path = "$cur_dir/$dir"; 

    system("perl $path/A.pl >/dev/null 2>&1 &"); 
}