一个perl线程使用方法的简单演示

原创

jasonyong 2011-03-10 18:58:18 博主文章分类：perl ©著作权

©著作权归作者所有：来自51CTO博客作者jasonyong的原创作品，请联系作者获取转载授权，否则将追究法律责任

#!/usr/bin/perl -w  
 
# 装载perl线程模块  
use threads;  
use POSIX qw(strftime);  
 
sub produce {  
    my $thread_name = shift;  
    while(1) {  
        my $r = int(rand(100));  
 
        # 获得本线程内当前时间  
        my $now_time = strftime "%Y-%m-%d %H:%M:%S", localtime;  
 
        # 获得本线程的ID  
        $n = threads->tid();  
        my $r2 = int(rand(3));  
        printf("$thread_name \$random: %-2s | \$random2: $r2 | thread_id: $n | $now_time |\n",$r);  
        sleep($r2);  
    }  
}  
 
# 创建N个线程,每个线程调用 &produce 子例程,并传送一个参数.  
my $jason1 = threads->create(\&produce, "jason1");  
my $jason2 = threads->create(\&produce, "jason2");  
my $jason3 = threads->create(\&produce, "jason3");  
my $jason4 = threads->create(\&produce, "jason4");  
my $jason5 = threads->create(\&produce, "jason5");  
 
# 线程结束,收割.  
$jason1->join();  
$jason2->join();  
$jason3->join();  
$jason4->join();  
$jason5->join();