This code is untested as I dont have internet access from a machine running perl at the moment.#!/usr/bin/perl use WWW::Mechanize; # URL for primer3 my $url = 'http://frodo.wi.mit.edu/cgi-bin/primer3/primer3_www.cgi'; my $mech = WWW::Mechanize->new(); $mech->get($url); $sequence='ACAGCNTCTGTTGACTCCCCTGCCAGCAAGCCCACTGGCCTGAGCACATGAAGTCCTGC +ACCCAGTCAGGAGAAGGAGCGCTCCTGGCACCAGCAGGAGCTGGCAAAGGCTCTGGAGAGCTTAGAAAG +GGAAAAAATGGAGCTGGAAATGAGGCTAAAGGAGCAGCAGACAGAAATGGAGGCCATCCAGGCCCAGAG +GGAAGAAGAACGGACCCAGGCAGAGAGTGCCCTATGCCAGATGCAGCTGGAAACAGAGAAGGAGAGAGT +ATCCCTCCTGGAGACACTGCTGCAGACGCAGAAGGAGCTAGCAGATGCCAGCCAACAACTGGACGGAAC +TGAGGCAA'; $primernum='1'; $mech->submit_form( form_number => 1, fields => { SEQUENCE => $sequence, PRIMER_NUM_RETURN => $primernum, } ); # and so fourth...
In reply to Re: WWW::Mechanize and submit button question
by marto
in thread WWW::Mechanize and submit button question
by srdst13
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |