どんぞこ日誌

* [Perl] Perl 5.8.4とXML::Parser::LiteHeavy

　XML::Parser::LiteHeavyが動作しないとのコメントを頂きました。調べてみると、Perl 5.8.4から正規表現の動作が変更になっていました。

プラグマは正規表現の(?{...})構造に正しく伝播されるようになりました。次のようなコード
my $x = qr{ ... (??{ $x }) ... };
は、use strict下において（正しく）失敗します（内側の$xは$::xを参照しているので）。
（perl584delta Selected Bug Fixes）

　　というわけで、strictが正規表現内部のコード部分にも適用されてエラーになってたようです。変数を明示的にして解決したのですが、どうもまだ他の部分で問題があるらしく正しくパースしてくれません。じっくり調べるている時間がないので、応急措置としてコールバックの種類が少ないバージョンを用意しました。これは単純にXML::Parser::Liteで使われている正規表現に修正を加えたものです。LiteHeavyはコールバックの種類を増やしたため、正規表現がより複雑になっていて、収拾がつきません。時間に余裕が出来たら見直そうと思います。ついでに、開始タグと閉じタグが一致しているかチェックしていないという致命的なミスがあったので、こちらも直しました。

　コメントを下さった方へ：ソース内のmakamaka[at]donzoko.netが連絡先だったのですが、やはりわかりにくかったでしょうか……