Perl threads 摘要

概述最近又写了一个多线程的小工具，对一些多线程的使用有了进一步的心得。 Perl 创建线程有两种方式，正常通过threads->create 创建线程，用async  创建一个调用匿名过程的线程，具体参考perldoc threads。 线程共享变量需要使用 threads::shared，共享变量只能存储scalar，共享变量的引用，如果存储List Hash的引用需使用shared_clone([

最近又写了一个多线程的小工具，对一些多线程的使用有了进一步的心得。

Perl 创建线程有两种方式，正常通过threads->create 创建线程，用async  创建一个调用匿名过程的线程，具体参考perldoc threads。 线程共享变量需要使用 threads::shared，共享变量只能存储scalar，共享变量的引用，如果存储List Hash的引用需使用shared_clone([@List]) shared_clone({%hash})。 线程创建后最好join 或者detach，否则在退出时会有warning。 线程的join 方式，使用threads 中提供的函数接口，可以做到及时释放资源，参考下边的例子

use strict;use warnings;use threads;use Data::Dumper;$|=1;sub test{    my $i = shift;    my @x = (1..999999); #使用一个大的变量观察内存使用情况    sleep 2*$i;    printf "%s run to the end.\n",threads->tID();}for (reverse (0..10)){    threads->create(\&test,$_);}my $monitor = async { #用来观察子线程状态    sleep 1;    while(1){        for(threads->List()){            printf "%s join? %s\n",$_->tID(),$_->is_joinable() ? 'true' : 'false';        }        sleep 2;    }};$monitor->detach();#方法1$_->join() for threads->List()#方法2#~ while(threads->List()){    #~ $_->join() for threads->List(threads::joinable);#~ }

使用方法1 的结果，最先产生的线程耗时最长，按此法join 会按顺序释放资源，后来的线程虽已结束，但仍然等待前者结束然后才能释放自己的资源，前者结束前资源一直被占用。运行此脚本过程中打开任务管理器，观察内存使用情况，可以看到脚本结束前资源一直占用最大，没有释放过。

4 run to the end.2 join? false3 join? false4 join? true3 run to the end.2 join? false3 join? true4 join? true2 run to the end.2 join? true3 join? true4 join? true1 run to the end.

使用方法2的结果，只join 已经完成的线程，资源会被及时释放。观察内存的使用情况，可以看到资源逐步递减，并没有被一直占用。

4 run to the end.1 join? false2 join? false3 join? false3 run to the end.1 join? false2 join? false2 run to the end.1 join? false1 run to the end.

仅供参考，欢迎指正。 总结

以上是内存溢出为你收集整理的Perl threads 摘要全部内容，希望文章能够帮你解决Perl threads 摘要所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。