c


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

#! C:\Perl\bin\perl #perl.exeの保存先を記入する require 'cgi-lib.pl';
&ReadParse; $name = $form{'name'}; $year = $form{'year'}; print
"Content-type: text/html\n\n"; if(open(DATA, ">>data.dat")){ print DATA
"$name\t$year\n" } else{ print "データを保存できません。ホームページの管理人に報告して下さい。\n"; die; }
print "\n"; print "\n"; print "\n"; print "
参加登録しました
\n"; print "名前:$name
\n"; print "入学年度:$year
\n"; print "\n"; print "\n"; close(DATA); __END__