perlquestion
waoverholt
<p>
Hello Monks,
</p>
<p>
I am a relatively new perl user (still very much the beginner) and I am working on a script to interface with a website (http://linux1.softberry.com/berry.phtml?topic=fgenesb&group=programs&subgroup=gfindb).
</p>
<p>
Essentially I would like to upload a local file to that form, select a different "closest organism", hit "Process", and then download the resulting textfile to my computer.
</p>
<p>
Running the code:
</p>
<c> $mech->dump_forms();
</c>
<p>
seems to work at finding those forms but I'm not quite sure how to navigate the fields. Here is what I have so far. Obviously incomplete for the task, but even the first checks fail.
</p>
<p>
Thanks for taking the time to read this and any advice would be greatly appreciated.
</p>
<p>
- waoverholt
</p>
<c>
use warnings;
use strict;
use WWW::Mechanize;
my $genome_file = $ARGV[0];
my $agent = WWW::Mechanize->new();
my $url = "http://linux1.softberry.com/berry.phtml?topic=fgenesb&group=programs&subgroup=gfindb";
my $results = $agent->get($url);
die "GET failed" unless $results->is_success;
#$agent->dump_forms();
my $form1 = $agent->form_name("FILE"); die unless $form1->success;
my $form1_info = $agent->field("FILE", $genome_file); die unless $form1_info->is_success;
$agent->select();
$agent->form_name('org');
$agent->field("option", "ARCHAE BACTERIAL generic");
$agent->click();
$agent->form_name('Process');
</c>