- 下記のdebug.cgiのようなCGIスクリプトを使うと、どこでエラーが生じているか確認することができます（UNIXの場合）。Windowsでは、CGIでのパイプの処理がうまくいかないため、そのままでは期待どうりには動きません。MS-IIS/PWSには
一応の対応策がありますが、Apacheには全くないようです。以下は、xxx.cgiをデバッグする場合の例です。
- debug.cgi
| #!/usr/bin/perl
print "Content-type: text/html\n\n"; print "<HTML><BODY><PRE>"; open(PIPE, "/usr/bin/perl /PATH/xxx.cgi|") or die; print <PIPE>; close(PIPE); print "</PRE></BODY></HTML>"; |
- 上記のパイプによる処理がうまくいかない場合、標準モジュールであるCGI::Carpモジュールを利用する以下のBEGINブロックをスクリプトの最初の方に組み込んでおくと、エラーを生じる箇所（の標準エラー出力）をブラウザに表示することができます。
| BEGIN {
use CGI::Carp qw(carpout); carpout(STDOUT);
|
| C:\inetpub\scripts\xxx.pl: Error message! at C:\inetpub\scripts\xxx.pl line xx. |
そこで、下記のようにしておくと、コンパイル時エラーやdie等の致命的エラーのメッセージもブラウザに表示することができるようになります。
| BEGIN {
use CGI::Carp qw(carpout fatalsToBrowser); carpout(STDOUT);
|
- 同じようにCGIエラーを表示するモジュールとして、Kawasaki Yuusuke氏によるKCatch.pmが公開されています。KCatch.pmは、dieなどのエラーメッセージも捕捉します。
【入手先・情報源】
- http://www.kawa.net/works/perl/catch/Kcatch.pm
- http://www.kawa.net/works/perl/catch/news-20001209.html
- http://www.kawa.net/works/perl/catch/KCatch-j.html
【使用法】
- KCatch.pmを、デバッグするスクリプトと同じディレクトリか、@INCにセットされたディレクトリに置き、デバッグするスクリプトの先頭部分に
- use KCatch;
- 例）
| #!/usr/bin/perl
use KCatch qw( execdata );__DATA__ # 以下は通常のスクリプトでOK |
・メッセージの文字化けを含む強力設定版（要jcode.pl）
jcode=xxxで文字コードを指定します。
