このエントリーをはてなブックマークに追加


LWP::UserAgentを使用したGETのサンプルコード

PerlのLWP::UserAgentを使用してGETのサンプルコードと実際に動作させた結果を以下に記します。


スポンサーリンク

関連記事

LWP::UserAgentのパッケージ

LWP::UserAgentがインストールされていない場合はインストールしてください。
例えばUbuntu(12.04で確認)の場合、端末から以下のコマンドを入力すればインストールされます。

sudo apt-get install libwww-perl

GETのサンプルPerlスクリプト

以下のPerlスクリプトはGETによりhttp://www.just4fun.biz/に対しGET要求をし取得した内容を表示しています。
尚、サンプルスクリプトは基本的な動作のみの実装となっています。

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new();
#$ua->agent('LWP');
my $req = GET('http://www.just4fun.biz/');
my $res = $ua->request($req);

if ($res->is_success) {
#  print $res->as_string;
  print $res->content;
}
else {
  print $res->status_line . "\n";
}

GETのサンプルスクリプト動作結果

以下のようにパーミッションを変更し実行した結果です。
サンプルスクリプト内に記述されている http://www.just4fun.biz/ にアクセス(GET)し、
取得した情報を表示させています。

sakura@sakura:~$ chmod +x get.pl 
sakura@sakura:~$ ./get.pl 
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><title>www.just4fun.biz</title>
</head>
<body>
<table border="0" align="center">
<tr><td><font size="+3"> www.just4fun.biz</font></td></tr>
<tr><td><hr></td></tr>
<tr><td>CONTENTS</td></tr>
<tr><td><ul>
<li><a href="http://linux.just4fun.biz">Linuxと過ごす - linux.just4fun.biz</a></li>
<li><a href="http://win.just4fun.biz">Windowsと暮らす - win.just4fun.biz</a></li>
<li><a href="http://db.just4fun.biz">調べる.db - db.just4fun.biz</a></li>
<li><a href="http://web.just4fun.biz">ウェブ関連技術調査 - web.just4fun.biz</a></li>
</ul></td></tr>
<tr><td><hr></td></tr>
<tr><td> (C) 2007- <a href="http://www.sakura-it.com/">IT SUPPORT SAKURA CO., Ltd.</a>
<tr><td>
</table>
</body>
</html>

以上、LWP::UserAgentなどを使用したGETサンプルスクリプトでした。


スポンサーリンク


添付ファイル: fileget.pl.zip 100件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-03-20 (金) 22:31:42 (1247d)