城館日記

午前2時23分 休止状態

　WindowsXP で休止状態を久しぶりに試したところ、起動ドライブの空き容量がかなり減ってしまいました。休止状態に移行するために必要な空き容量を満たせないほどでした。

　HDD に書き出したメモリの中身がそのまま残っているのが原因だろうと見当はつきましたが、それをどうしたら削除できるのかわかりません。専用の隠しフォルダに置かれるらしいですが、中身は空のようです。結局、休止状態をサポートしないように設定変更したら、再起動後には元の空き容量に戻っていました。

　これが標準の動作なのかバグなのかわかりませんが、解決するまではこの機能は使えません。最も、起動時間が短縮されたので必要性はあまりなさそうです。

午前4時46分 参考文献追加

　情報を漁っていたらいいものを見つけたので追加です。

• メーリングリスト　Perlオブジェクト指向プログラミング

　雀が鳴き始めてしまいました。新聞配達のバイクの音も聞こえます。朝です・・・。

午前4時15分 Perl でオブジェクト指向

　最近、Perl でオブジェクト指向プログラミング（以降、OOP）をすることを目指しています。そのわけは、現在製作中の CGI を拡張しやすくするようにしたいからです。

　Perl は CGI のために使われる言語と言うイメージが一般的かもしれませんが、実際は割りと何でもござれです。UNIX 方面ではインストールスクリプトとして使われることが多いですし、DOS で言う外部コマンド（Windows から入った人にはわかりにくいですね。Windows のエクスプローラーに当たる command.com に含まれるのが内部コマンド、それとは別のプログラムとなっているのが外部コマンドです。）が Perl で書かれていたりもします。

　で、Perl5.00 から OOP っぽいことができるようになりました。内部の変数やインスタンスを隠すこととかは出来ませんが、オブジェクトを作ってインスタンスを呼び出したりと言ったことは一応出来ているようです。ただ、無理やりやっているのでコードがかなりややこしくなります。強制的に第一引数にクラスの名前が入ったり、インスタンス側ではそれを経由しないと自分の変数にアクセスできません。手続き型でコーディングしたものを移植すると、細かい単純作業の繰り返しが待っています。新しいコーディング方式と概念が一気に必要になって、正直混乱しています。

　混乱しながらやっているとますますわけがわからなくなるので、ひとまず Perl からは離れて、今は UML のレベルで設計し直しています。UML は OOP を図で記述出来るプログラム言語で、一応特定の言語には依存しないことになっているようです。（Perl とは上手く合わない部分があります。C++ とか Java とかのほうが相性はいいでしょうね。）

参考

• Perlオブジェクト指向（ウェブの黒板）
• use Object;

午後5時59分 オブジェクト？

　このサイトの所有書籍リストは XML を XSLT で変換したものですが、その変換には JavaScript による専用プログラムを使っています。で、効率アップのために少し書き直したらエラーが出るようになって、ちっともその先に進めなくなりました。

　エラーメッセージは、「指定されたオブジェクトは見つかりません。」というもの。よく調べてみると変換処理をしている transformNodeToObject に渡す引数が範囲外の値になっているようです。引数は、XSLT ドキュメントと結果を出力するためのオブジェクト（XHTML）の2つ。後者の引数が不要の transformNode を使っても同じエラーになるため、XSLT のほうが悪いらしいと見当をつけています。

　で、オブジェクトが無いのかどうか検証してみました。手っ取り早い方法として、実際に中身を表示させてみることに。エラーを捕まえたところに次のコードを入れます。

WScript.Echo(xslt.xml);

　見事に表示されました。念のためファイルに書き出してみましたが、こちらも問題なく、検証も通過しました。少なくとも、オブジェクトが無いわけではなさそうです。

　となると、エラーの原因は、オブジェクトが無いのではなく XML パーサーが見つけられないと言うことになります。ではなぜ見つけられないのか。そこで悩み続けています。たった1行のところに、もう1ヶ月近く悩みっぱなしです。

　プログラムは完成したときが一番うれしいものですが、うまく行かないときは非常に苦しいです。

午前3時0分 5.003 と 5.6

　久しぶりに作っている CGI のテストをローカルサーバでやってますが、プロバイダのサーバの Perl が 5.6 なのに対して、ローカルサーバのほうは 5.003 です。多少互換性はあるので今のところ無事に作業が出来ていますが、できることなら同じバージョンを使いたいものです。

　とっととアップグレードしてしまえばすっきりするのでしょうが、ローカルサーバの OS である FreeBSD(98) はインストールに Perl スクリプトが使われているアプリケーションがかなり入っています。3世代も差のあるアップグレードとなると、互換性が非常に気になります。共存させるとおかしくなるかもしれないと言う情報もあり、なかなか踏み切れません。

　ちなみに、FreeBSD 5.0 からは Perl がオプション扱いになる関係で、多くのインストールスクリプトがシェルスクリプトや C によるバイナリプログラムに置き換えられています。ただ、まだ 5.0 が安定リリースではないのでアップグレードは避けている状態で、問題解決には繋がりません。既に Perl 5.8 がリリース済みですが、6.0 の開発も進んでいるようで、FreeBSD 5.0 の安定版と Perl 6.0 のどちらが先に出るかという状況のようです。

　話がそれました。戻すために 5.003 からの変更内容を確認したのですが、かなり色々とあります。便利な機能もいろいろとあるわけで、全てが使えないとなると、ちょっとうんざりします。新マシンも組んだことですし、久しぶりに Windows 上でのウェブサーバ構築でもしましょうか。以前はあまりにもリソースの消費が激しくて駄目でしたが、今度は NT カーネルと言うことでリソースの上限はなくなっています。

　もうしばらく情報を集めてから決めることにします。

　とか言いながら、実は 5.6 の package をローカルサーバにダウンロード中だったりします。とりあえずファイルを置いておくことに・・・。

午前2時55分 4.8R-Rev0.1公開

　FreeBSD(98) 4.8R-Rev0.1 が公開されました。2週間ほどミラーサイトに行き渡るのを待った後、アップグレードに挑戦してみたいと思います。4.7 のときには失敗しましたが、今度はリアルタイムでレポートできたらいいなと思っています。