XAMPPでCGIを動かしたい

前提・実現したいこと

動作チェックのためXAMPPでCGIを動かすシステムを作っています。
実行中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

Premature end of script headers: regist.cgi

該当のソースコード

cgi
1#!c:\xampplite\perl\bin\perl
2
3require './shop_util.pl';
4#require 'C:\inetpub\wwwroot\card\shop_util.pl';
5
6$_THIS_NAME = 'card_shop.cgi' ;
7$_partsFile = 'parts.dat' ;
8#$_Dire = 'parts/' ;
9
10
11&d_code_ ;
12
13&header_Print ;
14$html .= <<"_HTLM_" ;
15<div id="menu"><ul>
16<li><a href='./'>トップページへもどる</a></li>
17</ul></DIV>
18<div id="main_sin">
19_HTLM_
20
21if($FORM{'mode'} eq 'reg'){ &Register_Proc ; }
22if($FORM{'mode'} eq 'agr'){ &RegistRight_Proc ; }
23if($FORM{'mode'} eq 'rm'){ &Forget_Pass_Proc ; }
24if($FORM{'mode'} eq 'rs'){ &Send_Pass_Proc ; }
25
26if($FORM{'mode'} eq 'ch'){ &ChangeRec ; }
27if($FORM{'mode'} eq 'pc'){ &ChangePassDo ; }
28if($FORM{'mode'} eq 'nc'){ &ChangeNameDo ; }
29
30
31if($FORM{'sd'} ne ''){ &recognine_proc ; }
32
33&Entrance_Proc ;
34
35exit ;
36
37～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～

試したこと

Strawberry Perlをインストールし、C:\usrとしました。
コマンドプロンプトより「C:\usr\perl\bin」、「C:\usr\perl\lib」、「C:\usr\perl\site」、「C:\usr\perl\vendor」のシンボリックリンクを作成しました。

「#!c:\xampplite\perl\bin\perl」を「#!c:\xampplite\perl\bin\perl -」や「#!c:\xampplite\perl\bin\perl --」に変更してみましたが改善されませんでした。

m.ts10806

2020/04/30 23:54

「動かしたい」ならhello worldレベルから入られては？

dodox86

2020/05/01 00:17

自作の関数のようで中身が分からず、何をしているか分かりませんが、CGIとして出力すべきHTTPのヘッダー情報がおかしいのではないですか？ > &d_code_ ; > > &header_Print ; 何につけまずは、m.ts10806さんがコメントされているように最低限のhello worldレベルのCGIで確認し、徐々に肉付けすべきです。

soraatori

2020/06/01 03:03

返信が遅くなり誠に申し訳ありません。ご指摘の通り #!c:\xampplite\perl\bin\perl print "Content-type: text/html\n"; print "\n"; print "Hello World!"; と修正しましたところ「Hello World!」と表示されるようになりました。

dodox86

2020/06/01 03:19

その簡単なCGIが動くのであれば、あとはregist.cgiのどこかで異常終了しているのだと思います。 > require './shop_util.pl'; で、'./shop_util.pl'ファイルを読み出せていないとか、関数を呼び出して中で異常終了しているとか、いろいろ考えられます。提示のコードだけではわかりません。WEBサーバーのエラーログを確認するとか、地道に追っていくしかないです。

soraatori

2020/06/01 04:28

CGIは動いているのですね。ありがとうございました。それでは地道に追っていきたいと思います。