如何在不阻止的情況下順序啓動多個程序？

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 &"); 
}