![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
LWP::UserAgentを使用したGETのサンプルコード †PerlのLWP::UserAgentを使用してGETのサンプルコードと実際に動作させた結果を以下に記します。 スポンサーリンク 関連記事 †LWP::UserAgentのパッケージ †LWP::UserAgentがインストールされていない場合はインストールしてください。 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のサンプルスクリプト動作結果 †以下のようにパーミッションを変更し実行した結果です。 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サンプルスクリプトでした。 スポンサーリンク |
