in reply to www::mechanize: second "submit" invisible to find_all_submits

automate ... HIV lanl ...

Why?

perl HIV lanl -> http://www.hiv.lanl.gov/content/sequence/SNAP/perlsnap.html -> Bio::DB::HIV - Database object interface to the Los Alamos HIV Sequence Database

So for some reason "Bio::DB::HIV" is inadequate for your purposes ... you can still probably learn something from it :)

Sorry, but this is the extent of my interest :)

  • Comment on Re: www::mechanize: second "submit" invisible to find_all_submits

Replies are listed 'Best First'.
Re^2: www::mechanize: second "submit" invisible to find_all_submits
by Anonymous Monk on Dec 08, 2014 at 08:04 UTC

      This excellent suggestion is a good start, but it doesn't get me there. I've altered the code to fit my current understanding, but my $mech object, even after the post, still represents the initial page, not the results page.

      I'm encouraged that I can in fact retrieve the initial page, but discouraged not to be able to get to the results (whether I upload the sequences as a file via the 'upfile1' attribute, or, as below, include them as a text field). Here's what I have:

      #!/usr/bin/perl use warnings; use strict; use WWW::Mechanize; my $hypermutUrl = "http://www.hiv.lanl.gov/content/sequence/HYPERMUT/hypermut.html"; my $mech = WWW::Mechanize->new( autocheck => 1 ); my $alignment_as_string = <<'END_SEQS'; >HIV1-test.CONS ATGGGATGTCTTGGGAATCAGCTGCTTATCGCGCTCTTGCTAGTAAGTGCTTTAGAGATTTATTGTGTTC >HIV1-test.1 ATGGAATGTCTTGGAAATCAGCTGCTTATCGCGCTCTTGCTAGTAAGTGCTTTAAAGATTTATTGTGTTC >HIV1-test.2 ATGGAATGTCTTGGGAATCAGCTGCTTATCGCGCTCTTGCTAGTAAGTGCTTTAAAGATTTATTGTGTTC END_SEQS $mech->post( $hypermutUrl, 'FORMAT' => 'FASTA', 'ALIGNMENT' => $alignment_as_string, 'upfile1' => '', 'INN' => '', 'OUT' => '', 'MUTUPSTREAM' => '', 'MUTFROM' => 'G', 'MUTTO' => 'A', 'MUTDOWNSTREAM' => 'RD', 'ENFORCE' => 'DESCENDANT', 'CONTROLUPSTREAM' => '', 'CONTROLFROM' => 'G', 'CONTROLTO' => 'A', 'CONTROLDOWNSTREAM' => 'YN|RC', 'Analysis' => 'All', 'submit' => 'Run', ); my $page = $mech->content; open my $FH, ">/tmp/hypermut.html"; print {$FH} $page; close $FH; warn "saved webpage data to /tmp/hypermut.html\n";

      I would expect the post operation to add the page resulting from that post to my $mech object -- where am I going wrong?