Use REST service via a proxy server with LWP

From WABI

Contents 1 Summary 2 Description 3 Sample program 4 Links

Summary

Use REST service via a proxy server with LWP

Description

Specify proxy server as follows.

use LWP::UserAgent;
$ua = new LWP::UserAgent;
# set proxy server
$ua->proxy('http', '<proxy_server>:<proxy_port>');

Sample program

This program uses LWP,executes GetEntry:getDDBJEntry via a proxy server.
Download this program

use LWP::UserAgent;
$ua = new LWP::UserAgent;

# set proxy server
$ua->proxy('http', '<proxy_server>:<proxy_port>');

# make request
my $req = new HTTP::Request POST => 'http://xml.ddbj.nig.ac.jp/rest/Invoke';
$req->content_type('application/x-www-form-urlencoded');

# set parameters
$req->content('service=GetEntry&method=getDDBJEntry&accession=AB000100');

# send request and get response.
my $res = $ua->request($req);

# show response.
print $res->content;

Links

Japanese page