in reply to do something no more than 3 times a second
sub do_request { use Time::HiRes qw[sleep time]; use 5.010; state $sleep = [0, 0, 0]; my $url = shift; while ($$sleep[0] + 1 > time) { # Loop, as sleep() may get interrupted. sleep time - $$sleep[0] + 1; } $sleep = [@$sleep [1 .. $#$sleep], time]; ... fetch from server ... }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: do something no more than 3 times a second
by BrimBorium (Friar) on Nov 26, 2010 at 20:22 UTC | |
by JavaFan (Canon) on Nov 27, 2010 at 00:44 UTC |