这样的东西目前有效：

system("perl 1.pl");
system("perl 2.pl");
exit;

但是,我想把它们作为独立的线程同时运行.

我根据我的Google搜索尝试过这样的事情：

system(1,"perl 1.pl");
system(1,"perl 2.pl");
exit;

这不起作用.主脚本立即存在,这很好,但我想要生成的底层线程不会被启动.我想知道是否还有其他事情要做,或者是否有其他人做过这样的事情.

在此先感谢您的帮助.

解决方法

use threads;
$thr1 = threads->create('msc','perl 1.pl');
$thr2 = threads->create('msc','perl 2.pl');

$thr1->join();
$thr2->join();

sub msc{ ## make system call
  system( @_ );
}

• 上一篇：如何使用Perl在Windows中创建unico下一篇：Perv中的Schwartzian变换？