如何使用Perl的系统调用来生成独立线程?
发布时间:2020-12-15 21:15:46 所属栏目:大数据 来源:网络整理
导读:我想调用其他Perl脚本,以便使用主Perl脚本执行争用测试. 这样的东西目前有效: system("perl 1.pl");system("perl 2.pl");exit; 但是,我想把它们作为独立的线程同时运行. 我根据我的Google搜索尝试过这样的事情: system(1,"perl 1.pl");system(1,"perl 2.pl
我想调用其他Perl脚本,以便使用主Perl脚本执行争用测试.
这样的东西目前有效: 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( @_ ); } 这将等待它们退出之前完成执行.我猜这是你想要的原始问题,对吗?如果没有随意删除评论并编辑您的帖子以更好地解释它,我会再试一次. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |