W3CDTFをPerlで扱う PerlでW3CDTFとエポック秒を相互に変換するためのスクリプトを作ってみました。 (そのためだけに新しくモジュールを入れるのは避けたかったので) Time::Localはたぶん標準でPerlに入っているのではないかと思います。 正規表現はPerlメモ/W3C形式の日時の解析を参考にしました。 blosxom用のプラグインentries_kacheで使用しています。 use strict; use Time::Local; use HTTP::Date; # 比較のため my $samp = &sampledate; print "-----\n"; print "origin: $samp\n"; my $t = wdt2time($samp) || 0; print "str2time: ", str2time($samp), "\n"; print "
