Access to G-Links via POST method.
#!/usr/bin/env perl | |
use strict; | |
use LWP::Simple; | |
use LWP::UserAgent; | |
use HTTP::Request::Common qw/POST/; | |
my %form_data = ( | |
"query" => _return_seq(), | |
"format" => "nt", | |
"direct" => 1, | |
); | |
my $serv_url = "http://link.g-language.org/index.cgi"; | |
my $ua = LWP::UserAgent->new(); | |
my $request = POST($serv_url, [%form_data]); | |
$ua->request($request, | |
sub{ | |
my($data, $response) = @_; | |
if ( $response->is_error() ) { | |
die ("Problems with the web server: ".$response->status_line); | |
} else { # $response->is_success() | |
print "$data"; | |
} | |
},1000); | |
sub _return_seq { | |
return<<SEQ; | |
MMQESATETISNSSMNQNGMSTLSSQLDAGSRDGRSSGDTSSEVSTVELLHLQQQQALQA | |
ARQLLLQQQTSGLKSPKSSDKQRPLQVPVSVAMMTPQVITPQQMQQILQQQVLSPQQLQA | |
LLQQQQAVMLQQQQLQEFYKKQQEQLHLQLLQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ | |
QQQQQQQQQQQHPGKQAKEQQQQQQQQQQLAAQQLVFQQQLLQMQQLQQQQHLLSLQRQG | |
LISIPPGQAALPVQSLPQAGLSPAEIQQLWKEVTGVHSMEDNGIKHGGLDLTTNNSSSTT | |
SSNTSKASPPITHHSIVNGQSSVLSARRDSSSHEETGASHTLYGHGVCKWPGCESICEDF | |
GQFLKHLNNEHALDDRSTAQCRVQMQVVQQLEIQLSKERERLQAMMTHLHMRPSEPKPSP | |
KPLNLVSSVTMSKNMLETSPQSLPQTPTTPTAPVTPITQGPSVITPASVPNVGAIRRRHS | |
DKYNIPMSSEIAPNYEFYKNADVRPPFTYATLIRQAIMESSDRQLTLNEIYSWFTRTFAY | |
FRRNAATWKNAVRHNLSLHKCFVRVENVKGAVWTVDEVEYQKRRSQKITGSPTLVKNIPT | |
SLGYGAALNASLQAALAESSLPLLSNPGLINNASSGLLQAVHEDLNGSLDHIDSNGNSSP | |
GCSPQPHIHSIHVKEEPVIAEDEDCPMSLVTTANHSPELEDDREIEEEPLSEDLE | |
SEQ | |
} |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
This comment has been minimized.
cory-ko-g commentedNov 17, 2011
POST amino-acid sequence to Restauro-G v2 (output is tabular format)