use strict; use warnings; use WWW::Mechanize; use WWW::Mechanize::FormFiller; use HTML::Parser; use autodie qw/ open close /; use 5.012; my $browser = WWW::Mechanize->new(autocheck => 1); my $formfiller = WWW::Mechanize::FormFiller->new(); my $snp = "rs111"; my $response; my $URL ="http://snp-nexus.org/index.html"; $browser->get($URL); $response = $browser->post( $URL, [ 'query'=>'dbsnp', 'dbsnp_id'=> 'rs111', 'ensembl'=> 'ensembl', 'refseq'=>'refseq', 'ucsc'=>'ucsc', 'sift'=>'sift', 'polyphen'=>'polyphen', 'chb'=>'chb', 'chd'=>'chd', 'tfbs'=>'tfbs', 'consv'=>'consv', 'gwas'=>'gwas', 'indel'=>'indel', 'mirbase' =>'mirbase', 'gad'=>'gad', 'cnp' => 'cnp', 'vcf'=>'txt', 'value'=>'Run', ] ); print $browser-> content();
use strict; use warnings; use WWW::Mechanize; use WWW::Mechanize::FormFiller; use HTML::Parser; use autodie qw/ open close /; use 5.012; my $browser = WWW::Mechanize->new(autocheck => 1); my $formfiller = WWW::Mechanize::FormFiller->new(); my $snp = "rs111"; my $response; my $resp; $browser->get("http://snp-nexus.org/index.html"); $browser->form_name ('snpnexus'); $browser->select('query', 'dbsnp'); $browser->field('dbsnp_id', 'rs111'); $browser->tick('ensembl', "ensembl"); $browser->tick('refseq','refseq'); $browser->tick('ucsc','ucsc'); $browser->tick("sift",'sift'); $browser->tick("polyphen",'polyphen'); $browser->tick("chb",'chb'); $browser->tick("chd",'chd'); $browser->tick("tfbs",'tfbs'); $browser->tick("consv",'consv'); $browser->tick("gwas",'gwas'); $browser->tick("indel",'indel'); $browser->tick("mirbase" ,'mirbase'); $browser->tick('gad','gad'); $browser->tick('cnp' , 'cnp' ); $browser->submit('snpnexus','Run');
In reply to Perl Mechanize by zoya
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |