nDiki : Perl v5.6

Perl Perl 5.005_03 Perl v5.8 正規表現 Perl v5.8.0 Perl v5.6.2 UTF-8 Perl v5.8.4 標準 Perl ライブラリ UTF8 フラグ Perl v5.8.6 YAML Perl バージョン 開発 Perl モジュール Perl v5.6.0 Perl v5.8.8 Perl v5.6.1 5.005_03 Perl v5.8.2 WiKicker YAML Perl モジュール CGI プログラム CGI.pm エラー charset バージョン番号 CGI::Session SDBM_File CPAN

■ タイトル取得ロボットを www.naney.org へ

2個所問題。

@ Tie::Array::Sorted

Perl v5.6 以上用だった。www.naney.org は Perl 5.005_03。 しょうがないので、同等のコードを書いて Tie::Array::Sorted を使わないように修正。

@ SDBM_File の EXISTS

SDBM_File で EXISTS が使えるようになったのは実は Perl v5.6 から。 しょうがないので代わりに defined でキーの存在チェックをするように修正(幸い undef を値に持つ事はない hash なので)。

• Perl の constant プラグマで1度に複数の定数を定義できるのは... (2007-03-08)
• [ WiKicker ] WiKicker 0.20 で文字化け (2004-02-03)
• Perl 5.005_03 + Template Toolkit 2.14 (2004-11-10)
• 専用サーバに移りたい (2005-11-13)
• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)

■ [ WiKicker ] WiKicker 0.20 で文字化け

F.KIMURAさんによると 文字化けするらしい。

あちゃ。たしかに fkimura Wikiで化けちゃってるな。 うーん。何だろ。 Perl v5.6 系だからかなぁ(開発では Perl 5.005_03 と v5.8.x でしかテストできていないので)。

• Tie::IxHash
• MLDBM
• MLDBM::Sync::SDBM_File
• LWP::RobotUA
• WWW::RobotRules::AnyDBM_File

は実験中のコードが要求するだけなので、WiKicker の実行には必要ないです。 やっぱり紛らわしいのでチェックコード外したほうがいいかな。

• [ WiKicker ] WiKicker で Log::Log4perl... (2004-03-01)
• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)
• [ WiKicker ] 複数のキーワード集合による、AutomaticLink (2004-02-07)
• [ WiKicker ] 日記機能開発開始 (2003-12-27)
• [ WiKicker ] textarea ビヨーン (2004-02-04)

■ [WiKicker] WiKicker の文字化け対応

WiKicker の文字化けであるが Perl v5.6.x という環境が怪しそう。 ということで、ローカルに Perl v5.6.2 を入れてテスト。

 tar zxvf perl-5.6.2.tar.gz
 cd perl-5.6.2
 rm -f config.sh Policy.sh
 sh Configure -de -Dprefix=/usr/local/perl-5.6.2
 make
 make test
 make install

で /usr/local/perl-5.6.2/bin/perl -MCPAN -e shell でもりもり必要なモジュールをインストール。

で WiKicker のテスト。化けた。 追いかけてみると、Locale::Maketext モジュールが use utf-8 をしているため、l10n した文字列は UTF-8 として mark されてしまっているようだ*1。 で、mark されていない他の部分の(バイト列としてのUTF-8)文字列と結合したりしたところで化けたと。

ということで、Perl v5.6.x では maketext で帰ってきた文字列の UTF-8 mark を外すようにする。

 if (5.006 <= $] && $] < 5.7) {
     return eval "no utf8; my \$tmp = \$language_handle->maketext(\@param); \$tmp =~ /^(.*)\$/; \$1";
 }

という緊急処置コード。 Perl 5.0005_03 では utf8 プラグマ自体が無いので、eval の中に入れておく。 v5.6.x での UTF-8 mark の外し方が良くわからないので、とりあえず正規表現に全マッチさせるというダサいコード(v5.8 だと utf8::* にそこら辺の関数があるのだが)。

• YAML Perl モジュール (2004-05-19)
• 野良パッケージと依存 Perl モジュールのインストールセット をCPAN... (2006-02-11)
• 野良パッケージと依存 Perl モジュールのインストールセット を CPA... (2006-02-12)
• Rubric でプライベート SBS を立てるも 0.140 では日本語に不具合 (2006-07-22)
• Windows 上での Apache 2.0.53 では PATH_INF... (2005-04-10)

■ YAML Perl モジュール

データファイルをYAMLで扱おうと思い、YAML Perl モジュール (0.35)でちょこちょこと実験。

@ 日本語がことごとく quote される。

ある UTF-8 で書かれたファイルを読み込んで YAMLで Dump したら、日本語の部分がことごとく quote される。 これはいただけない。

 my $ESCAPE_CHAR = '[\\x00-\\x08\\x0b-\\x0d\\x0e-\\x1f]';

で判別している。手抜きではないか。 さてどうしたものか。

と考えていたら、よく考えたら Perl v5.8.x だとバイト単位ではなく文字単位で正規表現マッチングさせられるんだったことを思い出した。 手抜きだなんて思って失礼しました。

データファイルを読んで utf8::decode してから YAML で Dump するようにしたらクオートされなくなった。Good.

Perl v5.6 系だとどうすればいいんだろ。 YAML.pm を直接書き換えて

 use utf8;

を追加すれば期待通りにはなるのだが、ちょっと嫌だな。

@ sequence をインラインで

短い sequence は

 - a
 - b
 - c

ではなく

 [a, b, c]

の形式で出して欲しい。YAML.pm のチェックしたところ

 my $y = YAML->new;
 $y->InlineSeries(5);
 print $y->dump($data);

のようにインラインにしてよい上限の個数を指定すればよいことを知る。

[ UTF8 フラグ ]

• [WiKicker] WiKicker の文字化け対応 (2004-02-03)
• [ WiKicker ] hell mode - HTMLタグ付けブロックの導入 (2005-09-13)
• YAML Perl モジュール と Perl v5.6 (2004-05-20)
• Template Toolkit で UTF-8 なファイルを INCLU... (2004-10-29)
• Skype for Linux 1.0.0.1 (2005-02-02)

■ YAML Perl モジュール と Perl v5.6

やっぱり YAML.pm に

 use utf8;

を追加するしかないかな。

しかし YAML Perl モジュール(0.35)のドキュメントを良く読んでみると

 BUGS & DEFICIENCIES
        ...
        Unicode
            Unicode is not yet supported. ...

と書いてあるではないか。 やはり手抜きであった。

• YAML Perl モジュール (2004-05-19)
• 定型書式で内容を記述していくのに便利な形式は? (2005-11-21)
• YAML.pm 0.35 のバグ (2004-11-18)
• [ WiKicker ] WiKicker 0.20 で文字化け (2004-02-03)
• [WiKicker] WiKicker の文字化け対応 (2004-02-03)

■ 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)
• タイトル取得ロボットを www.naney.org へ (2003-11-30)
• Cache::Memcached 1.14 の Perl 5.005_03 対応 (2004-07-31)