#!/usr/bin/perl ############## #北海道市長会# #　住 所 録　# ############## #日本語コード変換モジュール require 'ment/jcode.pl'; print "Content-type: text/html\n\n"; $top_txt = <<"TITLE_HTML"; 市役所住所録
TITLE_HTML $end_txt = <<"END_HTML";
END_HTML $title_txt = <<"TITLE_HTML"; 市　　名 郵便番号 住　　　　　　　　　　　所 電　話　番　号 TITLE_HTML $datafile = 'ment/data/jyusyo.csv'; open(NOTE,"$datafile"); @DATA = ; close(NOTE); $end_data = @DATA; @stat = stat $datafile; #平成19年4月1日 print $top_txt; # ----- add 2007.6.21 （日付ファイルの読み込み）(start) ----- $datefile = 'ment/data/jyusyodate.csv'; open(DATE,"$datefile"); @date = ; close(DATE); ($updyy,$updmm,$upddd) = split(/\,/,$date[0]); $gengo = $updyy; $tsuki = $updmm; $mday = $upddd; # ----- add 2007.6.21 （日付ファイルの読み込み）(end) ----- # ----- add 2007.6.21 （CSV日付取得の停止）(start) ----- #($sec,$min,$hour,$mday,$month,$year,$wday,$stime) = localtime($stat[9]); #$gengo = $year - 88; #$tsuki = $month + 1; # ----- add 2007.6.21 （CSV日付取得の停止）(start) ----- #print "（平成$gengo年$tsuki月$mday日現在）\n"; print " \n\n"; print $title_txt; @bgc = ("#E4F3DA","#F0F2F7","#ffffe1"); $bgcs = 0; for($cnt0 = 0;$cnt0 < $end_data;$cnt0++) { ($dsp,$city,$yubin,$jyusyo,$tel) = split(/\,/,$DATA[$cnt0]); if($dsp != 1) { next; } $hno = $cnt0 + 1; print "\n"; print ""; #市名 print ""; #郵便番号 print ""; #住所 print ""; #電話番号 $bgcs++; if($bgcs > 2) { $bgcs = 0; } } print "
".$city."".$yubin."".$jyusyo."".$tel."
\n"; print $end_txt; exit;