Hatena::Groupperlmemo

Perlメモ

2008年09月18日 より開始
最新5件(RSS 2.0)
古いモジュールの更新

Plagger(Fedora10)
Plagger(Ubuntu9.04)

CPAN::Mini

Remedie(Ubuntu 9.04、Vine4.9(5α)、Fedora11Preview)
Remedie(Fedora10) 見れたサイトまとめ
編集

2008-10-29

WWW::Mechanize

| WWW::Mechanize - Perlメモ を含むブックマーク はてなブックマーク - WWW::Mechanize - Perlメモ WWW::Mechanize - Perlメモ のブックマークコメント

$ sudo cpan -i WWW::Mechanize

use strict;
use warnings;
use WWW::Mechanize;
my $mech = new WWW::Mechanize( autocheck => 1 );

# トップにアクセスし、
$mech->get('http://mixi.jp/');

# ログイン。
$mech->submit_form(
    fields => {
        email => 'your-email@example.com',
        password => 'p4ssw0rd',
    },
);
$mech->get('http://mixi.jp/home.pl');

# 足あとページに遷移
$mech->get('http://mixi.jp/show_log.pl');

print $mech->content;

$ perl test.pl


use WWW::Mechanize; - 今日のCPANモジュール


Perlモジュール/WWW::Mechanize - Walrus, Digit.


WWW::Mechanize による Webアクセスの自動化 | Diaspar Journal

2008-10-27

マイミクシィ最新日記を取得

| マイミクシィ最新日記を取得 - Perlメモ を含むブックマーク はてなブックマーク - マイミクシィ最新日記を取得 - Perlメモ マイミクシィ最新日記を取得 - Perlメモ のブックマークコメント

$ sudo cpan -i WWW::Mixi

#!/usr/bin/env perl

use strict;
use warnings;
use WWW::Mixi;

# 指定されたメールアドレス、パスワードにより、mixi にログイン
my $mixi = WWW::Mixi->new('メールアドレス', 'パスワード');
   $mixi->login;

# mixi トップページを取得し、標準出力に書き出す
my $response = $mixi->get('home');
#print $response->content;

my @data = split(/\n/, $response->content);  #改行で分解して @dataへいれる

my $flg = 0;

foreach(@data) {
	if($flg == 0)  {
		if(/<ul class="newUpdateList01">/) {  #はじまり
	        	$flg = 1;
		}
	}
        else {
		if(/<p class="moreLink01">/) {  #おわり
			$flg = 0;
		}
		s/<.*?>//g;  #HTMLタグの除去
		print;
		if(length($_) > 4)  {  #空白行では改行しないように
			print "\n";
		}
	}
}

WWW::Mixi - 「もうひとつの Web」にアクセスする - antipop


WWW::Mixi::Cookbook - WWW::Mixiのクックブック - search.cpan.org