本文和大家重点讨论一下Perl线程概念及创建过程,Perl线程是一个单一的执行流程,它是所有程序执行过程中最小的控制单位,即能被CPU所调度的最小任务单元。
Perl线程简介
Perl线程是一个单一的执行流程,它是所有程序执行过程中最小的控制单位,即能被CPU所调度的最小任务单元。Perl线程与进程之间既有联系,又完全不同。简单地说,一个Perl线程必然属于某一个进程,而一个进程包含至少一个或者多个Perl线程。早期的计算机系统一次只能运行一个程序,因此,当有多个程序需要执行的时候,唯一的办法就是让它们排成队,按顺序串行执行。进程的出现打破了这种格局,CPU资源按时间片被分割开来,分配给不同的进程使用。
这样一来,从微观上看进程的执行虽然仍是串行的,但是从宏观上看,不同的程序已经是在并行执行了。如果我们把同样的思想运用到进程上,很自然地就会把进程再细分成更小的执行单位,即Perl线程。由于一个进程又往往需要同时执行多个类似的任务,因此这些被细分的Perl线程之间可以共享相同的代码段,数据段和文件句柄等资源。有了进程,我们可以在一台单CPU计算机系统上同时运行Firefox和MicrosoftOfficeWord等多个程序;有了Perl线程,我们可以使Firefox在不同的标签里同时加载多个不同的页面,在OfficeWord里编辑文档的同时进行语法错误检查。因此,Perl线程给我们带来了更高的CPU利用率、更快速的程序响应、更经济地资源使用方式和对多CPU的体系结构更良好的适应性。
Perl线程的生命周期
创建Perl线程
Perl线程作为Perl中的一种实体,其一生可以粗略的分为创建,运行与退出这三个阶段。创建使得Perl线程从无到有,运行则是Perl线程完成其主要工作的阶段,退出自然就是指Perl线程的消亡。Perl线程的运行和普通函数的执行非常类似,有其入口参数,一段特定的代码流程以及执行完毕后返回的一个或一组结果,唯一与普通函数调用的不同之处就在于新建Perl线程的执行与当前Perl线程的执行是并行的。
Perl里创建一个新的Perl线程非常简单,主要有两种方法,他们分别是:
使用threads包的create()方法,例如
清单3.通过create()方法创建Perl线程
- usethreads;
- subsay_hello
- {
- printf("Hellothread!@_.\n");
- return(rand(10));
- }
- my$t1=threads->create(\&say_hello,"param1","param2");
- my$t2=threads->create("say_hello","param3","param4");
- my$t3=threads->create(
- sub{
- printf("Hellothread!@_\n");
- return(rand(10));
- },
- "param5",
- "param6");
使用async{}块创建Perl线程,例如
清单4.通过async{}块创建Perl线程
- #!/usr/bin/perl
- #
- usethreads;
- my$t4=async{
- printf("Hellothread!\n");
- };
【编辑推荐】