# URL for primer3 my $url = 'http://frodo.wi.mit.edu/cgi-bin/primer3/primer3_www.cgi'; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->get($url); # set up input to form $mech->field('SEQUENCE','ACAGCNTCTGTTGACTCCCCTGCCAGCAAGCCCACTGGCCTGAGC +ACATGAAGTCCTGCACCCAGTCAGGAGAAGGAGCGCTCCTGGCACCAGCAGGAGCTGGCAAAGGCTCTG +GAGAGCTTAGAAAGGGAAAAAATGGAGCTGGAAATGAGGCTAAAGGAGCAGCAGACAGAAATGGAGGCC +ATCCAGGCCCAGAGGGAAGAAGAACGGACCCAGGCAGAGAGTGCCCTATGCCAGATGCAGCTGGAAACA +GAGAAGGAGAGAGTATCCCTCCTGGAGACACTGCTGCAGACGCAGAAGGAGCTAGCAGATGCCAGCCAA +CAACTGGACGGAACTGAGGCAA'); $mech->field('PRIMER_NUM_RETURN',1); # just for debugging purposes print $mech->content(); # Get response by clicking submit button my $resp = $mech->click('Pick Primers'); print "\n\n******* AND Response *********\n\n"; print $resp->content();
I can't figure out why this is the case. The web page works fine interactively and the CGI script that handles the response does a simple check likeDid not see the 'Pick Primers' query parameter at /usr/local/apache2/c +gi-bin/primer3/primer3_www_results.cgi line 117 main::main() called at /usr/local/apache2/cgi-bin/primer3/prim +er3_www_results.cgi line 105
Any help would be much appreciated.if ($query->param('Pick Primers')) { process_input($query); } else { confess "Did not see the 'Pick Primers' query parameter" }
In reply to WWW::Mechanize and submit button question by srdst13
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |