LWP::UserAgent をプロキシ環境で使用する。[perl]

以下のコードを実行すると、”500 Can't connect to gihyo.jp:80 (Bad hostname 'gihyo.jp')”となる。プロキシサーバー環境のため、Linuxコンソールの環境変数にプロキシを設定したが解決できない。

use URI;
use LWP::UserAgent;

my    $uri = URI->new('http://gihyo.jp/');
my    $ua = LWP::UserAgent->new();
my $res= $ua->get( $uri );
die $res->status_line if $res->is_error;

my ($title) = $res->content =~ m!<title>(.+?)</title>!i;
print "$title\n";

WEB情報を調べた結果、 $ua->env_proxy; というコードを見かけたので追加してみた。

my    $uri = URI->new('http://gihyo.jp/');
my    $ua = LWP::UserAgent->new();
    $ua->env_proxy;
my $res= $ua->get( $uri );
die $res->status_line if $res->is_error;

my ($title) = $res->content =~ m!<title>(.+?)</title>!i;
print "$title\n";

これで解決！

トップページ｜gihyo.jp … 技術評論社

が返ってきました。