perl运行时暂时中断几秒再重新进行的方法

schummizh

UID: 8429
帖子: 64
积分: 147
在线时间: 5 小时

1^# schummizh 发表于 2007-08-05 21:23

perl运行时暂时中断几秒再重新进行的方法

perl运行时暂时中断几秒再重新进行的方法
写了一段程序抓取网页, 由于反复抓取使得网络服务器压力太大而自动封锁我的IP.
能否控制抓取的时间比如两次抓取过程中停止5到10秒? 比如:

for (my $i=1; $i<=100; $i++) {

抓取();

[color=red]???暂停5秒???[/color]

}

请高手指教, 多谢了!!!

hangring

UID: 45547
帖子: 12
积分: 27
在线时间: 10 分钟

2^# hangring 发表于 2007-08-05 22:18

sleep刚好合适你的要求，如
foreach (1..100) {
print rand, "\n";
sleep(5);
}

schummizh

UID: 8429
帖子: 64
积分: 147
在线时间: 5 小时

3^# schummizh 发表于 2007-08-05 23:19

非常感谢!!![CCB]1[/CCB].
非常感谢!!![CCB]1[/CCB]

trldeuxf

UID: 40340
帖子: 128
积分: 294
在线时间: 22 小时

4^# trldeuxf 发表于 2008-04-03 14:04

aslnzmxjhc
JJpEjt <a href="http://huexplloiioq.com/">huexplloiioq</a>, [url=http://gweeygqixzmf.com/]gweeygqixzmf[/url], [link=http://kprwdxnzxgnt.com/]kprwdxnzxgnt[/link], http://lbedpzyvsqyi.com/

[img]http://cbckxczxneno.com/[/img]
[COLOR=BLUE]URL：[/COLOR][url]sjLpljocNVOgW[/url]