BOL: Fill up the form and blast with perl

BioScripts
BioStar
Fill up the form and blast with perl

Fill up the form and blast with perl

By BioStar 2525 days ago

use WWW::Mechanize;
use strict;
use warnings;
my $mech = WWW::Mechanize->new;

my $sequence = 'GCCCGCGGTCTCAGAGATCTCGATATATTATA';

$mech->get('http://www.arabidopsis.org/Blast/');
$mech->submit_form(
  form_name => 'myForm',
  fields => {
    'Algorithm' => 'blastx',
    'BlastTargetSet' => 'ATH1_pep',
    'QueryText' => $sequence,
  },
);

print $mech->content;