はてなダイアリーを記事リストとして利用 (たつをの ChangeLog)

はてなダイアリーを記事リストとして利用

2005-05-09-1 [Blog][Chalow]

はてなダイアリー「たつをはてな」を、この「たつをの ChangeLog」の記
事リストとして利用してみることにしました。はてなキーワードをたどる
人を呼び込んでみる作戦。はたして？

過去記事は chalow の cl.itemlist をはてなダイアリー形式XMLに変換し、
一気にインポート。

以下のやっつけコード cli2hatena.pl で変換します。

cli2hatena.pl
(「無償・無保証・著作権放棄」<http://lifehacks.ta2o.net/byebye-copyright.html>)

#!/usr/bin/perl
# cli2hatena
use strict;
my %hash;
my $date;
while(<>){
    my ($url, $tit) =split(/\t/,$_);
    ($date) = ($url =~ /(\d{4}-\d\d-\d\d)/);
    next unless ($url =~ s!^.+"(.+)".+$!http://nais.to/~yto/clog/$1!);
    $tit =~ s!\[.+?\]\s*$!!g;
    unshift @{$hash{$date}}, {url=>$url,title=>$tit};
}
my $all = qq(<?xml version="1.0" encoding="UTF-8"?>\n<diary>\n);
foreach (sort {$b cmp $a} keys %hash) {
    $all .= qq(<day date="$_" title="">\n<body>\n);
    my $ctr;
    foreach (@{$hash{$_}}) {
	$ctr++;
	$all .= qq(*p$ctr*$_->{title}\n$_->{url}\n);
    }
    $all .= qq(</body>\n</day>\n);
}
$all .= qq(</diary>);
use Jcode;
print Jcode->new($all)->utf8;

使い方:

cli2hatena.pl cl.itemlist > hd.xml

この記事に言及しているこのブログ内の記事