#!/usr/local/bin/perl # #　アンケート集計の照会 # # id=show.cgi # update. 97.10.3 $file = "/dialup/chichibu/cgi-bin/anksum.dat"; $bkhmpg = "http://www.kumagaya.or.jp/~chichibu/cgi.html"; open(DATA,"$file"); $cnt = ; close(DATA); # もしファイルにデータがなかったらテーブルを０で初期化する if ($cnt eq "") { &syokika; }else{ @cnt = split(/,/,$cnt); } print "Content-type: text/html\n\n"; print "\n\n"; print "集計結果 10/3\n"; print "\n"; print '' . "\n"; print "

アンケート集計結果

\n"; print '
'; # 性別の集計結果 print "\n"; print "\n"; print ''."\n"; print ''."\n"; print "
性別は？数
男'.$cnt[0].'
女'.$cnt[1].'
\n\n

\n\n"; print "\n"; print "\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print "
どれが参考になりましたか？数
メール'.$cnt[2].'
アンケート'.$cnt[3].'
クッキー'.$cnt[4].'
カレンダー'.$cnt[5].'
特にない'.$cnt[6].'
\n\n

\n\n"; # どこでこのページを知ったかの集計結果 print "\n"; print "\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print "
どうやってこのページを知りましたか？数
Yahooの検索から'.$cnt[7].'
熊谷ネットの検索から'.$cnt[8].'
矢尾百貨店のページから'.$cnt[9].'
URLを間違って偶然見た'.$cnt[10].'
\n\n

\n\n"; # アンケート開始日 print "\n"; print "\n"; print ''."\n"; print "
集計開始日前回更新日
'.$cnt[20].''.$cnt[21].''.$cnt[22].''.$cnt[23].''.$cnt[24].''.$cnt[25].'
\n\n

\n\n"; print "
"; print '

' . "\n"; print ''."\n"; print '
'."\n"; print "\n\n"; # テーブルを０で初期化する sub syokika { while ($#cnt + 1 < 20) { @cnt = (0,@cnt); } }