#!/usr/bin/perl use CGI qw(:standard); use strict; use Encode; alarm (10); #無限ループ対策 #---------- 使用するモジュール require "/home/nanoniele/www/cgi-bin/hhsops/nanoniele_readall.pl"; #ファイルの全内容を読み込む require "/home/nanoniele/www/cgi-bin/hhsops/nanoniele_writeall.pl"; #ファイルに全内容を上書きする require "/home/nanoniele/www/cgi-bin/hhsops/nanoniele_line_add.pl"; #ファイル内のデータの一行を上書きする require "/home/nanoniele/www/cgi-bin/hhsops/nanoniele_dateandtime.pl"; #日時を取得する #---------- 使用するモジュール ここまで #---------- ローカル変数の宣言 my ($data, @dummy, @readdata, $matchdata); #汎用 my @outdata; #html出力データ my @filepath; #ファイルパス my @timescore; #タイムスコア my $timeflag; #営業時間内かどうかを判定 my $timemessage; #あと何分で営業終了/営業開始か my ($prefecture, $prefecture_text); #県名 my ($place_target, $place_target_text); #市町村名 my $en_place; #URLをエンコードしたもの my ($field_target, $field_target_text); #細かい分野 my $shopname; #店名 my (@route, @route_text); #道路名 #---------- ローカル変数の宣言 ここまで #---------- 制御文字の定義 my $tab="\t"; my $cr = "\n"; my $cr2 = "\r"; my $equal = "="; my $space = " "; my $comma = ","; my $pa = "("; my $minus = "-"; #---------- 制御文字の定義 ここまで #---------- 初期値の定義 my $hitcount = "0"; #---------- 初期値の定義 ここまで #---------- パラメータ取り込み my $cate = param('c'); #県名 my $place = param('p'); #市町村名 my $field = param('f'); my $r = param('r'); #道路名 my $e = param('e'); #設備名 my @date = nanoniele_dateandtime(0); #---------- パラメータ取り込み ここまで #---------- 時刻のスコア化 $date[6] = "24" if ($date[6] eq "00"); $date[6] = "25" if ($date[6] eq "01"); $date[6] = "26" if ($date[6] eq "02"); $date[6] = "27" if ($date[6] eq "03"); $timescore[1] = ($date[6] * 60) + $date[7]; #---------- 時刻のスコア化 ここまで #---------- 曜日を取得 my ($weekday, $monthweek) = getwday($date[3], $date[4], $date[5]); #---------- 曜日を取得 ここまで #---------- htmlヘッダとフッタの作成 $outdata[1] = nanoniele_readall('hhshops_data/header_roadsidest.txt'); #ヘッダ $outdata[2] = nanoniele_readall('hhshops_data/footer.txt'); #フッタ #---------- htmlヘッダとフッタの作成 ここまで #---------- bodyの作成 ($outdata[3]) $outdata[3] = '
'; $outdata[3] = $outdata[3] . '