https://bioinformaticsonline.com/snippets/view/34803/fill-up-the-form-and-blast-with-perl? https://bioinformaticsonline.com/snippets/view/34803/fill-up-the-form-and-blast-with-perl Sat, 23 Dec 2017 03:48:52 -0600 https://bioinformaticsonline.com/snippets/view/34803/fill-up-the-form-and-blast-with-perl 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;]]> BioStar