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-09-19

新着日記一覧100件表示

| 新着日記一覧100件表示 - Perlメモ を含むブックマーク はてなブックマーク - 新着日記一覧100件表示 - Perlメモ 新着日記一覧100件表示 - Perlメモ のブックマークコメント

#!/usr/local/bin/perl
#新着日記一覧表示

use strict;
use lib qw(./mylib);
use LWP::Simple;

my $year = 2009;

&Header();  #ヘッダー表示

&printDiarylist();  #新着日記の一覧を表示

&Footer();  #フッター表示



sub Header {
	print "Content-type: text/html\n";
	print "\n";
	print "<html>\n";
	print "<head>\n";
	print '<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">' . "\n";
	print "<title>hatenadiarylist</title>\n";
	print "</head>\n";
	print "<body bgcolor=\"#ffcccc\">\n";
	
	return 0;
}


sub printDiarylist()  {  #base printCount
	#my $i=0;
	my $max = 500;  #表示件数
	for(my $i=0; $i<$max/50; $i++)
	{
		my $pagenumber = $i * 50;
		my $url = 'http://d.hatena.ne.jp/diarylist?of=' . $pagenumber;
		
		my @data = split(/\n/, get($url));  #改行で分解して @dataへいれる
		
		foreach ( @data ) {
			if(/<li>$year/) {
				print;
			}
		}
	}

}


sub Footer {
	print "</body>\n";
	print "</html>\n";

	return 0;
}

2008-09-18 20:38:43~2008-09-19 21:18:56(24時間40分)の間に15,000エントリーアップされていました。


はてなダイアリー - 新着日記一覧