「c」の編集履歴（バックアップ）一覧はこちら

「c」(2008/12/14 (日) 17:28:55) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#! C:\Perl\bin\perl #perl.exeの保存先を記入する require 'cgi-lib.pl';
&ReadParse(*form); $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__