Re^2: What Tools Do You Use With WWW::Mechanize

[OfficeLinebacker]

Greetings, esteemed monks!

To reply to my own concern, I came up with this for generating wait times between link clicking/back() calls in a Mech script. What do you think?

#!/usr/bin/perl --
use strict;
use warnings;

my $i1 = int(rand(5)+1);
my $i2 = int(rand(2));
my $i = 0;

while ($i<10){
    print "$i1: $i2\n";
    my $interval = $i1 + ($i2*$i1);
    print "waiting for $interval seconds...\n";
    sleep($interval);
    $i1 = int(rand(5)+1);
    $i2 = int(rand(2));
    $i++;
}

Sample output:

1: 0
waiting for 1 seconds...
4: 0
waiting for 4 seconds...
1: 1
waiting for 2 seconds...
4: 1
waiting for 8 seconds...
4: 0
waiting for 4 seconds...
4: 1
waiting for 8 seconds...
4: 0
waiting for 4 seconds...
5: 0
waiting for 5 seconds...
1: 1
waiting for 2 seconds...
1: 1
waiting for 2 seconds...