Perl/サンプル/LWP UserAgentを使用したGETのサンプルコード
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
* LWP::UserAgentを使用したGETのサンプルコード [#h46123b9]
PerlのLWP::UserAgentを使用してGETのサンプルコードと実際に...
#contents
#htmlinsertpcsp(ll-top.html,ll-sp.html)
* 関連記事 [#f8a57365]
-[[UbuntuにLWP::UserAgentをapt-getでインストールする>Perl...
* LWP::UserAgentのパッケージ [#wd0c5e4c]
LWP::UserAgentがインストールされていない場合はインストー...
例えばUbuntu(12.04で確認)の場合、端末から以下のコマンドを...
sudo apt-get install libwww-perl
* GETのサンプルPerlスクリプト [#gcf4a706]
以下のPerlスクリプトはGETによりhttp://www.just4fun.biz/に...
尚、サンプルスクリプトは基本的な動作のみの実装となってい...
#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....
取得した情報を表示させています。
sakura@sakura:~$ chmod +x get.pl
sakura@sakura:~$ ./get.pl
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; char...
</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と過ごす - ...
<li><a href="http://win.just4fun.biz">Windowsと暮らす - ...
<li><a href="http://db.just4fun.biz">調べる.db - db.just...
<li><a href="http://web.just4fun.biz">ウェブ関連技術調査...
</ul></td></tr>
<tr><td><hr></td></tr>
<tr><td> (C) 2007- <a href="http://www.sakura-it.com/">I...
<tr><td>
</table>
</body>
</html>
以上、LWP::UserAgentなどを使用したGETサンプルスクリプトで...
#htmlinsertpcsp(ll-btm.html,ll-sp.html)
終了行:
#navi(../)
* LWP::UserAgentを使用したGETのサンプルコード [#h46123b9]
PerlのLWP::UserAgentを使用してGETのサンプルコードと実際に...
#contents
#htmlinsertpcsp(ll-top.html,ll-sp.html)
* 関連記事 [#f8a57365]
-[[UbuntuにLWP::UserAgentをapt-getでインストールする>Perl...
* LWP::UserAgentのパッケージ [#wd0c5e4c]
LWP::UserAgentがインストールされていない場合はインストー...
例えばUbuntu(12.04で確認)の場合、端末から以下のコマンドを...
sudo apt-get install libwww-perl
* GETのサンプルPerlスクリプト [#gcf4a706]
以下のPerlスクリプトはGETによりhttp://www.just4fun.biz/に...
尚、サンプルスクリプトは基本的な動作のみの実装となってい...
#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....
取得した情報を表示させています。
sakura@sakura:~$ chmod +x get.pl
sakura@sakura:~$ ./get.pl
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; char...
</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と過ごす - ...
<li><a href="http://win.just4fun.biz">Windowsと暮らす - ...
<li><a href="http://db.just4fun.biz">調べる.db - db.just...
<li><a href="http://web.just4fun.biz">ウェブ関連技術調査...
</ul></td></tr>
<tr><td><hr></td></tr>
<tr><td> (C) 2007- <a href="http://www.sakura-it.com/">I...
<tr><td>
</table>
</body>
</html>
以上、LWP::UserAgentなどを使用したGETサンプルスクリプトで...
#htmlinsertpcsp(ll-btm.html,ll-sp.html)
ページ名:
![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
