Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <pre><code>$browser-&gt;field("Choose an organism : ", "Mus musculus"); </code></pre> <p>For clarity, can be:</p> <pre><code>$browser-&gt;select("Choose an organism : ", "Mus musculus"); </code></pre> <p>And you should use the <code>submit</code> method.</p> <pre><code>$browser-&gt;submit(); </code></pre> <p>This:</p> <pre><code>use strict; use warnings; use WWW::Mechanize; # create object for browser my $browser = WWW::Mechanize-&gt;new(); my ($sequence, $results); $sequence = &lt;&lt;END; AAACACACTGGGGAATGGAGCAAGACAGTCTTTGAATATCAAACACGCAAGGCAATGAGACTACCCATCATAGATATCGCACCCTATGACATTGGGGGTCCTGATCAAGAATTTGGTGTGGACATTGGCCCTGTTTGCTTTTTATAAGCCAAACTCTCTGAAACCCCAGCAAAACAAAAACCACATCCATGTGTTCATCTTGTTTTAATCTTATCAACCAGTGCAAGTGACCAACTAAATTCCAGTTATTTATTTCCAAACTTTTGGAAAAAGCATAATTTGACAAAAAAAGAATACAATTTTTTGCTGTTTCAACCACCCAATACAGGTCAAATGCTTTTGTTTTATTTTTTTACCAATTCCAACTTCAAAATGTCTCAATGGTGCTATAATAAATAAACGTCAACACTTTTATGATAA END $browser-&gt;get("http://bioinfo.uni-plovdiv.bg/microinspector/"); $browser-&gt;form_number(1); $browser-&gt;field("target_sequence", $sequence); $browser-&gt;select("Choose an organism : ", "Mus musculus"); #my $response = $browser-&gt;click_button( number =&gt; 1); my $response = $browser-&gt;submit(); print $response-&gt;content(); </code></pre> <p>Returns:</p> <pre><code>&lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"&gt; &lt;html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"&gt; &lt;head&gt; &lt;title&gt;A New MiRNA Program&lt;/title&gt; &lt;meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /&gt; &lt;/head&gt; &lt;body&gt; &lt;IMG SRC='Bio::Graphics::Panel=HASH(0x1ed39c8)-&gt;png'&gt;&lt;H1 align=center&gt;RESULTS&lt;/H1&gt;&lt;TABLE align=center border CELLPADING=10 CELLSPASING=0&gt;&lt;THEAD bgcolor=#C0C0C0 NOWRAP align=center&gt;&lt;TR&gt; &lt;TD&gt;POSITION&lt;/TD&gt;&lt;TD&gt;SEQUENCE OF TARGET&lt;/TD&gt;&lt;TD&gt;NAME OF MIRNA&lt;/TD&gt;&lt;TD&gt;SEQUENCE OF MIRNA&lt;/TD&gt;&lt;TD&gt;FREE ENERGY&lt;/TD&gt;&lt;TD&gt;LINK (SEC.STRUCTURE .ps)&lt;/TD&gt; &lt;TBODY&gt;&lt;tr align=center nowrap&gt;&lt;td&gt;54&lt;/td&gt;&lt;td&gt;ATGAGACTACCCATCATAGATATCGCACCCTA&lt;/td&gt;&lt;td&gt;mmu-miR-342-5p&lt;/td&gt;&lt;td&gt;aggggugcuaucugugauugag&lt;/td&gt;&lt;td&gt;-27.8&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/54seqmmu-miR-342-5p.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;22&lt;/td&gt;&lt;td&gt;AGACAGTCTTTGAATATCAAACACGCAAGGCA&lt;/td&gt;&lt;td&gt;mmu-miR-669e&lt;/td&gt;&lt;td&gt;ugucuugugugugcauguucau&lt;/td&gt;&lt;td&gt;-27.1&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/22seqmmu-miR-669e.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;97&lt;/td&gt;&lt;td&gt;GTCCTGATCAAGAATTTGGTGTGGACATTGGC&lt;/td&gt;&lt;td&gt;mmu-miR-199a-5p&lt;/td&gt;&lt;td&gt;cccaguguucagacuaccuguuc&lt;/td&gt;&lt;td&gt;-25.2&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/97seqmmu-miR-199a-5p.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;93&lt;/td&gt;&lt;td&gt;GGGGGTCCTGATCAAGAATTTGGTGTGGACAT&lt;/td&gt;&lt;td&gt;mmu-miR-124-star&lt;/td&gt;&lt;td&gt;cguguucacagcggaccuugau&lt;/td&gt;&lt;td&gt;-25.2&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/93seqmmu-miR-124-star.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;202&lt;/td&gt;&lt;td&gt;TTTTAATCTTATCAACCAGTGCAAGTGACCAA&lt;/td&gt;&lt;td&gt;mmu-miR-150-star&lt;/td&gt;&lt;td&gt;cugguacaggccugggggauag&lt;/td&gt;&lt;td&gt;-24.2&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/202seqmmu-miR-150-star.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;128&lt;/td&gt;&lt;td&gt;CCCTGTTTGCTTTTTATAAGCCAAACTCTCTG&lt;/td&gt;&lt;td&gt;mmu-miR-1966&lt;/td&gt;&lt;td&gt;aagggagcuggcucaggagagaguc&lt;/td&gt;&lt;td&gt;-23.1&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/128seqmmu-miR-1966.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;99&lt;/td&gt;&lt;td&gt;CCTGATCAAGAATTTGGTGTGGACATTGGCCC&lt;/td&gt;&lt;td&gt;mmu-miR-1898&lt;/td&gt;&lt;td&gt;aggucaagguucacaggggauc&lt;/td&gt;&lt;td&gt;-22.9&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/99seqmmu-miR-1898.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;97&lt;/td&gt;&lt;td&gt;GTCCTGATCAAGAATTTGGTGTGGACATTGGC&lt;/td&gt;&lt;td&gt;mmu-miR-199b-star&lt;/td&gt;&lt;td&gt;cccaguguuuagacuaccuguuc&lt;/td&gt;&lt;td&gt;-22.8&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/97seqmmu-miR-199b-star.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;30&lt;/td&gt;&lt;td&gt;TTTGAATATCAAACACGCAAGGCAATGAGACT&lt;/td&gt;&lt;td&gt;mmu-miR-200c-star&lt;/td&gt;&lt;td&gt;cgucuuacccagcaguguuugg&lt;/td&gt;&lt;td&gt;-22.2&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/30seqmmu-miR-200c-star.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;6&lt;/td&gt;&lt;td&gt;ACTGGGGAATGGAGCAAGACAGTCTTTGAATA&lt;/td&gt;&lt;td&gt;mmu-miR-743b-5p&lt;/td&gt;&lt;td&gt;uguucagacugguguccauca&lt;/td&gt;&lt;td&gt;-21.4&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/6seqmmu-miR-743b-5p.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;68&lt;/td&gt;&lt;td&gt;CATAGATATCGCACCCTATGACATTGGGGGTC&lt;/td&gt;&lt;td&gt;mmu-miR-188-5p&lt;/td&gt;&lt;td&gt;caucccuugcaugguggaggg&lt;/td&gt;&lt;td&gt;-21.3&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/68seqmmu-miR-188-5p.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;3&lt;/td&gt;&lt;td&gt;CACACTGGGGAATGGAGCAAGACAGTCTTTGA&lt;/td&gt;&lt;td&gt;mmu-miR-1981&lt;/td&gt;&lt;td&gt;guaaaggcugggcuuagacguggc&lt;/td&gt;&lt;td&gt;-21.1&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/3seqmmu-miR-1981.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;56&lt;/td&gt;&lt;td&gt;GAGACTACCCATCATAGATATCGCACCCTATG&lt;/td&gt;&lt;td&gt;mmu-miR-1894-3p&lt;/td&gt;&lt;td&gt;gcaagggagagggugaagggag&lt;/td&gt;&lt;td&gt;-20.8&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/56seqmmu-miR-1894-3p.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;35&lt;/td&gt;&lt;td&gt;ATATCAAACACGCAAGGCAATGAGACTACCCA&lt;/td&gt;&lt;td&gt;mmu-miR-193-star&lt;/td&gt;&lt;td&gt;ugggucuuugcgggcaagauga&lt;/td&gt;&lt;td&gt;-20.6&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/35seqmmu-miR-193-star.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;156&lt;/td&gt;&lt;td&gt;TCTGAAACCCCAGCAAAACAAAAACCACATCC&lt;/td&gt;&lt;td&gt;mmu-miR-1188&lt;/td&gt;&lt;td&gt;uggugugagguugggccagga&lt;/td&gt;&lt;td&gt;-20.52&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/156seqmmu-miR-1188.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr align=center nowrap&gt;&lt;td&gt;356&lt;/td&gt;&lt;td&gt;CAATTCCAACTTCAAAATGTCTCAATGGTGCT&lt;/td&gt;&lt;td&gt;mmu-miR-680&lt;/td&gt;&lt;td&gt;gggcaucugcugacauggggg&lt;/td&gt;&lt;td&gt;-20.3&lt;/td&gt;&lt;td&gt;&lt;A HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/356seqmmu-miR-680.ps'&gt;image&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;/TBODY&gt;&lt;/TABLE&gt;&lt;/html&gt; &lt;BR&gt; &lt;table align=center&gt; &lt;tr&gt;&lt;td align=center&gt;&lt;A align=center HREF='http://bioinfo.uni-plovdiv.bg/microinspector/cgi/postscript/20110311051243/seq20110311051243.csv'&gt;Results in .CSV format (Right click and 'Save as')&lt;/A&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr&gt;&lt;td&gt;&lt;br&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr&gt;&lt;td&gt;&lt;IMG SRC='/microinspector/cgi/postscript/20110311051243/image.png'&gt;&lt;/td&gt;&lt;/tr&gt;&lt;table&gt;&lt;/table&gt;&lt;BR&gt;&lt;/FORM&gt; &lt;/body&gt; </code></pre> <p>EDIT:</p> <p>A revised script to save the csv files to disk:</p> <pre><code>use strict; use warnings; use WWW::Mechanize; # create object for browser my $browser = WWW::Mechanize-&gt;new(); my $sequence = &lt;&lt;END; AAACACACTGGGGAATGGAGCAAGACAGTCTTTGAATATCAAACACGCAAGGCAATGAGACTACCCATCATAGATATCGCACCCTATGACATTGGGGGTCCTGATCAAGAATTTGGTGTGGACATTGGCCCTGTTTGCTTTTTATAAGCCAAACTCTCTGAAACCCCAGCAAAACAAAAACCACATCCATGTGTTCATCTTGTTTTAATCTTATCAACCAGTGCAAGTGACCAACTAAATTCCAGTTATTTATTTCCAAACTTTTGGAAAAAGCATAATTTGACAAAAAAAGAATACAATTTTTTGCTGTTTCAACCACCCAATACAGGTCAAATGCTTTTGTTTTATTTTTTTACCAATTCCAACTTCAAAATGTCTCAATGGTGCTATAATAAATAAACGTCAACACTTTTATGATAA END $browser-&gt;get("http://bioinfo.uni-plovdiv.bg/microinspector/"); $browser-&gt;form_number(1); $browser-&gt;field("target_sequence", $sequence); $browser-&gt;select("Choose an organism : ", "Mus musculus"); $browser-&gt;submit(); my @links = $browser-&gt;links(); foreach my $link ( @links ){ if( $link-&gt;url() =~ /csv$/i ){ my $result = $browser-&gt;get( $link-&gt;url() ); my $filename = ( $link-&gt;url() =~ /\/([^\/]+)$/ )[0]; print "Saving $filename\n"; open( OUT, "&gt;$filename" ); print OUT $result-&gt;content(); close( OUT ); } } </code></pre>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. This table or related slice is empty.
    2. VO
      singulars
      1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload