#!/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/shicho.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/shichodate.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日付取得の停止）(end) ----- 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,$mname,$mfuri,$mshunin,$fname[1],$ffuri[1],$fshunin[1],$fname[2],$ffuri[2],$fshunin[2],$fname[3],$ffuri[3],$fshunin[3],$fname[4],$ffuri[4],$fshunin[4],$fname[5],$ffuri[5],$fshunin[5],$fname[6],$ffuri[6],$fshunin[6],$fname[7],$ffuri[7],$fshunin[7],$fname[8],$ffuri[8],$fshunin[8],$fname[9],$ffuri[9],$fshunin[9],$fname[10],$ffuri[10],$fshunin[10]) = split(/\,/,$DATA[$cnt0]); for($cnt1 = 1;$cnt1 < 11;$cnt1++) { if($fname[$cnt1] eq "") { last; } } if($dsp != 1) { next; } $rspan = $cnt1 - 1; $hno = $cnt0 + 1; print "\n"; print ""; #市名 print ""; #市長名 print ""; #(フリガナ) print ""; #就任年月日 for($cnt1 = 1;$cnt1 <= $rspan;$cnt1++) { if($cnt1 > 1) { print ""; } print ""; #副市長名 print ""; #(フリガナ) print ""; #就任年月日 print "\n"; } $bgcs++; if($bgcs > 2) { $bgcs = 0; } } print "
".$city."".$mname."".$mfuri."".$mshunin."
".$fname[$cnt1]."".$ffuri[$cnt1]."".$fshunin[$cnt1]."
\n"; print $end_txt; exit;