yumi-ii

あらまし

WindowsプラットフォームのPerlとPerlモジュールを使って，既存のWWWサイトのRSS（RDF Site Summary）を作る手順を簡単に説明します。RSSはサイトの概要を記述したものであり，ウェブログ（Weblog）の見出しによく使われています。

ソーシャルネットワークサービス「mixi」で日記を公開するには，mixi提供の「日記機能」を使うほかにも，よそのWWWサイトの日記にmixiからリンクしてしまうこともできます。これは元々，ウェブログにリンクするためのものですが，インターフェイスさえ合わせればウェブログでなくても構いません。RSSさえ用意できれば，手打ちのHTMLで作ったサイトもmixiの日記の替わりにできるのです。

いまのところmixiには，日記をエクスポートする方法がありません。このことが，どれほど問題なのか気にする人と気にしない人がいると思います。私は「これって時間泥棒かな」と思い（ふめい），その被害に遭わないために外のサイトを再利用してしまうことにしました。

RSSとテンプレート

「あらまし」では「日記っ，日記っ」などと，オモチャ売場で駄々をこねる少女かのように連呼してしまいました。そもそも「日記」って，どんなものなのでしょうか。ここでは，ひとつのHTMLファイルに複数のお話が時系列に並んだものとしておきます。お話には，件名と日付時刻が書かれているものとします。この条件から外れたもの，例えば「ふたつ以上のHTML」や「件名と日付時刻が書かれていないもの」は扱えないものとします。

RSSを作るには，HTMLファイルからひとつひとつのお話の件名，日付時刻を抽出しなければなりません。RSS云々のまえに，HTMLファイルからどうやって必要な情報を抽出するかを考えなければならないのです。

幸いTemplate::ExtractorというPerlモジュールを利用すると，テンプレートでファイルの文章構造を識別し，お目当ての文字列だけを取得することができます。今回，使ったテンプレートを以下に示します。なおテンプレートのメタ文字，構文などの説明は割愛します。

[% ... %]
<title>
[% wwwtitle %]
</title>
[% ... %]
</h2>
<!-- item -->
[% FOREACH records %]
<h3>
[% date_title %]
</h3>
[% ... %]
<!-- item -->
[% END %]

さて，HTMLファイルの構造によりますが，テンプレートを適用しただけでは抽出に失敗することが多いです。機械的に生成されたHTMLファイルならまだしも，ひとが書いたコードでは空白や改行の入り方がまちまちだからです。テンプレートを適用するまえに，それらの影響を取り除いておかなければなりませんが，問題解決の考え方はいろいろあると思いますので対応はお任せします。

RSSの生成

HTMLファイルにテンプレートを適用すれば，欲しい部分の文字列を取得することができます。つぎに考えることは，それらの情報からRSSを作ることです。RSSはXMLで記述するので，やることはXMLドキュメントを組み立てることになります。

「親ノードに子ノードをつぎつぎ追加して，ツリーを作ればいいのかしら」

と思った人がいらっしゃると思います。

「それって面倒（びっくりマーク）。createElementとかinsertBeforeとか延々とやるわけ（はてなマーク）簡単にできる方法ないの（はてなマーク）」

と思った人がいらっしゃると思います。

便利なことにXML::RSSというPerlモジュールを使うと，RSSの実体をひとつ生成して，その実体に項目（ハッシュ）をつぎつぎ追加していくことでRSSを作ることができます。XMLは気にしなくても構わないのです。「面倒そうなことが嫌い」「煩わしい関係がイヤ」という思いは万国共通なのです。

つぎに実際にできたプログラム（extract.pl）とRSSファイルを示します。使い方は「perl extract.pl HTMLファイル名 テンプレートファイル名」です。実行すると標準出力にRSSが出力されます。注意したいのは，出力されたファイルの文字エンコードがShiftJISだということです（注意：Windowsは厳密にはShiftJISではなくCP932という文字エンコードだそうです）。文字エンコードを変換する方法はいろいろありますが，私はnkfをパイプで繋いでUTF-8にすることにしました。

extract.pl

#!/usr/bin/perl -w

use strict ;
use encoding 'cp932' ;
use XML::RSS ;
use Template::Extract ;

################################################################################

binmode(STDERR, ':raw :encoding(cp932) ') ;

my $template ;
my $doc ;

open(IN, '<:encoding(cp932)', "$ARGV[0]") 
    || die "Can't open html file." ;

$doc = do {
    local $/ ;
    <IN> ;    
} ;
close( IN ) ;

open(IN, '<:encoding(cp932)', "$ARGV[1]")
    || die "Can't open template file." ;

$template = do {
    local $/ ;
    <IN> ;
} ;
close( IN ) ;

################################################################################

$doc =~ s!\x0d\x0a! !gs ;
$doc =~ s!<!\x0d\x0a<!gs ;
$doc =~ s!>!>\x0d\x0a!gs ;
$doc =~ s!\s*\x0d\x0a!\x0d\x0a!gs ;

$doc =~ s|\x0d\x0a<h3>|\x0d\x0a<!-- item -->\x0d\x0a<h3>|gs ;
$doc =~ s!\x0d\x0a!\n!gs ;

################################################################################

my $obj ;
$obj = (new Template::Extract())->extract( $template, $doc ) ;

my $rss ;
$rss = new XML::RSS( version => '1.0' ) ;

################################################################################

my ($sec, $min, $hours, $mday, $mon, $year) ;

($sec, $min, $hours, $mday, $mon, $year)
    = localtime() ;

my $now_iso8601 ;
$now_iso8601
    = sprintf( "%04d-%02d-%02dT%02d:%02d:%02d+09:00", $year + 1900, $mon + 1,
                    $mday, $hours, $min, $sec ) ;

($sec, $min, $hours, $mday, $mon, $year)
    = localtime( time() - 5 * 24 * 60 * 60 ) ;

my $offset ;
$offset
    = sprintf( "%04d-%02d-%02dT%02d:%02d:%02d+09:00", $year + 1900, $mon + 1,
                    $mday, $hours, $min, $sec ) ;

################################################################################

my $channel = {} ;

$channel->{ title } = $obj->{ wwwtitle } ;
$channel->{ link }
    = "http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html" ;

$channel->{ dc }->{ date } = $now_iso8601 ;
$channel->{ dc }->{ language } = "ja" ;

$rss->channel( %{ $channel } ) ;

################################################################################

my %mon2mm = (
    JAN => 1, FEB => 2, MAR => 3, APR => 4,
    MAY => 5, JUN => 6, JUL => 7, AUG => 8,
    SEP => 9,
    OCT => 10, NOV => 11, DEC => 12
) ;

for ( @{ $obj->{ records }} )
{
    my $item = {} ;
    my ( $dd, $mon, $yyyy, $hh, $mm, $title ) ;
    
    if ( ( $dd, $mon, $yyyy, $hh, $mm, $title )
            = ( $_->{ date_title } =~ 
            /
            (\d{1,2})\s
            (\w{3})\s
            (\d{4})\s
            (\d{1,2})
            :
            (\d{2})
            \s?
            \x81\x75(.*)\x81\x76
            /x
        ) )
        {
            #
        }
        else
        {
            print "err:$_->{ date_title }" ;
        }

    my $date ;
    $date = sprintf( "%04d-%02d-%02dT%02d:%02d:00+09:00",
        $yyyy, $mon2mm{ $mon }, $dd, $hh, $mm ) ;

    if ( $offset le $date )
    {
        $item->{ title }
            = substr( "yumi-ii $title", 0, 20 ) ;

        $item->{ link }
            = "http://www2s.biglobe.ne.jp/~yumi-ii/"
                ."area_murono/htmlfiles/index.html#hamiyoko" ;

        $item->{ dc }->{ date }
            = $date ;
            
        $item->{ dc }->{ creator } = "MURONO Bunjin" ;

        $rss->add_item( %{ $item } ) ;
    }
}

################################################################################

print $rss->as_string ;

# [EOF]

生成されたRSSファイル

よく見ると属性がちょっと足りないみたいです。実用上，差し支えなかったのでそのままにしています。

<?xml version="1.0" encoding="UTF-8"?>

<rdf:RDF
 xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
 xmlns="http://purl.org/rss/1.0/"
 xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"
 xmlns:dc="http://purl.org/dc/elements/1.1/"
 xmlns:syn="http://purl.org/rss/1.0/modules/syndication/"
 xmlns:admin="http://webns.net/mvcb/"
>

<channel rdf:about="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html">
<title>
yumi-ii/area_murono
</title>
<link>http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html</link>
<description></description>
<dc:language>ja</dc:language>
<dc:date>2004-10-16T02:25:27+09:00</dc:date>
<items>
 <rdf:Seq>
  <rdf:li rdf:resource="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko" />
  <rdf:li rdf:resource="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko" />
  <rdf:li rdf:resource="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko" />
  <rdf:li rdf:resource="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko" />
 </rdf:Seq>
</items>
</channel>

<item rdf:about="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko">
<title>yumi-ii 筋トレの真似3年目</title>
<link>http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko</link>
<dc:creator>MURONO Bunjin</dc:creator>
<dc:date>2004-10-15T23:25:00+09:00</dc:date>
</item>

<item rdf:about="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko">
<title>yumi-ii mixi始めて7日目</title>
<link>http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko</link>
<dc:creator>MURONO Bunjin</dc:creator>
<dc:date>2004-10-13T22:25:00+09:00</dc:date>
</item>

<item rdf:about="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko">
<title>yumi-ii 公衆便所は危険な香り</title>
<link>http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko</link>
<dc:creator>MURONO Bunjin</dc:creator>
<dc:date>2004-10-12T19:30:00+09:00</dc:date>
</item>

<item rdf:about="http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko">
<title>yumi-ii mixi始めて5日目</title>
<link>http://www2s.biglobe.ne.jp/~yumi-ii/area_murono/htmlfiles/index.html#hamiyoko</link>
<dc:creator>MURONO Bunjin</dc:creator>
<dc:date>2004-10-11T07:39:00+09:00</dc:date>
</item>

</rdf:RDF>

気づいたこと

やっていることは難しくないのですが，簡単そうなものに限ってやっかいな罠が潜んでいるものです。気づいたことを挙げておきます。

文字エンコード：古くて新しい問題です。標準入出力はShiftJIS（CP932），Perlのプログラム本体もShiftJISです。XML:: RSSが吐くXMLのエンコードは何になるでしょう。RSSファイルを開いてみると冒頭に「<?xml version="1.0" encoding="UTF-8"?>」なんて書いてあるから，てっきりUTF-8かと思ったら実際はShiftJISのままでした。

データ構造：「ハッシュのハッシュ」が登場します。これは「ハッシュの中にハッシュが入っている」のではなくて，「ハッシュのリファレンスのハッシュ」です（たしか←なぞ）。はじめはデータ構造に悩むかもしれません。間違うと空文字が返ってくるか，未定義値を参照したという警告が実行時に出力されます。

こんばんは，今日は筋トレの真似（下半身）の日でした。栄養補給したのでそろそろ寝ます。

早いもので「筋トレの真似」を始めて3年が経ちました。あれから私はどうなってしまったのでしょうか。今日は中間報告をしようと思います。

3年前の私

最初に当時の状況を振り返ってみることにしましょう。「最近の出来事 #2001-1013-01 スポーツクラブに通い始めました」より，3年前の心境を引用します。

突然ですが，ヨコ漏れです。先週から市内某スポーツクラブに通い始めました。（「ジム通い」と言わないところが私らしい。）

今日は二日目だったのですが，とりあえず続けられそうな雰囲気です。あ，べつに兄貴系に転身しようとか下心があるわけじゃありませんからね。日頃の運動不足をなんとかしたかっただけです。（目的は違っても，結果は「そういう路線」になってしまうのかもしれませんが。）

当時はちょうど賞味期限が切れたころでして（なぞ），意識していなくても「路線転換を図らなければ売れ残ってしまう」という焦りがあったのだと思います。「若さだけではもう勝負できない」と悟ったのだと思います（何と勝負するのかは「ふめい」ですが）。以来，空いた時間を見計らってちょくちょく市内某スポーツクラブに通いました。時間が取れなくて何週間も通えなかったこともありましたが，「焦っちゃだめ，こういうのって長期戦なのよ」という思いで筋トレの真似に励みました。

体重と体脂肪率の推移

筋トレの真似をしたときは，たいてい体重と体脂肪率を量っています。各々の推移をグラフにまとめたのでご説明します。

＜画像の説明＞体重の推移です。大人の都合で「十の位」は伏せました（無駄な抵抗ですが）。筋トレの真似を始めたのは2001年10月です。最初の3か月間で劇的に体重が増えました。以後，体重の増加はやや穏やかになり「停滞」と「再増加」を繰り返し現在に至ります。（2003年4月あたりで体重が減っていますが，お仕事の都合で体重の管理ができなくなってしまったからです。）

こうしてみるとかなり体重を増やせているのですが，私は元がアレなのでまだ標準体重にすら到達していません。

さて無理やりデータを直線近似して未来を予想してみると，標準体重に手が届くのは2006年10月です（2005年じゃなくて）。これからも筋トレの真似を続けなければなりません。

＜画像の説明＞体脂肪率の推移です。体脂肪率は2002年5月より前の記録がないため（量ってないから），プロットされていません。2004年までは体重が増えた割に，体脂肪はあまり増えませんでした。ところが2004年を境にじわじわと増え始め，2004年10月上旬には瞬間的に20%を突破してしまいました。筋肉と体脂肪の割合が崩れ，ただの生活習慣病予備軍になってしまったのです。

このままでは妊婦の仲間入りです（なぞ）。特殊な分野でしか売れなくなってしまいます（再三なぞ）。これまで私は意図的に1日の摂食回数を3.5回から4回にし，体重の増加を図ってきました。加齢の影響もあってか体脂肪が増える傾向はこれからも続きそうなので，まず摂食回数を3回に戻し，さらに摂取カロリーを低めにした方がよさそうです。

これからの筋トレの真似

私は学童の頃に「ファミリーベーシック」にハマってしまい，それからというもの運動する機会がほとんどない生活を送ってきました。「このまま干からびてしまうのか」と思いきや，20代半ばで衝動的に始めた筋トレの真似が，私を健全な道に導いてくれた気がします。もっとも，「筋トレ」じゃなくて「筋トレの真似」なのでいろいろと不出来なところはありますが，これからも続けていきます。

今後，劇的な変化はないにしても徐々に体が巨大化していくことは疑いの余地がありません。次回はいつになるか分かりませんが，また「どこまで普通になれたか」といった報告をするつもりです。お楽しみに。

ずいぶん長い名前ですね（なぞ）。市内某薬局で花王の液体歯磨きを買ってきました。なんでもこの液体歯磨きには歯の着色汚れを落とす効果があるそうで，「これは試してみなければ」と思ったのです。早速，使ってみたので感想をお話します。

蓋を開けると林檎の香り

私が驚いたのは，薬液が林檎の香りを放っていたことでした。確かに宣伝では「リンゴ酸」の効果で汚れがよく落ちると謳っています。しかしながら，有効成分を抽出したものに香が残っているのはなんだか不自然です。成分表示を注視してみると「香料（アップルミントタイプ）」が使われているそうです。わざわざ香を付けているのですね。

ほのかな刺激

香はおいしそうでしたが，刺激は普通の液体歯磨きでした。この手の製品を使ったことがある人なら分かると思いますが，液体歯磨きにはピリピリっとした刺激があるものなのです。余談ですが，サンスターGUM歯磨きに至っては，まるで毒物かのような強烈な刺激が口腔内を襲います（もっとも，強烈なだけあってこいつがいちばん効く気がしますが）。

さて「クリアクリーン――」はあえて分類すると低刺激型らしく，初心者でも安心なようです。うがいした後に歯を磨くと，とてもさっぱりした感じになりました。

気になる効果は

肝心の着色汚れに対する効果ですが，まだ分かりません。これから1か月くらい使い続ければはっきりすると思います。もしこの製品で着色汚れ対策ができるとしたら，快挙です。というのも私の知る限り，液体歯磨きで着色汚れが落とせる製品は，今までなかったので。

気になるのは，価格が安すぎることかな。それから「リンゴ酸」といえども「酸」なので，単純に考えるとエナメル質に悪い気がします。

【追記 1 NOV 2004】 使い始めてだいたいひと月が経ちました。毎晩寝る前に使っているのだが，たしかに歯の着色汚れを防いでいるように見えます。ただレンブラント薬用歯磨きの効果と比べると，やや歯の透明感がなくなった気がします。磨きの足りないガラスのコップのような感じなのです。落ちない汚れがあるのでしょうか。引き続き使ってみますね。

本日の夕刻，市内某家電量販店で19型液晶ディスプレイを購入しました。私が選んだのは，「液晶」といえば泣く子も黙るシャープの「BL-T19D1-H」です。「泣く子も黙る」と言っておきながら，液晶パネル本体はシャープ製ではなく富士通の「MVA-Premium」らしいです。富士通と言っておきながらパネルの製造は台湾だそうで，それでいて製品の箱には「タイ製」と書いてありました。結局どこのお家の子なのか不明なのです。

気になるお値段は75,800円（税込み），ポイント還元率が15%だったのでこれを差っ引くと64,430円のお買い物でした。長らくCRTディスプレイを使っておりましたが，ついに私も液晶ディスプレイを導入することになりました。さっそく使用感をお話しましょう。

＜画像の説明＞ディスプレイの全景です。流行の「まるちめでぃあディスプレイ」ではないので，画面に光沢もなければスピーカーもありません。赤みが強く見えるかもしれませんが気にしないでください。いま色温度がめちゃくちゃな部屋で作業しているから，その影響なのです（なぞ）。

アナログ接続でも鮮明だった

使っているビデオカードにはDVI-D/I端子がないので，アナログ接続してみました。「液晶ディスプレイの場合，アナログ接続だと17型までは大丈夫でも19型以上では粗が目立たつ」なんて噂を耳にしていたのでやや心配でした。説明書を読んでみると，同梱のCD-ROMにテストパターンを表示するツールが入っており，それを使って調節するとよいそうです。

「まず自動調節すれば，ほどほどに適切な設定になるのでは」と思い，メニューから自動調節してみました。するとどうでしょう，一発で設定が完了してしまいました。アナログ接続だから少しは画質が悪くなるのではないかと思っていましたが，おかしな画素の滲みはありませんでした。

＜画像の説明＞デジタルカメラでテストパターンを接写してみました（見やすいようにグレイスケールに変換しています）。白と黒の線が並んでいます。線1本の幅は1画素です。このように解像度の劣化はありませんでした。なおデジカメで人工的な模様を撮影するのは難しいので，この画像にはちょっと変なところがあるのですが雰囲気は分かると思います。

発色は良くない

発色性能は，やはりCRTディスプレイよりも劣ると思います。レタッチソフトでトーン補正すると，微妙な加減が分からないのです。色に深みがないのです。このディスプレイは擬似階調ではなくてきちんと各色8ビット階調が表示できるのだが，まるで足りません。高級機だと10ビットまでダイナミックレンジがあるらしいのだが，それくらいないとCRT並みにはならないのでしょうね。（もっとも手元の「NECのLaVie L LL550/7D」や「iBook G4 M9164J/A」の液晶パネルよりは数段上の性能です。）

こんなことになるだろうと思い，CRTは捨てずに取っておいてあります。この先，色合いを吟味しなければならない作品を手掛けるか分かりませんが（説明するまでもなくそれは某有害画像ですが←ふめい），イザというときでも安心なのです。