1. #!/usr/bin/perl -w  
    2.  
  2.  
    3.  
  3. # 装载perl线程模块  
    4.  
  4. use threads;  
    5.  
  5. use POSIX qw(strftime);  
    6.  
  6.  
    7.  
  7. sub produce {  
    8.  
  8.     my $thread_name = shift;  
    9.  
  9.     while(1) {  
    10.  
  10.         my $r = int(rand(100));  
    11.  
  11.  
    12.  
  12.         # 获得本线程内当前时间  
    13.  
  13.         my $now_time = strftime “%Y-%m-%d %H:%M:%S”, localtime;  
    14.  
  14.  
    15.  
  15.         # 获得本线程的ID  
    16.  
  16.         $n = threads->tid();  
    17.  
  17.         my $r2 = int(rand(3));  
    18.  
  18.         printf(“$thread_name \$random: %-2s | \$random2: $r2 | thread_id: $n | $now_time |\n”,$r);  
    19.  
  19.         sleep($r2);  
    20.  
  20.     }  
    21.  
  21. }  
    22.  
  22.  
    23.  
  23. # 创建N个线程,每个线程调用 &produce 子例程,并传送一个参数.  
    24.  
  24. my $jason1 = threads->create(\&produce, “jason1”);  
    25.  
  25. my $jason2 = threads->create(\&produce, “jason2”);  
    26.  
  26. my $jason3 = threads->create(\&produce, “jason3”);  
    27.  
  27. my $jason4 = threads->create(\&produce, “jason4”);  
    28.  
  28. my $jason5 = threads->create(\&produce, “jason5”);  
    29.  
  29.  
    30.  
  30. # 线程结束,收割.  
    31.  
  31. $jason1->join();  
    32.  
  32. $jason2->join();  
    33.  
  33. $jason3->join();  
    34.  
  34. $jason4->join();  
    35.  
  35. $jason5->join(); 
    36.  
 
 use threads;模块的详细使用方法还要好好研究.
 
http://search.cpan.org/~jdhedden/threads-1.82/lib/threads.pm
 
注:
 
之前看了段时间的Thread模块.后来才发现.这个模块已经被放弃了.因为有很多问题.
 
打算用perl写多线程,还是好好研究threads.