タイトル | : CGI現状報告 |
投稿日 | : 2012/03/09(Fri) 18:16 |
投稿者 | : km |
すみません、kmです。相変わらずCGIが動きません。
ファーストサーバの方から連絡がありまして、記述の誤りがあることしかわかりませんと言われてしまいました。数日間考え続けているのですが、わからないです。どこがエラーなのでしょうか?
構文エラーは出ないのですが・・・・
色々試して、汚いソースで申し訳ないのですが貼らせていただきます。
#!/usr/bin/perl --
# CSVデータの設定
#$csvfile = ***.csv;
#↑の書き方はNG
sub data_read{
# 検索用データ(とりあえず固定で)
$SeekData = "2011/5/10 14:21:00";
my(%date,%name,%todouhuken,%adress,%tel,%email,%gender,%birth,%question,%ans,%pay);
#open(IN,"$csvfile");
open(IN,"****.csv");
# カウンタをゼロクリア
$count = 0;
# 全データを読み出す?検索して表示するプログラムにする予定
for($count=0; $count<=1000; $count++) {
#chomp;
# split関数でデータを分割する
my($date,$name,$todouhuken,$adress,$tel,$email,$gender,$birth,$question,$ans,$pay) = split(/,/);
# データ一致するか?(検索用データ&読み込んだデータ)
if($SeekData eq $date)
{
#$name{$date} = $name;
#$todouhuken{$date} = $todouhuken;
#$sity{$date} = $sity;
#$adress{$date} = $adress;
#$tel{$date} = $tel;
#$email{$date} = $email;
#$gender{$date} = $gender;
#$birth{$date} = $birth;
#$question{$date} = $question;
#$ans{$date} = $ans;
#$pay{$date} = $pay;
# 一致したデータを表示する!
# my $body <<EOM; EOMやめる
print "Content-type: text/html\n\n";
#print "<html><body>\n";
print "<html>\n";
print "<body>\n";
print "****\n\n";
#<HR>
print "【****】\n\n";
print "****\n\n";
print "【お名前】\n\n";
$name = "お名前";
<INPUT TYPE="text" NAME="quantity1" VALUE="$name" SIZE="3" MAXLENGTH="20">
#print "【郵便番号】";
#<INPUT TYPE="text" NAME="quantity2" VALUE="$adress" SIZE="3" MAXLENGTH="10">
#print "【住所】\n\n";
#<INPUT TYPE="text" NAME="quantity3" VALUE="$adress" SIZE="3" MAXLENGTH="30">
#print "【TEL】\n\n";
#<INPUT TYPE="text" NAME="quantity4" VALUE="$tel" SIZE="3" MAXLENGTH="10">
#print "【E-Mail】\n\n";
#<INPUT TYPE="text" NAME="quantity5" VALUE="$email" SIZE="3" MAXLENGTH="20">
#print "【性別】\n\n";
#<INPUT TYPE="text" NAME="quantity6" VALUE="$gender" SIZE="3" MAXLENGTH="5">
#print "【生年月日】\n\n";
#<INPUT TYPE="text" NAME="quantity7" VALUE="$birth" SIZE="3" MAXLENGTH="10">
#print "【○○】\n\n";
#<INPUT TYPE="text" NAME="quantity8" VALUE="$question" SIZE="3" MAXLENGTH="20">
#print "【XXXXXX】\n\n";
#<INPUT TYPE="text" NAME="quantity9" VALUE="$ans" SIZE="3" MAXLENGTH="20">
#print "【パスワード】\n\n";
#<INPUT TYPE="password" NAME="quantity10" VALUE=" " SIZE="3" MAXLENGTH="12">
#<INPUT TYPE="password" NAME="quantity11" VALUE=" " SIZE="3" MAXLENGTH="12">
#print "(確認)";
#print "</html></body>\n";
#print "</body>\n";
#print "</html>\n";
# EOM
}
}
close(IN);
}