Perl/サンプル/LWP UserAgentを使用したGETのサンプルコードの編集

#navi(../)
* LWP::UserAgentを使用したGETのサンプルコード [#h46123b9]
PerlのLWP::UserAgentを使用してGETのサンプルコードと実際に動作させた結果を以下に記します。

#contents
#htmlinsert(ll_ads_top.html)

* 関連記事 [#f8a57365]
-[[UbuntuにLWP::UserAgentをapt-getでインストールする>Perl/CPAN/UbuntuにLWP UserAgentをapt-getでインストールする]]

* LWP::UserAgentのパッケージ [#wd0c5e4c]
LWP::UserAgentがインストールされていない場合はインストールしてください。~
例えばUbuntu(12.04で確認)の場合、端末から以下のコマンドを入力すればインストールされます。
 sudo apt-get install libwww-perl

* GETのサンプルPerlスクリプト [#gcf4a706]
以下のPerlスクリプトはGETによりhttp://www.just4fun.biz/に対しGET要求をし取得した内容を表示しています。~
尚、サンプルスクリプトは基本的な動作のみの実装となっています。
#ref(get.pl.zip)
 #!/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のサンプルスクリプト動作結果 [#p3905e5a]
以下のようにパーミッションを変更し実行した結果です。~
サンプルスクリプト内に記述されている 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(ll_ads_btm.html)

タイムスタンプを変更しない

#contents
#htmlinsert(ll_ads_top.html)

* 関連記事 [#f8a57365]
-[[UbuntuにLWP::UserAgentをapt-getでインストールする>Perl/CPAN/UbuntuにLWP UserAgentをapt-getでインストールする]]

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

#htmlinsert(ll_ads_btm.html)

テキスト整形のルールを表示する

Perl/サンプル/LWP UserAgentを使用したGETのサンプルコード の編集

Perl/サンプル/LWP UserAgentを使用したGETのサンプルコードの編集