******************************************** #!/usr/bin/perl my $URLtoPostTo="http://tools.immuneepitope.org/tools/bcell/bcell_Pred +iction"; my %Fields = ( "swId" => "P02185", "sequence" => ">sp|P02185|MYG_PHYCA Myoglobin OS=Physeter catodon G +N=MB PE=1 SV=2 MVLSEGEWQLVLHVWAKVEADVAGHGQDILIRLFKSHPETLEKFDRFKHLKTEAEMKASE DLKKHGVTVLTALGAILKKKGHHEAELKPLAQSHATKHKIPIKYLEFISEAIIHVLHSRH PGDFGADAQGAMNKALELFRKDIAAKYKELGYQG", "method" => '5' ); use strict; use LWP::UserAgent; use HTTP::Request::Common; my $Browser = new LWP::UserAgent; if($BrowserName) { $Browser->agent($BrowserName); } my $Page = $Browser->request(POST $URLtoPostTo,\%Fields); if ($Page->is_success) { print $Page->content; } else { print "HTTP request failure \n"; print $Page->message; } **********************************************************
Please let me know if there is any solution for this program. I am not able to find out.
In reply to LWP problem by perl.crazy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |