がんばるビジネスマン@ ウィキ

Perl : WEBアクセス

2008-09-09T15:55:22+09:00

HTTPアクセス GET

use LWP::UserAgent;
use LWP::Simple;

#クライアントの作成
my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)");
my $url = "http://www.yahoo.co.jp";
my $req = HTTP::Request->new('GET', $url);
my $response = $ua->request($req);
print $response->content;

HTTPアクセス POST

my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)");
my $req = HTTP::Request->new('POST', "http://www.yahoo.co.jp");
$req->content_type('application/x-www-form-urlencoded');
$req->content('a=1&b=2&c=%81%81');
print $res->content;

COOKIE を利用する

use LWP::UserAgent;
use LWP::Simple;
use HTTP::Cookies;
my $cookie_file = "cookie.txt";
my $cookie_jar = HTTP::Cookies->new(file => $cookie_file, autosave => 1, ignore_discard => 1);

my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)");
$ua->cookie_jar($cookie_jar);
my $req = HTTP::Request->new('GET', 'http://www.yahoo.co.jp');
$res = &process_request($ua, $req);
print $res->as_string;

sub process_request {
    my ($ua, $request) = @_;
    my $res = $ua->request($request);
    while ($res->is_redirect) {
        my $url = $res->header('Location');
        $res = $ua->request(HTTP::Request->new(GET => $url));
    }return $res;
}

Perl : メール処理

2008-09-09T15:54:20+09:00

use Mail::Mailer;
my $mailer = Mail::Mailer->new('qmail');

$mailer->open({
    From => $from,
    To => $to,
    Subject => $subject,
    }
    ) or die("Can't open $!");

print $mailer $body;
$mailer->close;

ビジネス書　投資・金融

2008-04-22T11:33:04+09:00

メニュー

2008-04-22T11:30:18+09:00

グルメ

2008-04-22T11:26:58+09:00

&bold(){ハンバーガー} FAITH 新宿区荒木町 TEL 03-6661-3353

トップページ

2008-04-22T11:26:11+09:00

**遊び -[[グルメ>http://www14.atwiki.jp/ikaikahitde/pages/11.html]] **プログラム -[[Perl>http://www14.atwiki.jp/ikaikahitde/pages/16.html]] ----

Perl

2008-04-22T11:24:21+09:00

[[WEBアクセス]] ----

プロデュース

2008-01-31T13:29:52+09:00

ビジネス書

2008-01-25T12:34:31+09:00

-扉の法則希望と幸せに満ちた人生の扉をひらく50の鍵 (単行本)

プラグイン/編集履歴

2008-01-14T11:55:10+09:00