欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

perl多线程

程序员文章站 2022-04-29 15:54:49
...

 

perl 多线程

 

http://blog.sina.com.cn/s/blog_4af3f0d20100fcr3.html



例子一:
http://yufengseu.spaces.live.com/Blog/cns!31875D62B958914B!138.entry
以前为了方便自己(当然也是为了偷懒^_^)使用perl写了一个脚本来抓取网页,并进行分析以获取我想要的信息,随着要抓取的网页越来越多,这个脚本的执行效率明显变慢,于是想到了使用多线程来节省在抓取网页上花费的时间(这个是耗时最多的过程占了90%的时间)
由于对perl的使用时间不是很长, 使用的次数也不是很多,因此一直不知道perl支持多线程,更不用说用了.
不过我遇到问题习惯在网上搜一番,发现大部分都是使用perl的多线程来写ftp下载,或是密码的破解(穷举法). 对perl的多线程的使用的讲解还不是很明白
 
其实使用perl的多线程很简单:
 
use Thread;
#use threads::shared;
 
my @threads;
 
open(MHO,$mhofile);
my @mholist=<MHO>;
 
foreach my $mho (@mholist) {
 next unless defined $mho;
         print "start one thread";
          $threads[$tempcount]=Thread->new(\&start_thread,$mho);
           $tempcount++;
                                            }
foreach my $thread (@threads) {
 $thread->join();
}
 
sub start_thread{
 my ($infomho)=@_;
 print "in thread $infomho";
 sleep 20;
                           }
以上就是一个多线程的例子,创建线程的方法有好几种 (比如create(...))启动了多干个线程后,我们这里一定要使用变量保存thread的id。因为,创建一个thread以后要用join取得该thread的返回值,然后系统才会对thread进行清理,否则所有thread的信息都会保留下来,当然越积越多了。对返回值不关心的时候要用detach显式剥离该thread。所以,在最后我们要等待这些线程的完全退出:
foreach my $thread (@threads) {
 $thread->join();
}

否则,threads库会在最后打印如下信息:
A thread exited while 2 threads were running.
 
至于多线程的其他方法的使用还在学习中^_^.

例子二:
http://www.cnblogs.com/joechen/archive/2009/04/27/1444569.html


 

Perl语言的多线程(一)

Perl中的多线程的实现一般有两种办法,而老版本的办法实际上是一种多进程的办法。

一   Thread->New

该办法是传统的老办法,它与folk很类似,新建一个进程时,会把当前内存空间的所有变量都复制一份传到新的进程里面。已实现共享数据。而随着技术的发展,本文不针对该方法做深入研究。

二   IThread

这种方法是通过新建一个新的perl interpreter。默认情况下,所有的数据和变量是不被线程共享的。如果想共享一个变量,需通过threads::shared来实现。在使用此方法的时候,需要注意以下三点:

  1. 变量默认是不在线程*享的。
  2. 通过"use threads"引用命名空间,不能通过 , do, 或者 require。
  3. 如果有变量需要共享,必须引用"threads::shared"。 并在定义变量的时候如下:

            my $var1 : shared = "value";

 以下是一个简单的使用perl 多线程的例子。

 

perl多线程
            
    
    博客分类: 脚本语言 多线程Perlthread编程Linux 
#!/usr/local/bin/perl   
use threads;   

@domain   
=   ("tom.com",   "chinadns.com",   "163.com",   "aol.com"
);   
for ($i=0;$i<4;$i++
)
{   
    print   $i.
'.'.$domain[$i].'     '
;   
}   
print   
"\n"
;   
    
my   $thr0   
=   threads->new(\&checkwhois,   '0',   $domain[0
]);   
my   $thr1   
=   threads->new(\&checkwhois,   '1',   $domain[1
]);   
my   $thr2   
=   threads->new(\&checkwhois,   '2',   $domain[2
]);   
my   $thr3   
=   threads->new(\&checkwhois,   '3',   $domain[3
]);   
    
sub   checkwhois()   
{   
    my ($l,$r)
=
@_;   
    my $i
=0
;   
    
while($i<1000000
)   
    {   
          $i
*
$i;   
          $i
++
;   
    }   
    print   
"done  --$l\t\n"
;   
    print   $l.$r.
"   query   successful!   \n"
;    
}

$thr0
->
join;  
$thr1
->
join;   
$thr2
->
join;   
$thr3
->
join;
这个简单的perl主要是新建了4个子线程去做不同的事情,然后调用join方法等待他们执行完成并让线程自动回收
但有时,还是需要结合folk 做一些复杂的工作,下面是关于这个的例外一个demo。看原文连接

例子三:
perl多线程编程给我的总体感觉有点像Linux C POSIX多线程编程。perl多线程编程使用起来非常方便,但要深入掌握还是要下点功夫的。这里有一个简单的例子:
 
#!/bin/perl
 
use strict;
use threads;
use Cwd;
use POSIX qw(strftime);
 
################################################################################
# 函数名:  count
# 函数描述:  数数
# 输入:   name 随意输入一个名字
# 输出:   无
# 调用:  
# 被调用: 
# 返回:
################################################################################
sub count
{
   my ($name) = @_;
   my $current_time = strftime "%Y-%m-%d %H:%M:%S", localtime;
   for ($i = 0; $i <= 10000; $i++)
   {
     print "$current_time  $name $i";
   }
}
 
创建第一批线程
my $thread_1_01 = threads->create('count', Thread_1);
my $thread_1_02 = threads->create('count', Thread_2);
my $thread_1_03 = threads->create('count', Thread_3);
my $thread_1_04 = threads->create('count', Thread_4);
 
# 等待第一批线程结束完成
$thread_1_01->join();
$thread_1_02->join();
$thread_1_03->join();
$thread_1_04->join();

# 创建第二批线程
my $thread_2_01 = threads->create('count', Thread_5);
my $thread_2_02 = threads->create('count', Thread_6);
my $thread_2_03 = threads->create('count', Thread_7);
 
# 等待第二批线程结束完成
$thread_2_01->join();
$thread_2_02->join();
$thread_2_03->join();