#!/usr/local/bin/perl #----エラーチェック用 BEGIN{ $| = 1; print "Content-type: text/html\n\n"; open(STDERR, ">&STDOUT"); } #---初期設定 #---使用するパールライブラリ $num = 1; #---使用するファイルの指定(質問ファイル) $qfile = "q.csv"; $afile = "anser.log"; $kikanfile = "kikan.txt"; #---ヘッダーHTMLの出力 &HEAD; #---開催ファイルの読み込み---- open(KIKAN,$kikanfile); $kikannaiyou = ; close(KIKAN); if($kikannaiyou eq "on"){ print '

アンケート

只今、アンケートは停止させていただいております。
答えてキャンペーンを企画中ですのでもう少々お待ち下さいませ。

'; &FOOTER2; exit; } #-------メイン処理の開始----------------------------------------------------------------------------- #---アンケートのPRと、開催期間の表示 print << "PR_HTML";

皆様の声をお聞かせ下さい。

PR_HTML #----質問ファイルの読み取り---------------------------------------- open (qfile,$qfile) or die; flock(qfile,2); @situmon = ; flock(qfile,8); close(qfile); #---最初の2行だけ取り出し for($s=0;5>$s;$s++){ @situmon[$s] =~ s/\n//g; #// 改行を削除 @situmon[$s] =~ s/,//g; #// カンマを削除 } print '

',@situmon[0],'
'; print @situmon[1],'

'; #---フォーム設定---------------- print << "FORM_HTML";
FORM_HTML print ''; print ''; print ''; #---質問と回答表示の繰り返し処理------ #----------最初の2行表示終了とフォーム指定終了---------------------------- #-----↓ここから繰り返しの処理--------------------------- #--データの取り出しと表示--2行目から出発 for ($i = 5; $#situmon >= $i; $i++) { #----データをそれぞれの変数に格納する ($object,$naiyou,@kaitou)= split (/\,/,@situmon[$i]); print ''; #--------回答の作成----------------- #---------テキストボックスの処理---------------- if ($object == 0){ print << "TEXT_HTML"; TEXT_HTML print ' TEXT_HTML2 } #---------------ラジオボタン処理---------------- if($object == 1) { print << "RADIO_HTML"; RADIO_HTML2 } #------------リストボックス処理---------------- if($object == 2) { print << "LIST_HTML"; LIST_HTML2 } #--------------------------テキストエリア処理---------------- if ($object == 3) { print << "TEXTAREA_HTML"; TEXTAREA_HTML print ' TEXTAREA_HTML2 } #---行数用にナンバーをプラス-------------- $num += 1; } #----フッター出力 &FOOTER; &FOOTER2; exit; #ヘッダー出力用 sub HEAD { print << "HEAD_HTML"; HOTEL PLAZAOSAKA アンケート

アンケート

HEAD_HTML } #フッター出力用 sub FOOTER { print << "FOOTER_HTML";
',@situmon[2],'
  ',@situmon[3],'  
  ',@situmon[4],'  
質問',$num,''; print '',$naiyou,'
'; print << "TEXT_HTML2";
RADIO_HTML $flg = 1; foreach(@kaitou){ $_ =~ s/\r\n//g; #// 改行を削除 $_ =~ s/\n//g; #// 改行を削除 if(($_ ne "") && ($_ ne "\r\n") && ($_ ne "\n")){ if ($flg == 1){ $check = "checked='checked'";}else{$check = "";} print '',$_; $flg=0; } } print << "RADIO_HTML2";
LIST_HTML print '
'; print << "TEXTAREA_HTML2";
FOOTER_HTML } sub FOOTER2 { print << "FOOTER2_HTML";
HOTEL PLAZAOSAKA
〒532-0025 大阪府大阪市淀川区新北野1丁目9番15号
TEL：06-6303-1000 FAX：06-6303-0550 MAIL：front\@plazaosaka.com
FOOTER2_HTML }