if構文を追加するとうまくうまく動きません。。。

締切済

質問者：muraka0915
質問日時：2011/02/21 11:34
回答数：2件

すみません、CGIの初心者なのですが、下記のプログラムをしたところうまく起動せず困っております。ifの構文を抜いた場合はうまく動くのですが、名前欄等を入力されなかった場合、エラー表示を出したく、if文を追加したのですが、うまく動きません。どなたか原因おわかりになりますでしょうか？

#!C:\Perl\bin\perl

# ライブラリ
require 'cgi-lib.pl';

# デコードサブルーチン
&ReadParse(*form);

# ライブラリ
require 'kaiin_sub.pl';

#名前欄、メールアドレス欄、住所欄、郵便番号欄がのチェック

if($form{'name'} eq""||$form{'mail'} eq""||$form{'post'} eq""||$form{'jyusyo'} eq""){

#必要事項が空白のとき
#エラーコードを表示するサブルーチン

&input_error;

#cgiプログラムの終了

exit;

}else{

# ライブラリ
require 'jcode.pl';

# 文字コード変換サブルーチン
&jcode'convert(*form,'sjis');

# 連想配列から値だけを取り出し、区切りのハイフンを追加
$data = "$form{'name'}\n$form{'furigana'}\n$form{'mail'}\n$form{'post'}\n$form{'jyusyo'}\n$form{'jyusyo1'}
\n$form{'kansou'}\n\n----------\n\n";

# 追加書き込みモード
open(ENQ, ">>enquete.dat") || die "File 'enquete.dat' Open Error.";

flock(ENQ, 2);

print ENQ $data;

flock(ENQ, 8);

close(ENQ);

# -----ここから出力 -----
print "Content-type:text/html\n\n";

print << "END_OF_HTML";

<HTML>
<HEAD>
<TITLE>(^_^)</TITLE>
</HEAD>

<BODY bgcolor="cornflowerblue">
<CENTER>


 
会員登録は完了致しました。

ご協力ありがとうございました。

（＾Ｏ＾）／~

</CENTER>
</BODY>
</HTML>

END_OF_HTML

}

またkaiin_sub.pは以下となります。

# -- 入力不足エラーを表示するサブルーチン --
sub input_error {

print "Content-type:text/html\n\n";

print << "END_OF_ERROR";

<HTML>
<HEAD>
<TITLE>エラー</TITLE>
</HEAD>

<BODY>
<CENTER>

 
お名前欄、メールアドレス、郵便番号、住所のいずれかが空白です

もう一度入力して下さい。

</CENTER>
</BODY>
</HTML>

END_OF_ERROR
}

宜しくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： luka3
回答日時：2011/02/21 12:46

ちょっと試してみました。

すると次のエラーが出ました。
kaiin_sub.pl did not return a true value at test.pl line 10.

もしスクリプトがこの通りならば、kaiin_sub.pl の最後に次の１行を加えて下さい。
1;

私の所ではこれでinput_errorが表示されました。

require で別ファイルを読み込むときは、最後に真を返すことになっています。