HTTPクライアントの作成（HTTP::Liteを利用）

HTTPクライアントサンプル

以下にHTTP::Liteを利用したクライアントを示します。 サンプルは、HTTPによって取得したHTML文を全てそのまま表示します。 bodyはHTTPのbodyであり、HTMLのBODYタグの中身ではないのでご注意下さい。

#!/usr/bin/perl

use HTTP::Lite;

$http = new HTTP::Lite;

# URL部分を変更して下さい
$req = $http->request("http://www.hogehogeURL.com/") || die $!;

print $http->body();

exit;