adjust this

use WWW::Mechanize ();
my $mech = WWW::Mechanize->new();
 
$mech->get( $url );   # the address in your browser

 
$mech->submit_form(
    form_name => 'search',                         # the form name in 
+the code
    fields    => { query  => 'pot of gold', },     # parameters
    button    => 'Search Now'                      # button
);
[download]

I'm AFK now, TTYL.

Hi Rolf, many thanks for trying to help out and apologies if I seem to not get it... I tried your code (which I think is pretty much what I have now), and the error still the same.


use WWW::Mechanize();

while(<>)
{
if($_=~/^>(.*)/)
  {
    my $id=$1; 
    my  $seq=<>; chomp $seq; 

     print "$id\n";
     my $url = 'http://www.csbio.sjtu.edu.cn/bioinf/MemBrain/';  #what
+ I see in the browser, as you said
     my $mech = WWW::Mechanize->new();
     $mech->get($url);

     $mech->submit_form
     (
         form_name => 'myform',
         fields      => 
            {
                #textarea name | value
                S1 => ">$id\n$seq",

                #Radio button one with value (parameter 1)
                R4    =>  'TOPpre',

                #Radio button one with value (parameter 2)
                R2    =>  'SignalYES',

                #Radio button one with value (parameter 3)
                R3    =>  'Human',

                #Fill in email (parameter 4)
                email => 'myemail@gmail.com'
            }
        );
    }
}
[download]


The code executes until I print the id and then exits, with the error that I have posted earlier. I specified the form_name too, but nothing...

You didn't provide a SSCCE because your input is read manually.

My guess is that your data is wrong. I also get an error with random data.

So please test the validity on the website manually.

And try to disable JS in your browser to see if it's needed.

WWW::Mechanize can't do JS.

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery}