Yes, of course, I added some:
my $url = 'http://www.csbio.sjtu.edu.cn/cgi-bin/MEMBRAIN.cgi';
my $mech = WWW::Mechanize->new (timeout=>1000);
$mech->get($url);
$mech->submit_form
(
form_number => 1,
fields =>
{
#textarea name | value
S1 => ">$id\n$seq",
#Radio button name | prediction type
R4 => TOPpre,
#Radio button SIGNAL | I do not know if I have a signa
+l peptide
R2 => SignalYES,
#Radio button ORGANISM | Human, Plant, Animal, OEuk, G
+pos, Gneg,
R3 => Human,
#Fill in email
email => 'testmail@gmail.com'
}
);
|