![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
PerlのLWP::UserAgentを使用してGETのサンプルコードと実際に動作させた結果を以下に記します。
htmlinsert(): The given local file does not exist or is not readable.
LWP::UserAgentがインストールされていない場合はインストールしてください。
例えばUbuntu(12.04で確認)の場合、端末から以下のコマンドを入力すればインストールされます。
sudo apt-get install libwww-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";
}
以下のようにパーミッションを変更し実行した結果です。
サンプルスクリプト内に記述されている 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サンプルスクリプトでした。
htmlinsert(): The given local file does not exist or is not readable.
