CGI スクリプトから Perl Web Server Gateway Interface (PSGI) でコードを動かす - Tociyuki::DiaryPerl Web Server Gateway Interface 仕様に馴染んでみようと、CGI スクリプトから PSGI でコード・リファレンスを呼び出す CGI::Joint を試しに作ってみました。 run クラスメソッドにコード・リファレンスを渡します。run メソッドは標準入力、標準エラー出力、環境変数から PSGI 互換のハッシュ・リファレンスを作って、コード・リファレンスを呼び出します。コード・リファレンスが返す配列リファレンスをチェックして、ヘッダとボディを標準出力に書き出します。エラーを検出したとき、デフォルトではスタータス 500 でブランク同然の html をブラウザに返します。$CGI::Joint::FatalsToBrowser が真のときは、$EVAL_ERROR をブラウザに返します。 下のスクリプトを Apache の ExecCGI 属性がオンになって
