nDiki : Perl v5.8.0

2002年7月18日リリース。

PerlIO が導入された。

約1年後の、2003年9月25日に Perl v5.8.1 がリリースされた。

Perl Perl モジュール インストール 5.005_03 Perl 5.005_03 Perl v5.6.2 WiKicker Perl v5.6.1 Perl v5.8.8 Red Hat Linux CPAN Perl v5.6.0 Perl v5.6 CGI.pm ビルド usr Perl v5.8.4 Perl v5.8.6 標準 Perl ライブラリ UTF-8 RPM エラー Perl v5.8.2 RCS キャッシュ Pod Perl モジュールの作り方 Perl テストスクリプトの書き方 定数 CGI

■ CPAN のPerl モジュールを RPM パッケージ化する

会社のサーバは Red Hat Linux 8.0 にしたので RPM パッケージを作らんと。 RPM::Specfile モジュールに CPANの Perlモジュールを RPM パッケージにするツール cpanflute2 が入っている。 なので、まずはこいつをこいつ自身で RPM パッケージ化してインストールしてコイツで RPM パッケージを作れる環境を。

Perl のバージョンは v5.8.0。 まず、/tmp/RPM-Specfile の下にステージ1としてインストール。 RPM::Specfile の依存しているライブラリのうち Archive::Tar が無いようなので、これもビルドする。

 cd /tmp
 tar zxvf Archive-Tar-0.23.tgz
 cd Archive-Tar-0.23
 perl Makefile.PL PREFIX=/tmp/RPM-Specfile SITEPREFIX=/tmp/RPM-Specfile
 make
 make test
 make install

次に RPM::Specfile を。

 export PERL5LIB=/tmp/RPM-Specfile/lib/perl5/site_perl/5.8.0
 cd /tmp
 tar zxvf RPM-Specfile-1.11.tar.gz
 cd RPM-Specfile-1.11
 perl Makefile.PL PREFIX=/tmp/RPM-Specfile SITEPREFIX=/tmp/RPM-Specfile
 make
 make test
 make install

これで /tmp/RPM-Specfile/bin/cpanflute2 ができる。 /tmp/RPM-Specfile/lib/perl5/site_perl/5.8.0 にPERL5LIBを通したまま

 /tmp/RPM-Specfile/bin/cpanflute2 --buildall Archive-Tar-0.23.tgz
 /tmp/RPM-Specfile/bin/cpanflute2 --buildall RPM-Specfile-1.11.tar.gz

これで

• perl-Archive-Tar-0.23-8.src.rpm
• perl-Archive-Tar-0.23-8.i386.rpm
• perl-RPM-Specfile-1.11-8.src.rpm
• perl-RPM-Specfile-1.11-8.i386.rpm

ができあがる。

ステージ2。

ルート権限でバイナリパッケージをインストール。

 rpm -ivh perl-Archive-Tar-0.23-8.i386.rpm
 rpm -ivh perl-RPM-Specfile-1.11-8.i386.rpm

これで (PERL5LIB を設定する事なく)/usr/bin/cpanflute2 が使えるようになる。 これで、パッケージ化し放題(本当か?)

• SVN::Webインストール失敗 (2006-02-17)
• [ Perl ] PDL 2.4.1 から eigens が固有ベクトルを... (2004-03-05)
• WiKicker の Makefile.PL を Module::Inst... (2006-02-10)
• 野良パッケージと依存 Perl モジュールのインストールセット をCPAN... (2006-02-11)
• 野良パッケージと依存 Perl モジュールのインストールセット を CPA... (2006-02-12)

■ [ WiKicker ] SunOS 5.6 にインストール

結局flock 問題は、File::Flock モジュールを使う事にする。 $^O eq 'solaris' な時は File::Flock::lock を使うようにコードを修正。

それから、RCS まわりでも問題。

 Warning: missing newline at end of file /tmp/...

といった感じの警告が出て期待した結果が得られない。 調べてみると rcsdiff の呼び出しで警告。 実際には diff が吐いている。 Sun の diff と GNU diff ではファイル末処理が違うようだ。 ということで、こちらは diffutils-2.8.1 と rcs-5.7 を home の下に入れて解決。

ふう、これで WiKicker は

• Debian GNU/Linux sid
• FreeBSD 4.4-RELEASE
• Red Hat Linux 8.0
• Solaris 2.6

で動く事を確認。都合5つ(SunOS は一つのホストで2個動かしている)。 今の所の注意点は

• Apache が suEXEC しているかどうか
• Perl 5.005_03 or Perl v5.8.0 ? (依存ライブラリの問題、UTF-8 の扱いの違い)
• SunOS の flock 問題
• SunOS の diff 問題

といったところか。

• [ Perl ] Memcached を使ってみる (2004-01-12)
• Windows 上での Apache 2.0.53 では PATH_INF... (2005-04-10)
• [ WiKicker ] SpeedyCGI (2003-10-17)
• Warning: SuexecUserGroup directive re... (2004-07-10)
• Debian に RSS リーダ「フレッシュリーダー」をインストール (2006-03-06)

■ Time::Local::gmtime の範囲チェック

Perl v5.8.x だと、Time::Local::gmtime できちんと範囲チェックが動作している(範囲外だと croak される)のだが、Perl 5.005_03 では必ずしもそうではないようだ。 WiKicker のデバッグ中に発見。

でソースを読んでみると、古い Time::Local では cheat サブルーチンで

• 範囲チェック
• 指定した年月の開始 gmtime を計算し、%cheat にキャッシュ

している。同一年月での2度目以降 timegm 呼び出しでは %cheat キャッシュを使用して cheat サブルーチンを呼びにいかないので、範囲チェックが実行されないという塩梅。 つまり 2003年1月1日… で一度 timegm を呼び出すと2003年1月に関しては以降 cheat サブルーチンは呼ばれないため、次に 2003年1月33日…で読んでもエラーにしてくれないというわけ(最初に2003年1月33日…で呼んだ場合はちゃんとエラーになるので逆に厄介)。

Perl v5.8.0 以降に標準ではいっている Time::Local ではきちんと毎回チェックする。 うるう年・大の月/小の月も考慮してチェックされる(v5.8.0 より前のでは 31 より大きいかのチェックのみ)。

• Perl 5.005_03 -> Time::Localバージョン情報なし
• Perl v5.6.0 -> Time::Localバージョン情報なし
• Perl v5.6.1 -> Time::Localバージョン情報なし
• Perl v5.8.0 -> Time::Local VERSION 1.04

であり、CPAN では 5.005_03 でも動作する Time::Local パッケージ (1.05～)が公開されている。

Time::Local 1.04 以降を PREREQ_PM にしてもいいのだが、5.005_03 な利用者にとってはインストールするのも面倒か。 最低限のエラーチェックを自前で用意して、互換になるようにした方がいいかな。

• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)
• [ Perl ] Memcached を使ってみる (2004-01-12)
• [ WiKicker ] SunOS 5.6 にインストール (2003-04-23)
• [ WiKicker ] SpeedyCGI 対応するも…… (2003-11-09)
• WiKicker に JSON でのページ出力機能を追加 (2007-04-03)

■ [ WiKicker ] Locale::Maketext による localization

リファクタリングにあわせて、表示の localization を開始。 といっても、とりあえず日・英のみ。 Local::Maketext モジュールを使用することにする。 HTTP の Accept-Language リクエストヘッダによる言語の判別もモジュールがやってくれるのでお便利。 コレ、Perl v5.8.0 からは標準で入っているのだがそれより前のバージョンでは自前でインストールする必要あり。

メッセージはこれで順次リソース化していけるのだがまだ日時表示など日本語向けにハードコーディングしている場所があり、こちらの手直しも必要。

• WiKicker 0.35 リリース - 添付機能の修正など (2006-06-20)
• [ WiKicker ] SunOS 5.6 にインストール (2003-04-23)
• [ WiKicker ] 続L10N改善と、ページ名リスト処理の高速化 (2004-05-29)
• Time::Local::gmtime の範囲チェック (2003-12-23)
• WiKicker における PageName 最長文字数 (2006-06-10)

■ SVN::Webインストール失敗

社内サーバ上の Subversion リポジトリを気軽に閲覧できるように、以前から試そうと思っていた SVN::Web をインストールしてみる。

しかし Subversion の Perl バインディングである SVN::Core は、Subversion パッケージに同梱されていて独立していないのか。 Subversion は Red Hat Linux 8.0 へ RPM パッケージで入れているのだが、SVN::Web の方は /usr/local/perl-5.8.8 以下にインストールした Perl v5.8.8 上へ入れようと思っていたので、はたと困る。

 --with-perl5=/usr/local/perl-5.8.8/bin/perl

で configure して、Perl モジュールだけインストールしてみたけれどうまく動かず。

素直に Red Hat Linux 8.0 に標準で入っている Perl v5.8.0 に入れるかなぁ。

• CPAN のPerl モジュールを RPM パッケージ化する (2003-04-22)
• 野良パッケージと依存 Perl モジュールのインストールセット を CPA... (2006-02-12)
• 野良パッケージと依存 Perl モジュールのインストールセット をCPAN... (2006-02-11)
• Red Hat Linux 8.0 Box に Subversion (2004-03-04)
• ActivePerl で Ming (2005-02-23)

■ 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)