PERL 多进程与多线程编程能大大加快程序执行效率(将一个任务分割成若干小任务并行处理)。要进行多进程和多线程编程则分别需要两个模块, fork()和Threads,然而fork()则为PERL内置函数,因此,只需安装Threads模块(如需变量共享,还需安装Thread::Shared模块)。安装方法如下:
一、perl 多进程编程
#!/usr/bin/perl
use strict;
use warnings;
my $Max_pro =10;
for (my $i = 1; $i < M a x p r o ; + + Max_pro; ++ Maxpro;++i){
my KaTeX parse error: Expected 'EOF', got '#' at position 52: … #̲创建进程 if…child_pro)){
die "launching child KaTeX parse error: Undefined control sequence: \n at position 10: child_pro\̲n̲"; …child_pro == 0 ){
do_child( i , i, i,KaTeX parse error: Expected 'EOF', got '}' at position 36: …0; }̲ …i,$id) = @_;
print “CHILD process $i ===>>> $id\n”;
}
二、perl 多线程
模块中的方法:threads->create(), 创建一个新线程;
threads->join(),收割已经创建的线程;
threads->detach(),剥离创建的线程;
threads->list(),返回所有已经创建的线程;
threads->is_joinable(),返回目标线程是否已经完成,等待join;
t h r − > e q u q