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 … 技術評論社

が返ってきました。

深夜特急〈1〉香港・マカオ

深夜特急1―香港・マカオ― (新潮文庫)

• 出版社/メーカー: 新潮社
• 発売日: 1994/03/30
• メディア: Kindle版

 

日本のノンフィクション作家、エッセイスト、小説家、写真家である、沢木 耕太郎氏の紀行小説。

全6巻の１巻目であり、旅の始まりである、香港、マカオの旅の紀行となっている。

最初に産経新聞に掲載されたのが1986年とのことなので、20年以上前の香港、マカオの様子が書かれている。この地は15年ほど前に行ったことがあるので、所々かすかな記憶が思い返され、楽しく読み進めることができた。

今となってはこの本のような経験はできないと思うけど、もう一度行ってみたいと思わせられる本だった。