in reply to Re: What Tools Do You Use With WWW::Mechanize
in thread What Tools Do You Use With WWW::Mechanize
Greetings, esteemed monks!
I like computer programming because it's like Legos for the mind.
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?
Sample output:#!/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++; }
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...
I like computer programming because it's like Legos for the mind.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: What Tools Do You Use With WWW::Mechanize
by Limbic~Region (Chancellor) on Oct 04, 2011 at 18:43 UTC | |
by OfficeLinebacker (Chaplain) on Oct 05, 2011 at 13:34 UTC |
In Section
Seekers of Perl Wisdom