Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
<textarea class="form-control" name="input-data" id="input-data" rows= +"15"></textarea> <div class="btn-group-lg"> <button type="submit" class="btn btn-primary btn-l +g" id="submit-seq" name="query-seq" value="SFssO806NA96rvTzMiLyoQ" da +ta-toggle="tooltip" title="Search one or more protein sequence(s) for + NES/NLS. Protein sequences must be provided in FASTA format.">Find N +ES/NLS in protein sequence (FASTA)</button> <button type="submit" class="btn btn-primary btn-l +g" id="submit-ac" name="query-ac" value="SFssO806NA96rvTzMiLyoQ" data +-toggle="tooltip" title="Search one or more protein sequence(s) for N +ES/NLS. Protein sequences must be provided by their UniProt AC.">Find + NES/NLS in protein sequence (UniProt AC)</button> <button type="submit" class="btn btn-primary btn-l +g" id="submit-sig1" name="query-sig1" value="SFssO806NA96rvTzMiLyoQ" +data-toggle="tooltip" title="Search NLSdb for all NES/NLS sequences s +imilar to one or more query signal sequence(s).">Find similar NES/NLS + in NLSdb</button> <button type="submit" class="btn btn-primary btn-l +g" id="submit-sig2" name="query-sig2" value="SFssO806NA96rvTzMiLyoQ" +data-toggle="tooltip" title="Evaluate one or more query signal sequen +ce(s) based on the number of nuclear and non-nuclear protein sequence +s they match.">Evaluate NES/NLS</button> </div>
use WWW::Mechanize; my $seq='MAKRGGQLCAGSAPGALGPRSPAPRPLLLLLAGLALVGEARTPGGDGFSLHPPYFNLAEGA +RITASATCGEEAPTRSVSRPTEDLYCKLVGGPVAGGDPNQTIQGQYCDICTAANSNKAHPVSNAIDGTE +RWWQSPPLSRGLEYNEVNVTLDLGQVFHVAYVLIKFANSPRPDLWVLERSTDFGHTYQPWQFFASSKRD +CLERFGPRTLERITQDDDVICTTEYSRIVPLENGEIVVSLVNGRPGALNFSYSPLLRDFTKATNIRLRF +LRTNTLLGHLMGKALRDPTVTRRYYYSIKDISIGGRCVCHGHADVCDAKDPLDPFRLQCACQHNTCGGS +CDRCCPGFNQQPWKPATTDSANECQSCNCHGHAYDCYYDPEVDRRNASQNQDNVYQGGGVCLDCQHHTT +GINCERCLPGFFRAPDQPLDSPHVCRPCDCESDFTDGTCEDLTGRCYCRPNFTGELCAACAEGYTDFPH +CYPLPSFPHNDTREQVLPAGQIVNCDCNAAGTQGNACRKDPRLGRCVCKPNFRGAHCELCAPGFHGPSC +HPCQCSSPGVANSLCDPESGQCMCRTGFEGDRCDHCALGYFHFPLCQLCGCSPAGTLPEGCDEAGRCQC +RPGFDGPHCDRCLPGYHGYPDCHACACDPRGALDQQCGVGGLCHCRPGYTGATCQECSPGFYGFPSCIP +CHCSADGSLHTTCDPTTGQCRCRPRVTGLHCDMCVPGAYNFPYCEAGSCHPAGLAPANPALPETQAPCM +CRAHVEGPSCDRCKPGYWGLSASNPEGCTRCSCDPRGTLGGVTECQGNGQCFCKAHVCGKTCAACKDGF +FGLDYADYFGCRSCRCDVGGALGQGCEPKTGACRCRPNTQGPTCSEPAKDHYLPDLHHMRLELEEAATP +EGHAVRFGFNPLEFENFSWRGYAHMMAIQPRIVARLNVTSPDLFRLVFRYVNRGSTSVNGQISVREEGK +LSSCTNCTEQSQPVAFPPSTEPAFVTVPQRGFGEPFVLNPGIWALLVEAEGVLLDYVVLLPSTYYEAAL +LQHRVTEACTYRPSALHSTENCLVYAHLPLDGFPSAAGTEALCRHDNSLPRPCPTEQLSPSHPPLATCF +GSDVDIQLEMAVPQPGQYVLVVEYVGEDSHQEMGVAVHTPQRAPQQGVLNLHPCPYSSLCRSPARDTQH +HLAIFYLDSEASIRLTAEQAHFFLHSVTLVPVEEFSTEFVEPRVFCVSSHGTFNPSSAACLASRFPKPP +QPIILKDCQVLPLPPDLPLTQSQELSPGAPPEGPQPRPPTAVDPNAEPTLLRHPQGTVVFTTQVPTLGR +YAFLLHGYQPVHPSFPVEVLINGGRIWQGHANASFCPHGYGCRTLVLCEGQTMLDVTDNELTVTVRVPE +GRWLWLDYVLIVPEDAYSSSYLQEEPLDKSYDFISHCATQGYHISPSSSSPFCRNAATSLSLFYNNGAL +PCGCHEVGAVSPTCEPFGGQCPCRGHVIGRDCSRCATGYWGFPNCRPCDCGARLCDELTGQCICPPRTV +PPDCLVCQPQSFGCHPLVGCEECNCSGPGVQELTDPTCDMDSGQCRCRPNVAGRRCDTCAPGFYGYPSC +RPCDCHEAGTMASVCDPLTGQCHCKENVQGSRCDQCRVGTFSLDAANPKGCTRCFCFGATERCGNSNLA +RHEFVDMEGWVLLSSDRQVVPHEHRPEIELLHADLRSVADTFSELYWQAPPSYLGDRVSSYGGTLHYEL +HSETQRGDIFIPYESRPDVVLQGNQMSIAFLELAYPPPGQVHRGQLQLVEGNFRHLETHNPVSREELMM +VLAGLEQLQIRALFSQTSSSVSLRRVVLEVASEAGRGPPASNVELCMCPANYRGDSCQECAPGYYRDTK +GLFLGRCVPCQCHGHSDRCLPGSGICVGCQHNTEGDQCERCRPGFVSSDPSNPASPCVSCPCPLAVPSN +NFADGCVLRNGRTQCLCRPGYAGASCERCAPGFFGNPLVLGSSCQPCDCSGNGDPNMIFSDCDPLTGAC +RGCLRHTTGPHCERCAPGFYGNALLPGNCTRCDCSPCGTETCDPQSGRCLCKAGVTGQRCDRCLEGYFG +FEQCQGCRPCACGPAAKGSECHPQSGQCHCQPGTTGPQCLECAPGYWGLPEKGCRRCQCPRGHCDPHTG +HCTCPPGLSGERCDTCSQQHQVPVPGKPGGHGIHCEVCDHCVVLLLDDLERAGALLPAIREQLQGINAS +SAAWARLHRLNASIADLQSKLRSPPGPRYQAAQQLQTLEQQSISLQQDTERLGSQATGVQGQAGQLLDT +TESTLGRAQKLLESVRAVGRALNELASRMGQGSPGDALVPSGEQLRWALAEVERLLWDMRTRDLGAQGA +VAEAELAEAQRLMARVQEQLTSFWEENQSLATHIRDQLAQYESGLMDLREALNQAVNTTREAEELNSRN +QERLKEALQWKQELSQDNATLKATLQAASLILGHVSELLQGIDQAKEDLEHLAASLDGAWTPLLKRMQA +FSPASSKVDLVEAAEAHAQKLNQLAINLSGIILGINQDRFIQRAVEASNAYSSILQAVQAAEDAAGQAL +RQASRTWEMVVQRGLAAGARQLLANSSALEETILGHQGRLGLAQGRLQAAGIQLHNVWARKNQLAAQIQ +EAQAMLAMDTSETSEKIAHAKAVAAEALSTATHVQSQLQGMQKNVERWQSQLGGLQGQDLSQVERDASS +SVSTLEKTLPQLLAKLSRLENRGVHNASLALSANIGRVRKLIAQARSAASKVKVSMKFNGRSGVRLRTP +RDLADLAAYTALKFHIQSPVPAPEPGKNTGDHFVLYMGSRQATGDYMGVSLRNQKVHWVYRLGKAGPTT +LSIDENIGEQFAAVSIDRTLQFGHMSVTVEKQMVHEIKGDTVAPGSEGLLNLHPDDFVFYVGGYPSNFT +PPEPLRFPGYLGCIEMETLNEEVVSLYNFEQTFMLDTAVDKPCARSKATGDPWLTDGSYLDGSGFARIS +FEKQFSNTKRFDQELRLVSYNGIIFFLKQESQFLCLAVQEGTLVLFYDFGSGLKKADPLQPPQALTAAS +KAIQVFLLAGNRKRVLVRVERATVFSVDQDNMLEMADAYYLGGVPPEQLPLSLRQLFPSGGSVRGCIKG +IKALGKYVDLKRLNTTGISFGCTADLLVGRTMTFHGHGFLPLALPDVAPITEVVYSGFGFRGTQDNNLL +YYRTSPDGPYQVSLREGHVTLRFMNQEVETQRVFADGAPHYVAFYSNVTGVWLYVDDQLQLVKSHERTT +PMLQLQPEEPSRLLLGGLPVSGTFHNFSGCISNVFVQRLRGPQRVFDLHQNMGSVNVSVGCTPAQLIET +SRATAQKVSRRSRQPSQDLACTTPWLPGTIQDAYQFGGPLPSYLQFVGISPSHRNRLHLSMLVRPHAAS +QGLLLSTAPMSGRSPSLVLFLNHGHFVAQTEGPGPRLQVQSRQHSRAGQWHRVSVRWGMQQIQLVVDGS +QTWSQKALHHRVPRAERPQPYTLSVGGLPASSYSSKLPVSVGFSGCLKKLQLDKRPLRTPTQMVGVTPC +VSGPLEDGLFFPGSEGVVTLELPKAKMPYVSLELEMRPLAAAGLIFHLGQALATPYMQLKVLTEQVLLQ +ANDGAGEFSTWVTYPKLCDGRWHRVAVIMGRDTLRLEVDTQSNHTTGRLPESLAGSPALLHLGSLPKSS +TARPELPAYRGCLRKLLINGAPVNVTASVQIQGAVGMRGCPSGTLALSKQGKALTQRQAKPSVSPLLWH +'; my $url = 'https://rostlab.org/services/nlsdb/'; my $mech = WWW::Mechanize->new(); $mech->get($url); $mech->submit_form ( form_number => 1, fields => { #textarea name | value "input-data" => $seq, #select button "query-seq" => on } ); my $result = $mech->content(); print $result;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Problem submitting a web-form
by 1nickt (Canon) on Feb 13, 2018 at 13:59 UTC | |
|
Re: Problem submitting a web-form
by Anonymous Monk on Feb 14, 2018 at 14:31 UTC |