ChinaUnix.net
相关文章推荐:

perl 多线程模块

#!/usr/bin/perl # Please read the ENTIRE README.txt file first. # THIS FILE IS FROM checkwebsite.org - please check there for updates. use warnings; use strict; use Tie::File; use Net::SMTP; use LWP::UserAgent; ################################################################# # Program Settings # my $error_log = 'Responser_errors.txt'; # File to store errors of program my $input_...

by liang3391 - Perl - 2009-11-02 22:20:40 阅读(1351) 回复(3)

相关讨论

在大骆驼书里有这么一段: 17.2.2.3 锁定子过程 你可以在一个子过程上加一把锁: lock &func; 和数据锁不一样,数据锁只有劝告性锁,而子过程锁是强制性的。除了拥有锁的线程以外其它线程都不能进入子过程。 考虑一下下面的代码,它包含一个涉及 $done 变量的冲突条件。(yield 只是用于演示)。 use Thread qw/async yield/; my $done = 0; sub frob {         my $arg = shif...

by lifeistrue - Perl - 2008-08-27 12:19:18 阅读(2371) 回复(6)

想学习一下perl线程编程,有没有哪位大侠推荐一下学习资源? 大概找了一下,perl线程有两种模式,perl5005和ithread,这两种有什么区别?有例子否? 我在CPAN上只找到了Thread...

by johnrobbet - Perl - 2008-08-26 01:35:05 阅读(1815) 回复(4)

希望 在一个主线程里 加一个关于计时的线程 当主程序的每个循环开始的时候 同时启动计时 主程序执行中 ..... 一旦时间到 不管主程序是否执行完毕 结束 该主程序的循环 进入下一个 或者 不用 线程 能否实现这一功能 ?

by xiacs - Perl - 2003-05-20 18:39:42 阅读(2070) 回复(5)

[code] #!/usr/bin/perl use strict; use Thread 'yield'; my $var = 0; sub bump { lock $var; if ($var == 0) { yield; $var++; } } my $t1 = new Thread \≎ my $t2 = new Thread \≎ for my $t ($t1, $t2) { $t->join} print "var is $var\n"; [/code] 这段代码是大骆驼上的,说总打印1,但是我这儿总打印0,为啥呢?$var++,在线程中,好像进行的自增运...

by cugb_cat - Perl - 2009-01-22 17:47:34 阅读(2119) 回复(9)

今天看了Thread文档,没看明白,可以下面这样用吗? #load use threads; $thr1= threads->new(\&require1); $thr2= threads->new(\&require2); $thr3= threads->new(\&require3); $thr4= threads->new(\&require4); sub require1(){ require("include/t_ad_keyword.pl"); } sub require2(){ require("include/t_media_info.pl"); require("include/t_qeesoo_visitdata.pl"); } sub require3(){ require("include/t_showd...

by 枫影谁用了 - Perl - 2011-04-24 02:19:41 阅读(4809) 回复(20)

[code] for (my $i=0; $inew(\&getInfo, $city , $url, $d1); $thr->join; } [/code] 为了简单,我省略了部分代码, 我的目的是分线程去读不同页面的信息, 这样写对么?这样用的时间和正常用for直接执行时间就差1秒 还有一个问题,就是这些线程都执行完毕以后,主程序的代码好像没有执行 如何让这些线程执...

by yzcdf - Perl - 2008-12-26 10:09:05 阅读(2002) 回复(9)

安装perl线程版本遇到问题: 1.在http://mirrors.develooper.com/hpux/downloads.html网址上下载了安装包perl-5.8.8-dor-11.11.sd.bz, 2.ftp到hp unix上, 3.用网页提供的工具bzip2-1.0.2-pa2.0解压成perl-5.8.8-dor-11.11.sd 4.安装: swinstall -s /home/ppnms/tools/perl-5.8.8-dor-11.11.sd perl 5.查看状态:perl -V rp5470-/home/ppnms/tools> perl -V Summary of my perl5 (revision 5 version 8 subversion 8 patch 2702...

by iwantican - Perl - 2008-04-30 09:35:22 阅读(3156) 回复(6)

最近写了一个线程的程序帮我工作,但是每项工作都太长了,而且有不可遇见性错误。每个子线程的任务可以不完全完成。perl线程是否能够设定最长工作时间呢?比如3个小时。如果用一个时间线程来定时,我怎么在一个线程中杀掉另外一个线程? 还有的就是perl线程太费内存了,16个线程要用600M内存,2G内存就剩下不到500M了,如果能够减少内存消耗呢。

by fandatou - Perl - 2008-07-04 23:41:19 阅读(1755) 回复(4)
by the0crat - Perl - 2003-07-22 21:47:33 阅读(1319) 回复(5)

最近刚接触perl线程,由于以前一直是使用进程,所以冷不防还不太适应。更加上让我遇到了一个比较头疼的问题后,才仔细的看了看perldoc。 我遇到的问题同这个老帖子中的很相像,因此把它也翻出来说说。 http://bbs.chinaunix.net/viewthread.php?tid=1264263 我想实现的是这样一个过程。在窗体下,一个按钮来控制一个while循环体,而退出完全由按钮来决定。 使用win32::GUI创建窗体 { 添加按钮; } sub 按钮调用...

by lanmeibanban - Perl - 2012-11-02 21:28:51 阅读(4215) 回复(5)