#!/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...
想学习一下perl多线程编程,有没有哪位大侠推荐一下学习资源? 大概找了一下,perl多线程有两种模式,perl5005和ithread,这两种有什么区别?有例子否? 我在CPAN上只找到了Thread...
希望 在一个主线程里 加一个关于计时的线程 当主程序的每个循环开始的时候 同时启动计时 主程序执行中 ..... 一旦时间到 不管主程序是否执行完毕 结束 该主程序的循环 进入下一个 或者 不用 多线程 能否实现这一功能 ?
[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++,在线程中,好像进行的自增运...
今天看了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...
[code]
for (my $i=0; $i
安装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...
最近写了一个多线程的程序帮我工作,但是每项工作都太长了,而且有不可遇见性错误。每个子线程的任务可以不完全完成。perl的线程是否能够设定最长工作时间呢?比如3个小时。如果用一个时间线程来定时,我怎么在一个线程中杀掉另外一个线程? 还有的就是perl多线程太费内存了,16个线程要用600M内存,2G内存就剩下不到500M了,如果能够减少内存消耗呢。
最近刚接触perl的多线程,由于以前一直是使用多进程,所以冷不防还不太适应。更加上让我遇到了一个比较头疼的问题后,才仔细的看了看perldoc。 我遇到的问题同这个老帖子中的很相像,因此把它也翻出来说说。 http://bbs.chinaunix.net/viewthread.php?tid=1264263 我想实现的是这样一个过程。在窗体下,一个按钮来控制一个while循环体,而退出完全由按钮来决定。 使用win32::GUI创建窗体 { 添加按钮; } sub 按钮调用...