study2.cgi

#!/usr/local/bin/perl

##「cgi-lib.pl」は次のサイトから頂きました。
##http://home.interlink.or.jp/~kamitani/perl_lng/cgiperl.html
##この学習課題もそこを参考にさせてもらっています。
require './cgi-lib.pl';

##フォームからのデータを受け取り整理するサブルーチン
##read_inputは「cgi-lib.pl」の中にある
%form = &read_input('sjis');

##フォームから送られたデータを変数に格納する
$user_name = $form{'user_name'};
$distinct = $form{'distinct'};
$age = $form{'age'};
$word = $form{'word'};
$excel = $form{'excel'};
$access = $form{'access'};
$other = $form{'other'};

## 以下に続く出力がHTMLファイルであることをサーバーへ知らせる
print "Content-type: text/html\n\n";

## HTMLのヘッダ部分および変数の内容を出力
print "<HTML>\n";
print "<HEAD><TITLE>フォーム受け取りサンプル</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H2>入力結果です</H2>\n";
print "<HR>\n";
print "名前　　：$user_name<BR>\n";
print "性別　　：$distinct<BR>\n";
print "年齢　　：$age<BR>\n";
print "教Ａ　　：$word<BR>\n";
print "教Ｂ　　：$excel<BR>\n";
print "教Ｃ　　：$access<BR>\n";
print "コメント：$other<BR>\n";
print "</BODY>\n";
print "</HTML>\n";