<?xml version="1.0" encoding="windows-1252"?>
<node id="929634" title="Re^2: What Tools Do You Use With WWW::Mechanize" created="2011-10-04 14:27:20" updated="2011-10-04 14:27:20">
<type id="11">
note</type>
<author id="544128">
OfficeLinebacker</author>
<data>
<field name="doctext">
Greetings, esteemed monks!&lt;p&gt;  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?&lt;/p&gt;
&lt;code&gt;
#!/usr/bin/perl --
use strict;
use warnings;

my $i1 = int(rand(5)+1);
my $i2 = int(rand(2));
my $i = 0;

while ($i&lt;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++;
}
&lt;/code&gt;
Sample output:
&lt;code&gt;
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...
&lt;/code&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-544128"&gt;
&lt;hr&gt;
I like computer programming because it's like Legos for the mind.

&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
929348</field>
<field name="parent_node">
929425</field>
</data>
</node>
