BOL: Fill up the form and blast with perl

X

BOL wishing you a very and Happy New year

Alternative content

BioScripts
BioStar
Fill up the form and blast with perl

Fill up the form and blast with perl

By BioStar 2556 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;