Question

如何在Perl脚本里同时发起多个程序运行？

例如：

同时发起：{
launch exe1；
launch exe2；
launch exe3；
}
launch exe4;

我想让exe1、exe2、exe3同时被launch，等他们运行完后在运行exe4.

谢谢大侠！

Answer 1

use threads;
$t1 = threads -> create( sub { `calc` } ) ; # launch exe1

$t2 = threads -> create( sub { `notepad` } ) ;# launch exe2
$t3 = threads -> create( sub { `explorer` } ) ;# launch exe3
$t1->join(); $t2->join(); $t3->join();
print `dir`; # launch exe4

Answer 2

fork();

perldoc perlfork;

# Does NOT work too concurrently well on Windows