nDiki : Perl 5.005_03

5.005系で広く使われているバージョン。 1999年3月28日リリース。 翌年の3月22日に Perl v5.6.0 がリリースされた。

Perl WiKicker CPAN 5.005_03 インストール キャッシュ Cache::Memcached ビルド Perl v5.8.0 エラー Memcached Perl モジュール FreeBSD API Makefile.PL CGI Apache DiKicker Perl v5.6 Perl v5.8 www.naney.org メモリ 標準 Perl ライブラリ Module::Install Perl v5.6.2 アクセスログ patch CGI プログラム Cache::Cache IPC::ShareLite

■ 専用サーバに移りたい

そろそろ www.naney.org を専用サーバに移したいな。 今の共有サーバも悪くはないのだが、Perl が 5.005_03 というのが痛い。 自分のホームディレクトリでビルドして使うこともできなくはないのだが、それにはちょっとディスク容量が少なすぎる。

昨日思い立ってちょっと調べてみたが Debian GNU/Linux が選択できる専用サーバとなると、今だとやっぱりメジャーどころのさくらインターネットの専用サーバか。 ベーシック Athlon64 モデル (Athlon64 3200+ / 1GB / 120GB) + 10Mスタンダード回線 + Debian 3.1 で 初期費用 73,290円 + 月 10,290円。

初期費用が財布に優しくないな。

あとはドメインのレジストラ・トランスファとDNS変更がスムーズにいくかが不安。 メールが届かなくなる期間があるとやっぱり困るからなぁ。 要手順調査。

• 今日のさえずり - 京都の小学校のコンピュータ室にいったら、Squeak が (2008-03-06)
• Debian Linux kernel 2.6.23 をビルドする。 (2007-12-23)
• 古い Crypto++ は古い GCC で (2006-02-07)
• 停電? サーバは落ちなかったみたい。 (2005-08-12)
• Twitter ベイジアンフィルタプロキシ (2007-12-29)

■ WiKicker の Makefile.PL を Module::Install ベースに

WiKicker には依存している Perl モジュールとして、必須なものとオプションなものがある。 必須なものは例えば Log::Log4perl など。 一方 Cache::Memcached や HTML::Scrubber などは、追加機能を使用したい場合のみ必要である。

一般的な Perl モジュールパッケージと同様、WiKicker では Makefile.PL に ExtUtils::MakeMaker を使っている。 必須な依存 Perl モジュールは PREREQ_PM に指定してあるが、オプションのものについては独自にチェックして警告をするにとどめていた。 しかしこれだと、オプションのものは CPAN.pm を使って自動的にインストールすることができない。

ということで検討した結果、Module::Install を用いることにした。 Module::Install を用いて Makefile.PL を作成すると、

• 依存モジュールを、それぞれ必須のもの・ビルドのみ時に必要なもの・推奨のものと分けて処理できる。
• Makefile.PL 実行時に、未インストールの依存モジュールを CPAN からインストールできる。
• 依存モジュールを feature 別にまとめて、ビルド時に未インストールのものをインストールするか対話的に選択できる。

などの機能が使えるようになる。

Module::Install の実行に必要なファイルはパッケージの inc ディレクトリ以下に自動的にコピーされ配布パッケージに含められるので、インストールする側はそのために余分なインストールを強いられることもない。

最終的に内部で ExtUtils::MakeMaker を使っているので、それの機能はほぼ全て使える。

Perl のバージョンも 5.004 から使えるとのことで、Perl 5.005_03 以上を対象としている WiKicker で使っても問題なし。

ということで、Makefile.PL をさらっと書き換え。

合わせて WiKicker に含まれていた実験的な機能を削除して、(オプションな)依存モジュールも減らすことにした。

次回のリリース版から、Module::Install ベースだ。

• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)
• 野良パッケージと依存 Perl モジュールのインストールセット をCPAN... (2006-02-11)
• [ Perl ] Memcached を使ってみる (2004-01-12)
• WiKicker に JSON でのページ出力機能を追加 (2007-04-03)
• WiKicker 0.29 リリース - ビルドまわりの改良など (2006-02-13)

■ FreeBSD と Apache::Htpasswd

WiKicker の認証ドライバの1つとして、まずは Apache の htpasswd パスワードファイル(AuthUserFile ディレクティブ用パスワードファイル)形式のものを作成することにする。 これなら htpasswd で作成することができるので、最悪最初の段階では WiKicker に登録・削除機能を入れないで済む。

Perl からこのパスワードファイルを扱うモジュールとしては Apache::Htpasswd や、Authen::Htpasswd がある。 CPAN にある CGI-Application-Plugin-Authentication は前者を、Catalyst-Plugin-Authentication-Store-Htpasswd では後者を使用している。

機能的にはほぼ同じか。 Authen::Htpasswd の方がユーザ名に対応するオブジェクトを取得するメソッドがあり便利といえば便利だが、まあなくても困らないだろう。

ということで今回は、依存モジュールの少ない Apache::Htpasswd を選択した。 Perl 5.005_03 にはない warnings プラグマが使われているが、Htpasswd.pm の

 use warnings;

1行を削除すれば問題無し。

FreeBSD 4.4-RELEASE #3 + Perl 5.005_03 + Apache-Htpasswd 1.7 だと、crypt 関連のテストケースが失敗する(not ok 17)のがちょっと気になるところ。 MD5 ベースのパスワードの読み書きは問題ないので、この環境ではこちらを使うことにしよう。

• [ WiKicker ] 「最近のアクセスログ」処理思案 (2004-01-17)
• ノート PC で Apache Virtual Host (2004-12-15)
• WiKicker の Makefile.PL を Module::Inst... (2006-02-10)
• [ Perl ] Memcached を使ってみる (2004-01-12)
• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)

■ 最新の Module::Install は Perl 5.005_03 ステ?

ゴールデンウィークに突入。 9連休を利用して、一気に WiKicker コーディングを企んでいる。

さっそくちょこちょこ修正してパッケージングし、www.naney.org へインストール。 …… Perl Makefile.PL でコケる。

どうも use inc::Module::Install; でエラーを起してしまっているようだ。 Makefile.PL は変更していないので、そうすると Module::Install の問題っぽい。

tarball をパッケージングするホスト側の Module::Install を 0.57 まで落としたところ、Perl 5.005_03 でも通るようになった。

Module::Install is a package for writing installers for CPAN (or CPAN-like) distributions that are clean, simple, minimalist, act in a strictly correct manner with both the ExtUtils::MakeMaker and Module::Build build systems, and will run on any Perl installation version 5.004 or newer. (Module::Install 0.61 より)

とあるように古い Perl もサポートにも気を払っているのが気にいって ExtUtils::MakeMaker から移行しただけにちょっと残念。

今後また 5.005_03 でも動くようになるのか、それとも捨てられるのか要チェック。

• WiKicker の Makefile.PL を Module::Inst... (2006-02-10)
• Time::Local::gmtime の範囲チェック (2003-12-23)
• 野良パッケージと依存 Perl モジュールのインストールセット をCPAN... (2006-02-11)
• Perl 5.005_03 + Template Toolkit 2.14 (2004-11-10)
• WiKicker に JSON でのページ出力機能を追加 (2007-04-03)

■ Perl v5.8.8 の CGI.pm の PATH_INFO 処理の問題にぶつかる

手元の WiKicker (や DiKicker) で、「C++」という文字列を含む URI にアクセスしたらエラー。

 Nested quantifiers in regex; marked by <-- HERE in m//C++ <-- HERE .html$/ at (eval 27) line 7.

正規表現の一部として使う時には \Q...\E していたと思ったが抜けがあったか。 とコードをチェックしてみたが、それっぽいところなし。 そもそも、Perl 5.005_03 だと問題おきていないし。

確認したら CGI.pm の url() の中でのエラーだった。 quotemeta されていない。

Perl v5.8.8 に含まれている CGI.pm 3.15 で問題を確認。3.17 までは駄目で、3.19 以降だと \Q...\E するように修正されている (3.18 は CPAN にないので不明)。

標準 Perl ライブラリのバグを踏んだか……。 標準 Perl ライブラリのアップグレードはなにかと面倒なので、システム要件にはしたくはないんだよねぇ。

• Time::Local::gmtime の範囲チェック (2003-12-23)
• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)
• WiKicker に JSON でのページ出力機能を追加 (2007-04-03)
• [ WiKicker ] URI抽出正規表現修正 (2004-07-24)
• Windows 上での Apache 2.0.53 では PATH_INF... (2005-04-10)

■ Module::Install 0.63 では Perl 5.005_03 OK

Module::Install 0.61 が Perl 5.005_03 では通らなくなっていてちょっとショックであった。

0.57 を使ってしのいでいたのだが、その後出た 0.63 に上げてみたところまた Perl 5.005_03 で通るように直っていた。

今後も使っていけそうで、一安心。

• WiKicker の Makefile.PL を Module::Inst... (2006-02-10)
• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)
• CGI::Session (2004-09-01)
• WiKicker に JSON でのページ出力機能を追加 (2007-04-03)
• 他の Web サイトの情報を URI::Fetch でキャッシュ付き取得 (2005-10-29)

■ Perl で CR/LF/CRLF 全対応の1行毎読み込み処理

Perl プログラムでテキストファイル処理を 改行コード CR/LF/CRLF 全対応にしようと思ったが、書こうとするとこれが結構面倒臭いことに気がつく。

$/ に正規表現が設定できないため、<FILEHANDLE> で単純に3パターン対応ができない (LF と CRLF に対応とかならすぐできる)。

小さいファイルと仮定して良いなら全部読み込んで自前で行分割、大きいファイルならまじめにバッファリングして改行コードをスキャンして行処理するのが正攻法かな。 多少効率悪くなりそうだけれど。

@ Pod::Html (1.0504) の場合

Perl 5.8.8 の Pod::Html (1.0504) だと pod2html の中で $/ = "" と設定して、パラグラフ単位で読み込んでそのあと処理している。

@ PerlIO レイヤー

最近の Perl であれば PerlIO::crlf、 PerlIO::eol あたりが使えそうである。

もちろん Perl 5.005_03 だと NG。

• [ WiKicker ] 通知メールの Subject: フィールドのエン... (2004-01-25)
• 第6回 社内 Perl 勉強会 (2006-06-05)
• ドキュメンテーション大全 (2006-02-15)
• Perl 用の doxygen のようなツールはないのかな (2006-07-25)
• mixipress でコミュニティ掲示板もチェック (2005-10-01)

■ WiKicker 0.38 リリース - 認証・承認用コードの実装

朝一で WiKicker 0.38 をリリース。 昨晩コードを完成させておいたものを Perl 5.005_03 上でテストしたら、ExtUtils::MM が 5.005_03 にはないことに気がついた。 調べると標準で入っているのは Perl v5.6.2 / Perl v5.8.0 から。

ということで急拠 ExtUtils::MM を使っているツールは今回のリリースから除外してパッケージング。

今回のリリースでは認証・承認フレームワークの実装が含まれるようになったのが中心で、基本的な機能には特に変更なし。

• テスト。More。 (2005-03-13)
• Intercepting Filter パターンとレスポンスの順次送信 (2006-02-28)
• Time::Local::gmtime の範囲チェック (2003-12-23)
• WiKicker 0.39 リリース - 添付ファイルの削除機能を実装 (2006-10-17)
• DBIx::Class + SQLite で Wiki 用認証/承認データベース (2006-06-18)

■ Perl の constant プラグマで1度に複数の定数を定義できるのは Perl v5.8.0 から

'use constant' を使った Perl プログラムを Perl 5.005_03 下で動かしたらエラー。 調べてみると、

 use constant {
     SEC   => 0,
     MIN   => 1,
     HOUR  => 2,
     MDAY  => 3,
     MON   => 4,
     YEAR  => 5,
     WDAY  => 6,
     YDAY  => 7,
     ISDST => 8,
  };

  (constant 1.04 Pod より)

という形で複数の定数をまとめて定義できるのは constant 1.04 からだ。

Perl 5.005_03 は 1.00、Perl v5.6 系は 1.02 で、1.04 になったのは Perl v5.8.0*1 なので、この形を使えるのは Perl v5.8 以降ということになる。

• Time::Local::gmtime の範囲チェック (2003-12-23)
• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)
• [WiKicker] WiKicker の文字化け対応 (2004-02-03)
• ColdSync (2004-05-05)
• CGI プログラム、Out of memory! に泣く (2001-01-04)

■ WiKicker に JSON でのページ出力機能を追加

最近は DiKicker ばかりに手を入れていたが、久しぶりに WiKicker の改良も行っている。 しばらく前から実装を始めていた JSON 形式での出力機能が今日完成。

今までは WikiPage について

• HTML 形式による出力
• Wiki 文法で書かれている生テキスト形式による出力

という2つの出力形式を持っていたので、JSON が加わることで3つめとなる。

@ サーバ側で WikiPage の構文解析まではやる

クライアントサイドの JavaScript でページの内容に合わせて様々な処理をできるように、サーバ側で構文解析まではしてあげるというのが主な目的。

JavaScript でまたパーサを書いてメンテしていくのも大変なので、その部分はサーバでやってしまおうかと。 構文解析した結果の解析木を JSON 形式で返して、JavaScript 側であとはお好きにという形。

@ CPAN にある JSON モジュールを使用

サーバ側の Perl プログラムには、構文解析をして解析木を作れるようになっている。 この解析木から Visitor パターンで JSON 形式を生成していく。

依存モジュールを増やすことを避けるべく、最初は自前で JSON 形式に変換していこうと思ったのだがやっぱり面倒だった。 ということで CPAN にあるモジュールをチョイス。

JSON 関連では JSON、JSON::Syck、JSON::PC などがあるが今回はインストールのしやすさを考えて pure Perl モジュールとして実装されている JSON を採用することにした。

Visitor クラスで解析木を無名ハッシュ/無名配列のツリーに変換して、JSON モジュールに流しこめば OK。

 use JSON;
 my $json = JSON->new(pretty => 1);
 my $js = $json->objToJson($tree);

WiKicker のフレームワークにはフォーマット別に出力を切り換える機構があるので、これに JSON を追加して application/json で送るようにして完成。

ちなみに残念ながら JSON 1.07 は Perl 5.005_03 では make test が fail するので、NaneyOrgWiki では使えない。

• Rubric でプライベート SBS を立てるも 0.140 では日本語に不具合 (2006-07-22)
• [ WiKicker ] hell mode - HTMLタグ付けブロックの導入 (2005-09-13)
• WiKicker の Makefile.PL を Module::Inst... (2006-02-10)
• 野良パッケージと依存 Perl モジュールのインストールセット をCPAN... (2006-02-11)
• WiKicker 0.29 リリース - ビルドまわりの改良など (2006-02-13)