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

概述  #!/usr/bin/perl -w     # 装载perl线程模块   use threads;   use POSIX qw(strftime);     sub produce {       my $thread_name = shift;       while(1) {  

 

  #!/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();   

 use threads;模块的详细使用方法还要好好研究.

http://search.cpan.org/~jdhedden/threads-1.82/lib/threads.pm

注:

之前看了段时间的Thread模块.后来才发现.这个模块已经被放弃了.因为有很多问题.

打算用perl写多线程,还是好好研究threads.

总结

以上是内存溢出为你收集整理的一个perl线程使用方法的简单演示全部内容，希望文章能够帮你解决一个perl线程使用方法的简单演示所遇到的程序开发问题。

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