#!/usr/local/bin/perl #自分で一回アンケートに答えてみないとグラフが動かない。 #1.選択肢から選んでもらう方法なので、気軽に協力してもらえます。 #2.回答を送信後、すぐに集計結果をグラフで表示します。もちろん、アンケートの集計結果だけを見ることも可能です。 #3.１回の訪問で１回だけアンケートに答えることができ、再送信してもアンケートの集計には足されない。(Ver.1.1の追加機能） #enqu.cgiをサーバーに送り(ASCII mode)，パーミッションを755にする。 #同じディレクトリ内にenqu.txtとgraph.gifとcgi-lib.plを置いておく。 #（cgi-lib.plが他のディレクトリにある時は，enqu.cgiのcgi-lib.plのパスの部分の変更をしておくこと。 #このcgi-lib.plファイルはパーミッションの変更は特に必要ないです。転送した時点で644になっていると思います。） #enqu.txtのパーミッションを666に変更する。graph.gifはパーミッション644です。（これは変更の必要なし） # =================================================================== # EASY アンケート （EASY ENQUETE Ver1.1) # Fail Name: enqu.cgi # Copyright; Hiroshi Ishikawa (e-mail; laut@tky.3web.ne.jp) # (URL; http://www2.tky.3web.ne.jp/~laut/) # EASY ENQUETE Ver1.1はフリーウェアです。 # 改造は自由ですが、この欄は削除しないで下さい。 # =================================================================== require 'cgi-lib.pl'; #他の場所にあるときは相対パスで指定 &ReadParse; # この掲示板のタイトル） $title = 'ストレスの部屋　投票所'; # 自分のホームページのURL $home = 'http://contest.thinkquest.gr.jp/tqj1998/10065/'; #相対パスでも可 # GIFファイルの設置場所 $gif = "./graph.gif"; #左は同じディレクトリの場合。別の場所に置く時はパスも記入。 # 質問を記入。選択肢は次に指定するので、ここでは質問項目のみ順番に記入。 # 式の右辺のかっこの中に、ダブルコーテーションマーク「"」で挟んで質問を記入。 # 次の質問との間には、半角カンマを入れる。質問はいくつでも増減可能。 @quest = ( "【質問】あなたの性別は？", #行末は「",」の形 "テキスト、画像の違いによるストレス
【水玉模様１Ａ】", #各行の最初は「"」で最後は「",」の形 "【水玉模様１Ｂ】", "【水玉模様２Ａ】", "【水玉模様２Ｂ】", "【チェック柄３Ａ】", "【チェック柄３Ｂ】", "【チェック柄４Ａ】", "【チェック柄４Ｂ】", "【タイル柄５Ａ】", "【タイル柄５Ｂ】", "【タイル柄６Ａ】", "【タイル柄６Ｂ】"); #最後はこの形で閉じる # 各質問の選択肢を記入。 # ダブルコーテーションマーク「"」で挟まれた所が、各質問の選択肢になる。 # 質問１の選択肢群が一番上、以下順番通り。各行の最後には半角カンマが来る。 # 各行の各選択肢は半角スラッシュ「/」で区切る。選択肢はいくつでも可能。 @q = ( "男性/女性", #行末は「",」の形 "１/２/３/４/５", #各行の最初は「"」で最後は「",」の形。各選択肢の区切りは「/」 "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５", "１/２/３/４/５
"); #最後はこの形で閉じる #===================================================================== # 初期設定が必要なのはここまでです。 #　（以下は変更の必要はありません） #===================================================================== $cookie = 'ezenque'; # 記録保存ファイル $file = 'enque.txt'; #男女別記録保存ファイル　by Presider $mfile = 'menque.txt'; #男用 $ffile = 'fenque.txt'; #女用 if ($ENV{'HTTP_COOKIE'} =~ /$cookie/){ &CookieCutter; } # 条件により処理を分岐 if(($in{'action'} eq "set") && ($wcheck eq 'yet')){ &set; &result_html; }elsif(($in{'action'} eq "set") && ($wcheck eq 'done')){ &result_html; }elsif($in{'action'} eq "result"){ &result_html; }else{ &form_html; } # ------------------------------------------------------------------------ # アンケートのフォームをHTML出力するサブルーチン（最初に呼びだれたとき表示） sub form_html { print "Content-type: text/html\n"; &SetCookie; print "\n"; print < $title

● Double Dealer "Stress" - Eustress & Distress - ●
>Introduction >Beginner >Advanced >Discussion >Links >Stress Room
▼ Stress Room Copyright (c) 1998
B-Company ▼

$title

HOME PAGE

見ていただいたストレスの部屋（ROOM）のストレス度を投票してください。
各項目それぞれ１つずつ選んで、送信して下さい。

Cookie(クッキー)を使って処理しますので、Cookieを有効にしておいて下さい。

EOM $count = @quest; #質問の数を調べる $i = 0; #質問を順番に読み出す準備 $k = 1; #この数字がフォームのnameになる $v = 1; #この数字がフォームのvalueになる while($count > 0){ print "$quest[$i]\n"; #質問をプリント $j = 0; #選択肢を順番に読み出す準備 $shi = @q[$i]; #質問番号にあわせて選択肢群を取り出す @shi = split(/\//,$shi); #取り出した選択肢を１つずつに分割 $count_shi = @shi; #選択肢の数を数える $check = "yes"; #選択肢を順番に出力 while($count_shi > 0){ if($check eq "yes"){ print "$shi[$j]\n"; $check = "no"; }else{ print "$shi[$j]\n"; } $j ++; $v ++; $count_shi --; } $k ++; print "
\n"; $i ++; $count --; } print <　 EOM #記録ファイルをオープンして中が空だったら、初期値を生成 #全体 if(!open(TXT,"$file")){&error;} flock(TXT,2); $line = ; flock(TXT,8); close(TXT); if($line eq ''){ $line = 0; $count = $v + 1; while($count > 0){ $line = "$line,0"; $count --; } @data = split(/\,/,$line); @data = reverse(@data); $data[2] = ($v - 1); #選択肢がいくつあるか記録 @data = reverse(@data); $count = $v + 1; $i = 1; $new_line = "$data[0]"; while($count > 0){ $new_line = "$new_line,$data[$i]"; $i ++; $count --; } if(!open(TXT,">$file")){&error;} flock(TXT,2); print TXT "$new_line"; flock(TXT,8); close(TXT); } #男 if(!open(TXT,"$mfile")){&error;} flock(TXT,2); $mline = ; flock(TXT,8); close(TXT); if($mline eq ''){ $mline = 0; $count = $v + 1; while($count > 0){ $mline = "$mline,0"; $count --; } @mdata = split(/\,/,$mline); @mdata = reverse(@mdata); $mdata[2] = ($v - 1); #選択肢がいくつあるか記録 @mdata = reverse(@mdata); $count = $v + 1; $i = 1; $new_line = "$mdata[0]"; while($count > 0){ $new_line = "$new_line,$mdata[$i]"; $i ++; $count --; } if(!open(TXT,">$mfile")){&error;} flock(TXT,2); print TXT "$new_line"; flock(TXT,8); close(TXT); } #女 if(!open(TXT,"$ffile")){&error;} flock(TXT,2); $line = ; flock(TXT,8); close(TXT); if($fline eq ''){ $fline = 0; $count = $v + 1; while($count > 0){ $fline = "$fline,0"; $count --; } @fdata = split(/\,/,$fline); @fdata = reverse(@fdata); $fdata[2] = ($v - 1); #選択肢がいくつあるか記録 @fdata = reverse(@fdata); $count = $v + 1; $i = 1; $new_line = "$fdata[0]"; while($count > 0){ $new_line = "$new_line,$fdata[$i]"; $i ++; $count --; } if(!open(TXT,">$ffile")){&error;} flock(TXT,2); print TXT "$new_line"; flock(TXT,8); close(TXT); } } # ---------------------------------------------------------------- # アンケートを集計して記録するサブルーチン sub set{ if(!open(OUT,"$file")){&error;} flock(OUT,2); $line = ; flock(OUT,8); close(OUT); @data = split(/\,/,$line); @data = reverse(@data); $v = $data[2]; #記録されている選択肢の数を取り出す #フォームから送られてくるvalueの部分が記録ファイルのデータと一致するか調べるためのvalueと同じ数字を生成 @data = reverse(@data); $value = 1; $i = 2; $v --; while($v > 0){ $value = "$value,$i"; $i ++; $v --; } @question = split(/\,/,$value); #生成したvalueの部分を配列に保存 #記録保存ファイルがもし空なら初期値を生成（基本的に空のことは無いはず） if($line eq ''){ $count_q = @question; $count_q ++; $first = 0; while($count_q > 0){ $first = "$first,0"; $count_q --; } @data =split(/\,/,$first); } $count = @question; #選択肢の総数を調べる $i = 1; $j = 0; #フォームから送信されたvalue値が同じなら、データをプラスする while($count > 0){ if($in{"$i"} eq "$question[$j]"){ $data[$j] ++; $i ++; } $j ++; $count --; } # 時間の取得 ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime; $mon++; @week = ('日','月','火','水','木','金','土'); $wday = $week[$wday]; $mon = sprintf("%.2d",$mon); $mday = sprintf("%.2d",$mday); $hour = sprintf("%.2d",$hour); $min = sprintf("%.2d",$min); $sec = sprintf("%.2d",$sec); $jikan = "$year/$mon/$mday($wday) $hour:$min:$sec"; #時間と回答総数を保存する @data = reverse(@data); $data[0] = $jikan; $data[1] ++; @data = reverse(@data); #全データを順番に並べて記録ファイルに保存 $count = @data; $count = $count --; $line = "$data[0]"; $i = 1; while($count > 0){ $line = "$line,$data[$i]"; $i ++; $count --; } if(!open (IN,">$file")){&error;} flock(IN,2); print IN $line; flock(IN,8); close (IN); #男女別のファイルに保存する　by Presider if(!open(OUT,"$mfile")){&error;} flock(OUT,2); $mline = ; flock(OUT,8); close(OUT); if(!open(OUT,"$ffile")){&error;} flock(OUT,2); $fline = ; flock(OUT,8); close(OUT); @mdata = split(/\,/,$mline); @fdata = split(/\,/,$fline); #記録保存ファイルがもし空なら初期値を生成（基本的に空のことは無いはず） if($mline eq ''){ $count_q = @question; $count_q ++; $first = 0; while($count_q > 0){ $first = "$first,0"; $count_q --; } @mdata =split(/\,/,$first); } #記録保存ファイルがもし空なら初期値を生成（基本的に空のことは無いはず） if($fline eq ''){ $count_q = @question; $count_q ++; $first = 0; while($count_q > 0){ $first = "$first,0"; $count_q --; } @fdata =split(/\,/,$first); } #男 if ($in{"1"} == 1){ $count = @question; #選択肢の総数を調べる $i = 1; $j = 0; #フォームから送信されたvalue値が同じなら、データをプラスする while($count > 0){ if($in{"$i"} eq "$question[$j]"){ $mdata[$j] ++; $i ++; } $j ++; $count --; } #女 }else{ $count = @question; #選択肢の総数を調べる $i = 1; $j = 0; #フォームから送信されたvalue値が同じなら、データをプラスする while($count > 0){ if($in{"$i"} eq "$question[$j]"){ $fdata[$j] ++; $i ++; } $j ++; $count --; } } #時間と回答総数を保存する @mdata = reverse(@mdata); $mdata[0] = $jikan; $mdata[1] ++; @mdata = reverse(@mdata); #全データを順番に並べて記録ファイルに保存 $count = @mdata; $count = $count --; $mline = "$mdata[0]"; $i = 1; while($count > 0){ $mline = "$mline,$mdata[$i]"; $i ++; $count --; if(!open (IN,">$mfile")){&error;} flock(IN,2); print IN $mline; flock(IN,8); close (IN); #時間と回答総数を保存する @fdata = reverse(@fdata); $fdata[0] = $jikan; $fdata[1] ++; @fdata = reverse(@fdata); #全データを順番に並べて記録ファイルに保存 $count = @fdata; $count = $count --; $fline = "$fdata[0]"; $i = 1; while($count > 0){ $fline = "$fline,$fdata[$i]"; $i ++; $count --; if(!open (IN,">$ffile")){&error;} flock(IN,2); print IN $fline; flock(IN,8); close (IN); } # -------------------------------------------------------------- # 結果表示HTML出力サブルーチン sub result_html { #全体 if(!open(OUT,"$file")){&error;} flock(OUT,2); $line = ; flock(OUT,8); close(OUT); #記録ファイルから取り出したデータから総数と時間を抽出 @data = split(/\,/,$line); @data = reverse(@data); $jikan = $data[0]; $total = $data[1]; @data = reverse(@data); $count = @data; $count = $count - 2; $i = 0; #各データから各々パーセント計算をする while($count > 0){ if($data[$i] == 0){ $per[$i] = 0; }else{ $per[$i] = (int(1000 * ($data[$i] / $total)) / 10); } $i ++; $count --; } #男 if(!open(OUT,"$mfile")){&error;} flock(OUT,2); $mline = ; flock(OUT,8); close(OUT); @mdata = split(/\,/,$mline); @mdata = reverse(@mdata); $mjikan = $mdata[0]; $mtotal = $mdata[1]; @mdata = reverse(@mdata); $count = @mdata; $count = $count - 2; $i = 0; while($count > 0){ if($mdata[$i] == 0){ $mper[$i] = 0; }else{ $mper[$i] = (int(1000 * ($mdata[$i] / $mtotal)) / 10); } $i ++; $count --; } #女 if(!open(OUT,"$ffile")){&error;} flock(OUT,2); $fline = ; flock(OUT,8); close(OUT); @fdata = split(/\,/,$fline); @fdata = reverse(@fdata); $fjikan = $fdata[0]; $ftotal = $fdata[1]; @fdata = reverse(@fdata); $count = @fdata; $count = $count - 2; $i = 0; while($count > 0){ if($fdata[$i] == 0){ $fper[$i] = 0; }else{ $fper[$i] = (int(1000 * ($fdata[$i] / $ftotal)) / 10); } $i ++; $count --; } #集計結果のHTML出力 print "Content-type: text/html\n"; &SetCookie; print "\n"; print < $title

● Double Dealer "Stress" - Eustress & Distress - ●
>Introduction >Beginner >Advanced >Discussion >Links >Stress Room
▼ Stress Room Copyright (c) 1998
B-Company ▼

$title
集計結果

HOME PAGE

$jikan現在の集計結果です
回答総数は$totalです
そのうち男性が$mtotal、女性が$ftotalです

EOM print "総計"; $count = @quest; $i = 0; $v = 0; while($count > 0){ print "$quest[$i]\n
\n\n"; $j = 0; $shi = @q[$i]; @shi = split(/\//,$shi); $count_shi = @shi; while($count_shi > 0){ $r = int($per[$v] * 3.5); $per_view = $per[$v]; #パーセント表示が小数点以下何位も表示されてしまう時は下の行頭の#をとって下さい #$per_view = substr($per[$v],0,4); #この場合４桁までになります(2桁なら4を2にすればOK) print "\n\n\n\n"; if($r != 0){ print "\n"; }else{ print "\n"; } $j ++; $v ++; $count_shi --; } print "
$shi[$j]$data[$v]$per_view\%\n"; print "
\n

\n"; $i ++; $count --; } print "男性のみ"; $count = @quest; $i = 0; $v = 0; while($count > 0){ print "$quest[$i]\n
\n\n"; $j = 0; $shi = @q[$i]; @shi = split(/\//,$shi); $count_shi = @shi; while($count_shi > 0){ $mr = int($mper[$v] * 3.5); $mper_view = $mper[$v]; #パーセント表示が小数点以下何位も表示されてしまう時は下の行頭の#をとって下さい #$mper_view = substr($mper[$v],0,4); #この場合４桁までになります(2桁なら4を2にすればOK) print "\n\n\n\n"; if($mr != 0){ print "\n"; }else{ print "\n"; } $j ++; $v ++; $count_shi --; } print "
$shi[$j]$mdata[$v]$mper_view\%\n"; print "
\n

\n"; $i ++; $count --; } print "女性のみ"; $count = @quest; $i = 0; $v = 0; while($count > 0){ print "$quest[$i]\n
\n\n"; $j = 0; $shi = @q[$i]; @shi = split(/\//,$shi); $count_shi = @shi; while($count_shi > 0){ $fr = int($fper[$v] * 3.5); $fper_view = $fper[$v]; #パーセント表示が小数点以下何位も表示されてしまう時は下の行頭の#をとって下さい #$fper_view = substr($fper[$v],0,4); #この場合４桁までになります(2桁なら4を2にすればOK) print "\n\n\n\n"; if($fr != 0){ print "\n"; }else{ print "\n"; } $j ++; $v ++; $count_shi --; } print "
$shi[$j]$fdata[$v]$fper_view\%\n"; print "
\n

\n"; $i ++; $count --; } print "ご協力ありがとうございました。\n"; #以下はコーピーライトですので、削除しないで下さい print "
\n"; print "EASY ENQUETE V1.1
\n"; print "\n\n"; } #------------------------------------------------------------------- # エラーサブルーチン sub error{ print "Content-type: text/html\n\n"; print "ERROR\n"; print "\n"; print "

ファイルをオープンできません

\n"; print "BACK\n"; exit; } # cookieの取得サブルーチン sub CookieCutter { foreach(split(/; /,$ENV{'HTTP_COOKIE'})){ ($key,$value) = split(/=/); if ($key eq $cookie){ $cookieJar{$cookie} = $value; } } $wcheck = $cookieJar{$cookie}; } # cookieセットサブルーチン sub SetCookie{ print "Set-Cookie: "; if ($in{'action'} eq 'set'){ print "$cookie=done;\n"; }elsif($wcheck eq 'done'){ print "$cookie=done;\n"; }else{ print "$cookie=yet;\n"; } } }}