第６章　単純なアンケート集計をするCGIアプリケーション

第６章　データを集計するCGIアプリケーションの設置

入力されたデータの件数と値の総和を求めるCGI

611．準備

今回は，以下の３種類のアンケートフォームを用意します。

学校までの交通費（片道）
１日のお昼代
通学時間（分）

そこで，出席番号を３で割った余りで３つのグループをつくり，それぞれで１つずつアンケートを設置します。即ち，次のように分けます。

余りが0の人 → 1. 学校までの交通費（片道）
余りが1の人 → 2. １日のお昼代
余りが2の人 → 3. 通学時間

とします。また，アンケートは無記名（名前の入力フィールドは作らない）にします。
そうすることでアンケートフォームで用意する入力フィールドは１つで済みます。

612．用意するCGIプログラムの概要

今回のCGIアプリケーションで必要になるファイルは，

アンケートフォーム(simpleEnquete1～3.html)
集計処理をするCGI(getTotal.cgi)
入力データを保存するファイル(cgi_data.csv)

の３つになります。

そして，このCGIプログラム(getTotal.cgi)の要件は，

ユーザから送られるデータを，ファイルとして（新しいデータを追加しながら）保存
データの件数をカウント
データの総和を算出

の３つです。特に今回はデータをファイルとして保存します。
そこで，注意しなければならないのがこのデータファイルの安全保持^*1です。

*1	クライアントから入力された情報（場合によっては個人情報）をサーバに保存することになりますから，このファイルの取り扱いは慎重になります。（いわゆるネット上で起こる個人情報流出の初歩的ミスの要因のひとつです。）具体的には，個人情報のはいったファイルをホームページの公開用フォルダに保存しない。→直接ファイル名をアドレスに入力すると表示されてしまう。

613．CGIアプリケーションの設置

ここから実際に，CGIアプリケーションを設置します。以下の手順で進みます。

《エンジン部分 getTotal.cgi の用意》
- EMeditorを起動し，次のソースを入力（コピー＆ペースト）します。
  #!/usr/bin/perl ### データの単位を指定（１）### my $tani = "円"; ############################### ### 自分のアカウントを指定（２）### my $account = "xxxxxxxx"; ################################### my %hash,@lines, $modified; my $userNum = 0; my $total = 0; my $prefix = ''; ## IPアドレス取得 my $ip = $ENV{'REMOTE_ADDR'}; ## フォームからのデータを取得 my $data = $ENV{'QUERY_STRING'}; ## 値のみ取得 my($name, $value) = split(/=/,$data); ## 生徒ならaccount名の冒頭3文字を取得 ## そうでなく教員はteachers以下に if(substr(${account},0,1) eq 'h'){ $prefix = substr(${account},0,3).'/'; } else{ $prefix = 'teachers/'; } ## 既に登録されているデータを配列変数@linesに代入 open(IN, "/home/${prefix}${account}/cgi_data.csv"); @lines = <IN>; close (IN); foreach (@lines){ chomp; ## 各行毎に値,IP の形式で登録されている my ($value2, $ip2) = split(/,/); ## 既存データは、連想配列変数 %hash に代入 $hash{$ip2} = $value2; } ## 新たに送られたデータがIPで重複すれば上書きする処理 $hash{$ip} = $value; foreach (keys %hash){ chomp; ## 各行毎に値,IP の形式で登録 $modified .= "$hash{$_},$_\n"; $total += $hash{$_}; $userNum++; } open(OUT, "> /home/${prefix}${account}/cgi_data.csv"); print OUT $modified; close (OUT); print <<"EOF"; Content-type: text/html <html> <head> <meta charset="utf-8"> <title>集計結果</title> </head> <body> <h3>集計結果</h3> アンケートに回答した人は、 <span style="font-size: x-large; font-weight: bolder;"> $userNum人 </span> です。<br/> データのトータルは、 <span style="font-size: x-large; font-weight: bolder;"> $total$tani </span> になります。 </body> </html> EOF exit;
- （１）、（２）の部分をそれぞれ適当な値に直します。
- getTotal.cgiという名前で　L:\cgi-bin　に保存します。
  （※改行コードをUNIX用にLFに指定し直すことを忘れずに。）
《データの保存先ファイル cgi_data.csv の用意》
H:ドライブ（＝/home/ユーザー名/）に，次のように空の cgi_data.csv ファイルを作成しておきます。
- 【マイコンピュータ】からH:ドライブを開きます。
- 白い余白部分を，右クリックして【新規作成】→【テキストドキュメント】を選択します。
- ファイル名を cgi_data.csv （警告メッセージがでても【はい】で進みます。）にします。
- cgi_data.csv のアイコンを右クリックし，【プロパティ】→【セキュリティ】と進み，下のようにEveryoneの属性を読み取り＋書き込みを許可にします。

《アンケート入力フォームの設置》
本来ならばエディタ(EMeditor)を使って，前回のSection5までのようにHTML文でアンケートフォームを記述するのですが，今回は割愛して，すでに出席番号で決定したアンケートフォームを下からダウンロード（右クリックで【対象をファイルに保存】）しましょう。

必ずカッコで指定されたファイル名に直してから L:\cgi-bin に保存します。

学校までの交通費（片道） （ファイル名：simpleEnquete1.html）
１日のお昼代 （ファイル名：simpleEnquete2.html）
通学時間(分) （ファイル名：simpleEnquete3.html）

番外自分でアンケートフォームを作成してみる。

作成方法は，前回のSection5の演習を参考にしつつ，次の項目に注意します。

Section5で作成したアンケートフォームを参考にする。
<form>タグのオプションaction="getTotal.cgi"の指定を忘れない。
データを入力するフィールドに名前(半角英数)を付けるのを忘れない。(名前はデータ内容をイメージするものなど)

例えば，1.の学校までの交通費（片道）を選んだ場合は，こんな感じ。

アンケートの実施

では３つのグループ同士で，アンケートを実施し，結果を確認します。

たとえば，ユーザー名がh0410999の人のアンケートページを開くには，　　

http://alice/~h0410999/cgi-bin/simpleEnquete.html

のアドレスをインターネットエクスプローラで指定します。

各ユーザー名の一覧をクラスごとに分けたものを下に用意してあります。

クラス別名簿一覧表
アンケート結果ファイルの編集

H:ドライブに保存した cgi_data.csv ファイルの内容は，表計算ソフトExcelから編集できるので，入力されたデータを確認したり，変更することが可能です。

注意！
cgi_data.csv の内容を編集し，上書き保存した場合は属性が元に戻ってしまうので，上述の613-3．のように改めて属性を指定し直す必要があります。

第６章 データを集計するCGIアプリケーションの設置

第６章　データを集計するCGIアプリケーションの設置