#!/usr/bin/perl

use strict;
# use warnings;
use Encode;
use HTTP::Date;
use Socket;
# use XML::RSS;
use Image::Magick;
use Math::Trig;

use lib 'Hinet';
use Hinet;
use HinetAqua;
use lib 'JMAdata';
use JMAdata;

#----------------------------- 地震ｷﾀｰ!!地図生成CGI -----------------------------
# 書いた人：12歳@1995年◆12at95.4iI　http://12at1995.net/
# 利用による責任は当方は負いませんし、サポートもしませんが、
# 複製・改変・商用利用・再配布等、こんなものでよければ自由にどうぞ。
#--------------------------------------------------------------------------------
# 市区町村位置データには国土数値情報を使っています。 http://nlftp.mlit.go.jp/ksj/
# 使用ファイル名 P02_02p_[01-47].txt
# 計47ファイル(施設‐公共施設(点)の47都道府県のファイル・全て平成2年度)
#「国土数値情報利用約款」は、守ったほうがいいと思います。
#--------------------------------------------------------------------------------

my $version = "0.55c(alpha)";

# 利用を規制するリモートホスト名
my $deny_remote = "";

#--- 処理時間記録用変数 -----
my $starttime = time();
my $time;
my $server_response_time;
my $connection_time;
my $res2geo_time;
my $geo2xml_time;
my $xml2print_time;
my $nowtime = HTTP::Date::time2iso();

# ログ格納用変数
my $log;
my $errorLog;
my $processLog;
# ログファイルのパス
my $logfile;
if ($nowtime =~ m|(\d+)-(\d+)-(\d+)|) {
	$logfile = "$1$2$3";
}
$logfile = "./log/${logfile}.txt";
my $errorLogFile = "./error.txt";
my $datAccessContentLog_file = "./datAccessContentLog.txt";

#--- リモートホスト規制および、アクセスログ記録
my $remote_addr = $ENV{'REMOTE_ADDR'};
my $remote_host = gethostbyaddr(pack("C4", split(/\./, $remote_addr)), 2) || $remote_addr;
if ($deny_remote && $remote_host =~ /$deny_remote/) {
	print "Content-type: text/plain; charset=euc-jp\n\n";
	print "$remote_host:Remote Host Regulation\n";
	$log .= "$nowtime\tRemote Host Regulated:$remote_host\t$ENV{'HTTP_USER_AGENT'}";
	my ($userCPUTime, $systemCPUTime) = (sprintf("%.2f", (times())[0]), sprintf("%.2f", (times())[1]));
	$log .= "\t$userCPUTime\t$systemCPUTime" . "\t?$ENV{'QUERY_STRING'}";
	&update_log();
	exit(0);
}
$log .= "$nowtime\t$remote_host";

# ｷﾀｰ系レスと判定するための正規表現
my $kita_regex = '(';
	$kita_regex .= '((き|来)((まし|)た(?!(ら|り))|て(る|ます))|キタ|ｷﾀ|kita|キテル|ｷﾃﾙ)';
	$kita_regex .= '|((揺|ゆ)れ(\s|((まし|)た(?!(ら|り)))|て(る|ます))|ユレタ|ﾕﾚﾀ|ユレテル|ﾕﾚﾃﾙ)';
	$kita_regex .= '|(ゆら(っ|り)|ユラ(ッ|リ)|ﾕﾗ(ｯ|ﾘ))';
	$kita_regex .= '|(みしっ|ミシッ|ﾐｼｯ|みしみし|ミシミシ|ﾐｼﾐｼ)';
	$kita_regex .= '|(びびった|ビビッタ|ﾋﾞﾋﾞｯﾀ)';
$kita_regex .= ')';
# マッチした場合、無条件でｷﾀｰ系レスと認めないと判定するための正規表現
my $not_kita_regex = 'ない|かも|気が|気(付|づ)か|思|(感|かん)じが|(揺|ゆ)れ(な|ず|ん)|\?|？|&gt;|&lt;|＞|＜|\|';
$not_kita_regex .= '|NHK|ＮＨＫ|ニュース|ﾆｭｰｽ|速報|Hi-net';
# 地震ｷﾀ━スレッドの正規表現。添え字が小さいものほど、厳密性が高い。
my @kita_thread_regex = (
	'地震ｷﾀ(?:━)+[(\s]+ﾟ∀ﾟ[)\s]+(?:━)+[!\s]+\D*(\d+)',
	'地震ｷﾀ(?:━)+(?:[(\s]|(?:ﾟ))+ﾟ∀ﾟ(?:[)\s]|(?:ﾟ))+(?:━)+\s*[!]+\D*(\d+)', 
	'地震(?:ｷ)+(?:ﾀ)+(?:━)+\W+\(ﾟ∀ﾟ\).+?(?:━)+(?:[\s!]|！)+\D*(\d+)',
	# '地震(?:ｷ)+(?:ﾀ)+(?:━)+\W+\(ﾟ∀ﾟ\).+?(?:━)+[\s!]'
	# '地震(?:ｷ)+(?:ﾀ)+(?:-|━)+\W+\([^)]+\).+?(?:-|━)+[\s!]+\D*(\d+)'
);

# 地震ｷﾀｰイベント発生の判定基準
my $event_threshold_time = 150;  # 閾値時間内に(単位は秒)
my $event_res_count = 3;         # このレス数以上のｷﾀｰ系レスが存在した場合、イベント発生と判定する
my $event_duration = 600;        # イベント発生からの継続時間(単位は秒)
my $event_duration_limit = 3600; # イベント発生からの延長を含めた継続時間の限界(単位は秒)
# 離れすぎている地点の判定に使う距離。単位はkm
my $limitDistance = 200;

# 地名キャッシュを、現行スレ含めて過去何スレまで読み込むか
my $geocache_use_num = 10;

# デバッグ・作業モード設定
my $debug = 0;
my $isMakeGeocacheMode = 0; # 全datからgeocacheを作成して終了する。要ソース書き換え。
my $isMakePastDataMode = 0; # 終了確定判定が出たイベントデータも作成する。

# キャッシュ時間。単位は秒。
my $cachelimit = '20';
# サーバー通信のリミット時間。この時間待っても通信が終わらない場合は、キャッシュを使う。単位は秒。
my $server_wait_limit = '10';

# Hi-netデータを、イベント発生前何秒までを妥当として採用するか。単位は秒。
my $hinetLimitTime = 240;

# CGIがおかれるディレクトリのURL（相対アドレス不可）と、CGIのファイル名
my $cgi_directory_URL = "http://12at1995.net/kita/";
my $cgi_filename = "kita_map.cgi";

# 対象板のドメインとカテゴリ名
my $board_domain    = "hayabusa.2ch.net";
my $board_directory = "eq";
# スレッド投稿限界数
my $thread_res_limit = 1000;

# dat番号
my $dat_num;
# dat番号に関わる変数の設定をします
my $pageurl;
my $threadURL;
my $cacheidx;
my $dat_file;
my $geoname_cache_file;
sub dat_num_setting {
	my $dat_num = $_[0];
	# リモートのdatのURL
	$pageurl = "http://$board_domain/$board_directory/dat/$dat_num.dat";
	# スレッドのURL
	$threadURL = "http://$board_domain/test/read.cgi/$board_directory/$dat_num/";
	# datのインデックス：最後にアクセスした時間およびdatの受信バイト数・受信レス数のログ
	$cacheidx = "./dat/$dat_num.idx";
	# ローカルのdatのパス
	$dat_file = "./dat/$dat_num.dat";
	# キャッシュする地名抽出ファイルのパス
	$geoname_cache_file = "./dat/$dat_num.geocache";
}

# dat番号の記録ファイル
my $dat_num_file = "./dat_num.idx";

# CGIで表示する最新ファイルキャッシュのパス
my $cachename = './latest.html';
#my $latestSvgFile = './images/latest.svg';
my $latestSvgFile = './images/latest.svg.php'; # IE7 + Adobe SVG Viewer 6 でちゃんと表示できないので仕方なく対応
my $latestSvgPhpFile = './images/latest.svg.php';
my $latestImgFile = './latest.gif';
# ラスター画像に追加情報を入れる前のプロトタイプのファイルパス
my $latest_proto_map_file = './latestProto.png';
# SVGに追加情報を入れる前のプロトタイプのファイルパス
my $latestSvgProtoFile = './latestProto.svg.php';
# キャッシュする一番最近のイベントのｷﾀｰ!!リストファイルのパス
my $event_latest_rss_file = './latest.xml';
# キャッシュするイベントリストRSSのパス
my $event_list_rss_cachename = './event_list.xml';
# XSLTファイルのパス
my $event_xslt = './event.xsl'; # イベントRSS用
my $event_list_xslt = './event_list.xsl'; # イベントリストRSS用

# イベント記録htmlテーブルのキャッシュのパス
my $event_table_file = "./recent_event_table.cache";
# htmlパーツのパス
my $link_div_file = "./link_div.php";

# 凡例名と凡例画像ファイルパスたち
my %legendfiles = ("1"=>'./images/6x6_red_circle.png', "Hinet"=>'./Hinet.png');	
# 背景画像パス
my $bgmapfile = 'images/MapMap6_Japan_All_750_green.png';
# 画像用フォントttf
my $mapFont = './misc/mona.ttf';
# SVG用の背景画像パス
my $bgmapVectorFile = 'images/MapMap6_Japan_All_3000_green.gif';
# 地図画像の大きさ
my ($event_map_width, $event_map_height) = (600, 600);

# 規模の単位
my $event_scale_unit = "ｷﾀ━!!"; 

# その他
my $mailAddress = "12sai(at)12at1995.net";
my $profilePage = "http://12at1995.net/profile";
my $foafFile = "http://12at1995.net/foaf";

#------------------------------------------------------
# EUCの全角文字範囲
my $ascii = '[\x00-\x7F]';
my $twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
my $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
#------------------------------------------------------
# 地名をキーとする市区町村区分,東経(単位は0.1秒),北緯(単位は0.1秒),都道府県コード
my %place_4up = (
	"球磨郡山江村"=>"村	4707699	1160765	43",
	"泉南郡熊取町"=>"町	4872913	1238334	27",
	"天城湯ケ島町"=>"町	5001430	1256346	22",
	"かつらぎ町"=>"町	4878237	1234555	30",
	"阿武郡旭村"=>"村	4729964	1237010	35",
	"伊豆長岡町"=>"町	5001555	1260882	22",
	"宇治田原町"=>"町	4890951	1254580	26",
	"音威子府村"=>"村	5121557	1610030	1",
	"会津高田町"=>"町	5034396	1348444	7",
	"会津坂下町"=>"町	5033701	1352106	7",
	"紀伊長島町"=>"町	4907891	1231034	24",
	"九十九里町"=>"町	5055970	1279150	12",
	"佐那河内村"=>"村	4840423	1223636	36",
	"市川大門町"=>"町	4986122	1280212	19",
	"十和田湖町"=>"町	5080054	1461009	2",
	"上九一色村"=>"村	4990073	1278991	19",
	"上小阿仁村"=>"村	5050780	1442187	5",
	"上富良野町"=>"町	5128946	1564316	1",
	"新十津川町"=>"町	5107696	1567660	1",
	"西祖谷山村"=>"村	4817518	1220022	36",
	"西那須野町"=>"町	5039058	1328301	9",
	"西枇杷島町"=>"町	4927267	1267204	23",
	"千早赤阪村"=>"村	4882512	1240607	27",
	"大網白里町"=>"町	5051659	1278659	12",
	"中富良野町"=>"町	5127419	1562514	1",
	"天津小湊町"=>"町	5045661	1264289	12",
	"土佐山田町"=>"町	4812782	1209619	39",
	"東祖谷山村"=>"村	4820648	1219126	36",
	"那智勝浦町"=>"町	4893977	1210413	30",
	"南富良野町"=>"町	5132607	1553838	1",
	"熱塩加納村"=>"村	5035521	1357787	7",
	"本耶馬溪町"=>"町	4722209	1205728	44",
	"妙高高原町"=>"町	4975660	1327275	15",
	"木曽福島町"=>"町	4957249	1290472	20",
	"野沢温泉村"=>"村	4983974	1329102	20",
	"利尻富士町"=>"町	5084283	1628687	1",
	"えりも町"=>"町	5153490	1512492	1",
	"さいたま"=>"市	5027340	1290882	11",
	"すさみ町"=>"町	4877977	1207686	30",
	"ニセコ町"=>"町	5064884	1540881	1",
	"マキノ町"=>"町	4897541	1276600	25",
	"むつみ村"=>"村	4736879	1239629	35",
	"阿久比町"=>"町	4929056	1257463	23",
	"阿知須町"=>"町	4729025	1224336	35",
	"愛知川町"=>"町	4903741	1268953	25",
	"鯵ヶ沢町"=>"町	5047631	1467982	2",
	"粟島浦村"=>"村	5013290	1384751	15",
	"安芸津町"=>"町	4781393	1235392	34",
	"安心院町"=>"町	4728826	1203688	44",
	"安曇川町"=>"町	4896677	1271832	25",
	"伊王島町"=>"町	4672107	1177235	42",
	"伊香保町"=>"町	5001200	1313881	10",
	"伊自良村"=>"村	4922292	1279133	21",
	"伊集院町"=>"町	4694558	1138683	46",
	"伊是名村"=>"村	4605949	969285	47",
	"伊平屋村"=>"村	4606936	973263	47",
	"伊予三島"=>"市	4807872	1223188	38",
	"伊良部町"=>"町	4506201	893851	47",
	"一の宮町"=>"町	4720455	1186143	43",
	"一本松町"=>"町	4775401	1186526	38",
	"宇ノ気町"=>"町	4921541	1321824	17",
	"宇多津町"=>"町	4818091	1234872	37",
	"宇奈月町"=>"町	4952093	1326754	16",
	"羽ノ浦町"=>"町	4846737	1222334	36",
	"羽須美村"=>"村	4776179	1255629	32",
	"浦川原村"=>"村	4983430	1337613	15",
	"永源寺町"=>"町	4906955	1262728	25",
	"永平寺町"=>"町	4907933	1299351	18",
	"奥多摩町"=>"町	5007655	1288989	13",
	"温泉津町"=>"町	4764966	1263122	32",
	"下蒲刈町"=>"町	4776684	1230730	34",
	"下仁田町"=>"町	4996535	1303514	10",
	"下諏訪町"=>"町	4970994	1298391	20",
	"下北山村"=>"村	4894489	1224063	29",
	"加子母村"=>"村	4945473	1285634	21",
	"加治川村"=>"村	5017088	1367086	15",
	"加治木町"=>"町	4703916	1142465	46",
	"加津佐町"=>"町	4686060	1174437	42",
	"加茂川町"=>"町	4817322	1254885	33",
	"嘉手納町"=>"町	4599274	948884	47",
	"河口湖町"=>"町	4995656	1277930	19",
	"河内長野"=>"市	4880482	1240200	27",
	"会津若松"=>"市	5037585	1349707	7",
	"関ケ原町"=>"町	4913010	1272901	21",
	"丸瀬布町"=>"町	5160278	1584079	1",
	"岩出山町"=>"町	5071599	1391327	4",
	"喜茂別町"=>"町	5073769	1540557	1",
	"喜連川町"=>"町	5041011	1321768	9",
	"貴志川町"=>"町	4871402	1231737	30",
	"鬼無里村"=>"村	4968219	1320418	20",
	"宜野座村"=>"村	4607230	953169	47",
	"吉野谷村"=>"村	4919453	1307418	17",
	"久々野町"=>"町	4942022	1297636	21",
	"久御山町"=>"町	4886479	1255629	26",
	"久美浜町"=>"町	4856329	1281624	26",
	"久米南町"=>"町	4822683	1257324	33",
	"久保田町"=>"町	4688712	1196287	41",
	"久木野村"=>"村	4717218	1181495	43",
	"宮之城町"=>"町	4696474	1148503	46",
	"京ヶ瀬村"=>"村	5010745	1362159	15",
	"郷ノ浦町"=>"町	4668977	1214880	42",
	"玉之浦町"=>"町	4630290	1174731	42",
	"近江八幡"=>"市	4899637	1264508	25",
	"金ヶ崎町"=>"町	5080343	1410963	3",
	"金砂郷村"=>"村	5056856	1315875	8",
	"九度山町"=>"町	4880337	1234220	30",
	"倶知安町"=>"町	5067451	1544374	1",
	"具志川村"=>"村	4562961	948421	47",
	"具志頭村"=>"村	4598816	940248	47",
	"熊野川町"=>"町	4891505	1216872	30",
	"訓子府町"=>"町	5174660	1574034	1",
	"祁答院町"=>"町	4697923	1147233	46",
	"軽井沢町"=>"町	4989607	1308430	20",
	"月ケ瀬村"=>"村	4897676	1249410	29",
	"月夜野町"=>"町	5004077	1320334	10",
	"古座川町"=>"町	4889428	1207023	30",
	"戸河内町"=>"町	4760253	1244641	34",
	"五ヶ瀬町"=>"町	4723173	1176467	45",
	"五個荘町"=>"町	4903017	1265408	25",
	"五十崎町"=>"町	4775782	1207055	38",
	"五所川原"=>"市	5055986	1469012	2",
	"五城目町"=>"町	5044504	1437801	5",
	"五日市町"=>"町	5012043	1286156	13",
	"御前崎町"=>"町	4975521	1245869	22",
	"御前山村"=>"村	5051413	1316069	8",
	"御蔵島村"=>"村	5025485	1220132	13",
	"御代田町"=>"町	4986428	1307452	20",
	"厚沢部町"=>"町	5048260	1509057	1",
	"口之津町"=>"町	4686739	1173861	42",
	"江戸崎町"=>"町	5051779	1294328	8",
	"江釣子村"=>"村	5078729	1414598	3",
	"江田島町"=>"町	4769304	1232750	34",
	"香我美町"=>"町	4814781	1208392	39",
	"香々地町"=>"町	4735092	1211783	44",
	"香良洲町"=>"町	4915526	1247077	24",
	"高根沢町"=>"町	5039646	1318604	9",
	"高清水町"=>"町	5076518	1391588	4",
	"高千穂町"=>"町	4727164	1177503	45",
	"高野口町"=>"町	4880146	1234889	30",
	"国分寺町"=>"町	4822670	1234575	37",
	"国分寺町"=>"町	5034434	1309816	9",
	"黒松内町"=>"町	5051206	1535952	1",
	"黒田庄町"=>"町	4859807	1260809	28",
	"黒保根村"=>"村	5014337	1313940	10",
	"今帰仁村"=>"村	4607084	960434	47",
	"佐賀関町"=>"町	4747647	1196771	44",
	"佐久間町"=>"町	4961191	1263184	22",
	"佐土原町"=>"町	4733157	1152742	45",
	"佐呂間町"=>"町	5176031	1584568	1",
	"佐和田町"=>"町	4979695	1367850	15",
	"座間味村"=>"村	4582975	944102	47",
	"三ケ日町"=>"町	4952140	1252767	22",
	"三井楽町"=>"町	4632914	1178641	42",
	"三加茂町"=>"町	4821811	1225216	36",
	"三加和町"=>"町	4702493	1190245	43",
	"三田川町"=>"町	4694449	1199447	41",
	"三刀屋町"=>"町	4783483	1270237	32",
	"三日月町"=>"町	4687901	1197759	41",
	"三日月町"=>"町	4839813	1259378	28",
	"三本木町"=>"町	5074213	1386806	4",
	"三良坂町"=>"町	4784093	1253185	34",
	"山ノ内町"=>"町	4982952	1322695	20",
	"山古志村"=>"村	5000263	1343723	15",
	"山中湖村"=>"村	4998979	1274757	19",
	"山之口町"=>"町	4721608	1143969	45",
	"志津川町"=>"町	5092197	1392291	4",
	"志波姫町"=>"町	5078565	1395073	4",
	"志布志町"=>"町	4719690	1133059	46",
	"紫雲寺町"=>"町	5015693	1368379	15",
	"鹿島台町"=>"町	5079635	1385126	4",
	"七ヶ宿町"=>"町	5056021	1367640	4",
	"七ヶ浜町"=>"町	5078238	1378876	4",
	"酒々井町"=>"町	5049816	1285976	12",
	"修善寺町"=>"町	5002193	1259032	22",
	"十四山村"=>"村	4923968	1263480	23",
	"十津川村"=>"村	4888631	1223465	29",
	"十文字町"=>"町	5058932	1411966	5",
	"出雲崎町"=>"町	4993654	1350994	15",
	"春日居町"=>"町	4991684	1283893	19",
	"初山別村"=>"村	5103740	1603070	1",
	"女満別町"=>"町	5190367	1580724	1",
	"小笠原村"=>"村	5118749	975348	13",
	"小牛田町"=>"町	5078165	1387500	4",
	"小見川町"=>"町	5061837	1290389	12",
	"小佐々町"=>"町	4664931	1195701	42",
	"小坂井町"=>"町	4945032	1252722	23",
	"小鹿野町"=>"町	5004428	1296503	11",
	"小須戸町"=>"町	5006678	1359088	15",
	"小清水町"=>"町	5200766	1578759	1",
	"小石原村"=>"村	4709966	1204358	40",
	"小値賀町"=>"町	4646206	1194758	42",
	"小長井町"=>"町	4686910	1185266	42",
	"小布施町"=>"町	4979351	1321007	20",
	"小淵沢町"=>"町	4979589	1290938	19",
	"小野上村"=>"村	5001859	1315592	10",
	"小野田町"=>"町	5068209	1388691	4",
	"松井田町"=>"町	4996738	1307284	10",
	"松之山町"=>"町	4989986	1335071	15",
	"上ノ国町"=>"町	5044458	1504763	1",
	"上屋久町"=>"町	4700559	1095022	46",
	"上河内村"=>"村	5036567	1320469	9",
	"上五島町"=>"町	4646739	1187327	42",
	"上砂川町"=>"町	5111582	1565281	1",
	"上三川町"=>"町	5036840	1311701	9",
	"上山田町"=>"町	4973427	1312850	20",
	"上士幌町"=>"町	5158794	1556287	1",
	"上志比村"=>"村	4910415	1298700	18",
	"上斉原村"=>"村	4821389	1269943	33",
	"上石津町"=>"町	4912931	1270236	21",
	"上対馬町"=>"町	4660701	1247396	42",
	"上津江村"=>"村	4715288	1191304	44",
	"上那賀町"=>"町	4837515	1216877	36",
	"上之保村"=>"村	4933580	1281961	21",
	"上富田町"=>"町	4875521	1212938	30",
	"上北山村"=>"村	4896105	1228717	29",
	"上矢作町"=>"町	4950179	1270713	21",
	"上湧別町"=>"町	5168770	1589368	1",
	"常陸太田"=>"市	5059250	1315273	8",
	"浄法寺町"=>"町	5081713	1446517	3",
	"信州新町"=>"町	4968697	1316509	20",
	"新吉富村"=>"村	4722014	1208732	40",
	"新魚目町"=>"町	4647378	1187750	42",
	"新篠津村"=>"村	5099499	1556031	1",
	"新島本村"=>"村	5013367	1237453	13",
	"新利根村"=>"村	5050757	1292689	8",
	"真室川町"=>"町	5049202	1398792	6",
	"神恵内村"=>"村	5055650	1553093	1",
	"神津島村"=>"村	5008935	1231275	13",
	"仁賀保町"=>"町	5038773	1414219	5",
	"甚目寺町"=>"町	4925686	1267049	23",
	"世知原町"=>"町	4671144	1197153	42",
	"世羅西町"=>"町	4785523	1246158	34",
	"瀬戸田町"=>"町	4791172	1234855	34",
	"瀬戸内町"=>"町	4655411	1013128	46",
	"清内路村"=>"村	4957389	1277521	20",
	"生田原町"=>"町	5167307	1581139	1",
	"西ノ島町"=>"町	4787903	1299232	32",
	"西粟倉村"=>"村	4836205	1266056	33",
	"西伊豆町"=>"町	4996023	1251650	22",
	"西会津町"=>"町	5027425	1353089	7",
	"西吉野村"=>"村	4887062	1234007	29",
	"西興部村"=>"村	5146135	1595749	1",
	"西合志町"=>"町	4706651	1184515	43",
	"西仙北町"=>"町	5053516	1423544	5",
	"西浅井町"=>"町	4900560	1277825	25",
	"西土佐村"=>"村	4780468	1194105	39",
	"西米良村"=>"村	4721643	1160030	45",
	"西目屋村"=>"村	5050789	1460666	2",
	"西有家町"=>"町	4690814	1175630	42",
	"西有田町"=>"町	4674644	1195459	41",
	"青ヶ島村"=>"村	5031593	1168652	13",
	"石鳥谷町"=>"町	5081517	1421364	3",
	"赤井川村"=>"村	5069422	1550924	1",
	"赤羽根町"=>"町	4939719	1246163	23",
	"千々石町"=>"町	4687340	1180079	42",
	"千代川村"=>"村	5038826	1301511	8",
	"千代田村"=>"村	5048652	1301352	8",
	"千代田町"=>"町	4693533	1197542	41",
	"千代田町"=>"町	4771314	1248200	34",
	"千代田町"=>"町	5020044	1303725	10",
	"前津江村"=>"村	4713134	1195420	44",
	"祖父江町"=>"町	4922071	1268859	23",
	"相模湖町"=>"町	5010907	1282019	14",
	"足和田村"=>"村	4993750	1278142	19",
	"袖ケ浦町"=>"町	5038480	1275349	12",
	"多度津町"=>"町	4815216	1233704	37",
	"多良間村"=>"村	4489141	888040	47",
	"多良見町"=>"町	4679489	1181844	42",
	"多良木町"=>"町	4713805	1161351	43",
	"大井川町"=>"町	4978450	1252966	22",
	"大宇陀町"=>"町	4893514	1241125	29",
	"大河原町"=>"町	5066409	1369658	4",
	"大河内町"=>"町	4850788	1262240	28",
	"大間々町"=>"町	5013942	1311467	10",
	"大宜味村"=>"村	4612402	961127	47",
	"大根占町"=>"町	4708414	1124642	46",
	"大阪狭山"=>"市	4880105	1242011	27",
	"大三島町"=>"町	4787937	1232841	38",
	"大山崎町"=>"町	4884827	1256343	26",
	"大山田村"=>"村	4904018	1251383	24",
	"大須賀町"=>"町	4967716	1248333	22",
	"大瀬戸町"=>"町	4667215	1185466	42",
	"大石田町"=>"町	5053583	1389139	6",
	"大多喜町"=>"町	5048958	1270138	12",
	"大沢野町"=>"町	4939477	1316770	16",
	"大刀洗町"=>"町	4702497	1201282	40",
	"大内山村"=>"村	4909038	1233860	24",
	"大野見村"=>"村	4793142	1200012	39",
	"大野原町"=>"町	4812019	1226925	37",
	"大矢野町"=>"町	4695571	1173028	43",
	"大利根町"=>"町	5028025	1300957	11",
	"大和郡山"=>"市	4888269	1247262	29",
	"大和高田"=>"市	4886612	1242422	29",
	"谷和原村"=>"村	5040501	1295522	8",
	"丹生川村"=>"村	4943271	1302040	21",
	"丹波山村"=>"村	5001326	1288322	19",
	"秩父別町"=>"町	5110626	1575524	1",
	"中伊豆町"=>"町	5004032	1258203	22",
	"中札内村"=>"村	5152894	1537022	1",
	"中種子町"=>"町	4714593	1099055	46",
	"中新田町"=>"町	5070907	1388488	4",
	"中川根町"=>"町	4971028	1261445	22",
	"中津江村"=>"村	4713829	1192789	44",
	"中土佐町"=>"町	4796308	1199666	39",
	"中頓別町"=>"町	5122554	1618836	1",
	"中之口村"=>"村	5002986	1357723	15",
	"中之条町"=>"町	4998416	1317117	10",
	"中之島町"=>"町	4999704	1351612	15",
	"中標津町"=>"町	5219420	1567776	1",
	"中辺路町"=>"町	4878734	1216399	30",
	"猪苗代町"=>"町	5043890	1351971	7",
	"猪名川町"=>"町	4873650	1256098	28",
	"長久手町"=>"町	4933858	1266509	23",
	"長万部町"=>"町	5053839	1530413	1",
	"長野原町"=>"町	4991068	1315782	10",
	"津屋崎町"=>"町	4697000	1216201	40",
	"津久井町"=>"町	5013342	1280990	14",
	"津奈木町"=>"町	4696498	1160220	43",
	"津和野町"=>"町	4743917	1240717	32",
	"鶴ケ島町"=>"町	5018269	1293533	11",
	"弟子屈町"=>"町	5200681	1565384	1",
	"碇ヶ関村"=>"村	5062787	1457017	2",
	"天間林村"=>"村	5081817	1466731	2",
	"田原本町"=>"町	4888700	1243916	29",
	"田舎館村"=>"村	5059915	1462624	2",
	"田沢湖町"=>"町	5066424	1429101	5",
	"田鶴浜町"=>"町	4928077	1334194	17",
	"田布施町"=>"町	4753582	1222235	35",
	"田万川町"=>"町	4739880	1246839	35",
	"田万川町"=>"町	4740459	1245178	35",
	"田野畑村"=>"村	5108133	1437389	3",
	"渡嘉敷村"=>"村	4585178	942963	47",
	"渡名喜村"=>"村	4577145	949263	47",
	"菟田野町"=>"町	4895272	1240852	29",
	"都幾川村"=>"村	5013959	1296031	11",
	"土佐山村"=>"村	4807119	1210727	39",
	"土佐清水"=>"市	4786434	1180021	39",
	"島ケ原村"=>"村	4898138	1251554	24",
	"東粟倉村"=>"村	4837044	1265153	33",
	"東伊豆町"=>"町	5005600	1251641	22",
	"東吉野村"=>"村	4894999	1238472	29",
	"東久留米"=>"市	5022827	1287106	13",
	"東串良町"=>"町	4715150	1129772	46",
	"東市来町"=>"町	4692629	1139580	46",
	"東出雲町"=>"町	4793572	1275364	32",
	"東神楽町"=>"町	5128406	1572993	1",
	"東成瀬村"=>"村	5063480	1410357	5",
	"東脊振村"=>"村	4694417	1200535	41",
	"東藻琴村"=>"村	5194764	1578228	1",
	"東秩父村"=>"村	5011122	1297979	11",
	"東津野村"=>"村	4788999	1202048	39",
	"東白川村"=>"村	4943804	1283007	21",
	"東彼杵町"=>"町	4677095	1189219	42",
	"東風平町"=>"町	4598058	941398	47",
	"東由利町"=>"町	5050498	1414916	5",
	"東与賀町"=>"町	4690446	1195347	41",
	"湯河原町"=>"町	5008013	1265205	14",
	"湯津上村"=>"村	5044525	1324323	9",
	"湯之谷村"=>"村	5004397	1340031	15",
	"湯布院町"=>"町	4728881	1197406	44",
	"徳之島町"=>"町	4644770	998040	46",
	"椴法華村"=>"村	5081229	1505915	1",
	"奈井江町"=>"町	5107906	1563247	1",
	"奈半利町"=>"町	4824862	1203141	39",
	"奈良尾町"=>"町	4646276	1182125	42",
	"那珂川町"=>"町	4695264	1205836	40",
	"那賀川町"=>"町	4847922	1222118	36",
	"内之浦町"=>"町	4718764	1125895	46",
	"南伊豆町"=>"町	4999035	1247306	22",
	"南河原村"=>"村	5019792	1302410	11",
	"南河内町"=>"町	5035672	1309703	9",
	"南茅部町"=>"町	5075052	1508495	1",
	"南串山町"=>"町	4685350	1176252	42",
	"南山城村"=>"村	4895876	1251703	26",
	"南種子町"=>"町	4712512	1094774	46",
	"南小国町"=>"町	4718634	1191412	43",
	"南信濃村"=>"村	4965754	1271391	20",
	"南相木村"=>"村	4987750	1297205	20",
	"南大東村"=>"村	4724208	928013	47",
	"南知多町"=>"町	4929580	1249630	23",
	"南那須町"=>"町	5043498	1319601	9",
	"南部川村"=>"村	4871995	1216370	30",
	"南風原町"=>"町	4598323	942738	47",
	"南箕輪村"=>"村	4967329	1291271	20",
	"南木曽町"=>"町	4954030	1281617	20",
	"南有馬町"=>"町	4689056	1174574	42",
	"二ツ井町"=>"町	5048793	1447359	5",
	"日の出町"=>"町	5012499	1286687	13",
	"日吉津村"=>"村	4801804	1275740	31",
	"日置川町"=>"町	4875904	1208299	30",
	"日之影町"=>"町	4730066	1175412	45",
	"日和佐町"=>"町	4843334	1214319	36",
	"入広瀬村"=>"村	5006677	1344753	15",
	"能登川町"=>"町	4901943	1266525	25",
	"能登島町"=>"町	4931973	1336380	17",
	"波佐見町"=>"町	4676317	1192854	42",
	"八千代町"=>"町	4773961	1246206	34",
	"八千代町"=>"町	4856735	1260073	28",
	"八千代町"=>"町	5036218	1302390	8",
	"八千穂村"=>"村	4985097	1300824	20",
	"八日市場"=>"市	5060434	1285370	12",
	"八百津町"=>"町	4937202	1277018	21",
	"八郎潟町"=>"町	5042763	1438084	5",
	"飯田川町"=>"町	5042694	1435682	5",
	"美津島町"=>"町	4655322	1233554	42",
	"美土里町"=>"町	4774665	1250033	34",
	"美濃加茂"=>"市	4932674	1275730	21",
	"美保関町"=>"町	4795066	1280151	32",
	"美野里町"=>"町	5052803	1304500	8",
	"浜頓別町"=>"町	5125299	1624364	1",
	"不知火町"=>"町	4704004	1175115	43",
	"富士吉田"=>"市	4997186	1277431	19",
	"富士見村"=>"村	5006821	1312270	10",
	"富士見町"=>"町	4976793	1292806	20",
	"富士川町"=>"町	4990390	1265234	22",
	"武芸川町"=>"町	4926501	1279137	21",
	"武蔵村山"=>"市	5018059	1287060	13",
	"風間浦村"=>"村	5075966	1493447	2",
	"米水津村"=>"村	4751307	1185124	44",
	"別子山村"=>"村	4801711	1218354	38",
	"宝珠山村"=>"村	4711388	1202191	40",
	"豊後高田"=>"市	4732093	1207941	44",
	"北塩原村"=>"村	5037910	1355486	7",
	"北会津村"=>"村	5035614	1349612	7",
	"北御牧村"=>"村	4980565	1307833	20",
	"北川辺町"=>"町	5027939	1302742	11",
	"北相木村"=>"村	4987955	1298017	20",
	"北大東村"=>"村	4726613	934023	47",
	"北中城村"=>"村	4600617	946691	47",
	"北波多村"=>"村	4678312	1201402	41",
	"北桧山町"=>"町	5035677	1526846	1",
	"北茂安町"=>"町	4696450	1199588	41",
	"北有馬町"=>"町	4689028	1175485	42",
	"堀之内町"=>"町	5001425	1340665	15",
	"幌加内町"=>"町	5117670	1584282	1",
	"本川根町"=>"町	4973079	1263832	22",
	"妹背牛町"=>"町	5110891	1572987	1",
	"名田庄村"=>"村	4884672	1274289	18",
	"明日香村"=>"村	4889642	1240850	29",
	"毛呂山町"=>"町	5015374	1293924	11",
	"木屋平村"=>"村	4831722	1221498	36",
	"木古内町"=>"町	5055904	1500334	1",
	"木曽川町"=>"町	4924117	1272016	23",
	"木曽岬町"=>"町	4922442	1262616	24",
	"木島平村"=>"村	4982760	1326792	20",
	"木之本町"=>"町	4904109	1277972	25",
	"夜久野町"=>"町	4860009	1271433	26",
	"耶馬溪町"=>"町	4720185	1204237	44",
	"野津原町"=>"町	4735152	1193769	44",
	"野田川町"=>"町	4863665	1278889	26",
	"野迫川村"=>"村	4882875	1229882	29",
	"野辺地町"=>"町	5080775	1471021	2",
	"野母崎町"=>"町	4671413	1172798	42",
	"野々市町"=>"町	4918363	1315050	17",
	"薮塚本町"=>"町	5014836	1308789	10",
	"揖斐川町"=>"町	4916557	1277421	21",
	"揖保川町"=>"町	4843003	1253670	28",
	"雄物川町"=>"町	5055578	1414361	5",
	"与那原町"=>"町	4599246	943035	47",
	"与那国町"=>"町	4428145	880654	47",
	"与那城村"=>"村	4604765	947477	47",
	"陸前高田"=>"市	5098799	1404439	3",
	"留寿都村"=>"村	5071651	1538473	1",
	"留辺蕊町"=>"町	5170283	1576294	1",
	"龍ケ岳町"=>"町	4694450	1166157	43",
	"輪之内町"=>"町	4919004	1270098	21",
	"六ヶ所村"=>"村	5089594	1474718	2",
	"六日市町"=>"町	4749745	1236616	32",
	"和田山町"=>"町	4854804	1272118	28",
	"脇野沢村"=>"村	5069642	1481019	2",
	"檜枝岐村"=>"村	5018118	1332764	7"
);
#	"中央区"=>"区	5031914	1284030	13",
my %place_3 = (
	"いわき"=>"市	5072078	1333707	7",
	"えびの"=>"市	4709304	1153518	45",
	"つくば"=>"市	5042838	1297156	8",
	"びわ町"=>"町	4904524	1274708	25",
	"阿寒町"=>"町	5188592	1551979	1",
	"阿久根"=>"市	4687057	1152369	46",
	"阿見町"=>"町	5047856	1296992	8",
	"阿山町"=>"町	4902410	1253759	24",
	"阿児町"=>"町	4926035	1235791	24",
	"阿仁町"=>"町	5054598	1439872	5",
	"阿蘇町"=>"町	4717630	1187019	43",
	"阿智村"=>"村	4959017	1275864	20",
	"阿東町"=>"町	4742039	1238180	35",
	"阿南町"=>"町	4962798	1270666	20",
	"阿波村"=>"村	4828108	1268446	33",
	"阿波町"=>"町	4832604	1226877	36",
	"阿武町"=>"町	4733049	1242014	35",
	"愛川町"=>"町	5015687	1278926	14",
	"愛東町"=>"町	4905530	1263869	25",
	"愛別町"=>"町	5132944	1580550	1",
	"愛野町"=>"町	4685671	1181284	42",
	"姶良町"=>"町	4702684	1142093	46",
	"渥美町"=>"町	4936048	1246314	23",
	"旭志村"=>"村	4710848	1185931	43",
	"芦安村"=>"村	4981815	1282851	19",
	"芦屋町"=>"町	4703996	1220064	40",
	"芦刈町"=>"町	4687603	1195962	41",
	"芦原町"=>"町	4903426	1303963	18",
	"芦川村"=>"村	4992062	1279808	19",
	"芦辺町"=>"町	4671526	1216762	42",
	"芦北町"=>"町	4697834	1162638	43",
	"梓川村"=>"村	4963348	1303945	20",
	"虻田町"=>"町	5067655	1531761	1",
	"綾歌町"=>"町	4819844	1232383	37",
	"綾上町"=>"町	4822288	1232010	37",
	"綾南町"=>"町	4821323	1232876	37",
	"粟国村"=>"村	4580255	956820	47",
	"粟野町"=>"町	5028360	1314445	9",
	"安浦町"=>"町	4778759	1234047	34",
	"安岐町"=>"町	4741078	1204783	44",
	"安代町"=>"町	5077992	1443553	3",
	"安達町"=>"町	5056722	1353750	7",
	"安塚町"=>"町	4984178	1336502	15",
	"安田町"=>"町	4823417	1203664	39",
	"安田町"=>"町	5012559	1359726	15",
	"安堵町"=>"町	4887373	1245642	29",
	"安土町"=>"町	4901206	1264653	25",
	"安曇村"=>"村	4960361	1302474	20",
	"安濃町"=>"町	4912193	1251227	24",
	"安八町"=>"町	4920062	1271957	21",
	"安富町"=>"町	4845516	1259363	28",
	"庵治町"=>"町	4828758	1237865	37",
	"鞍手町"=>"町	4704378	1216399	40",
	"伊賀町"=>"町	4903886	1253633	24",
	"伊江村"=>"村	4601119	961544	47",
	"伊根町"=>"町	4870466	1284196	26",
	"伊吹町"=>"町	4909711	1273813	25",
	"伊勢原"=>"市	5015459	1274384	14",
	"伊勢崎"=>"市	5011203	1307096	10",
	"伊仙町"=>"町	4641833	996106	46",
	"伊達町"=>"町	5058422	1361416	7",
	"伊奈町"=>"町	5026578	1295882	11",
	"伊奈町"=>"町	5041449	1294553	8",
	"伊南村"=>"村	5023063	1338228	7",
	"伊方町"=>"町	4764843	1205457	38",
	"伊万里"=>"市	4675799	1197412	41",
	"伊野町"=>"町	4803494	1207615	39",
	"夷隅町"=>"町	5051340	1270128	12",
	"衣川村"=>"村	5078549	1405323	3",
	"井口村"=>"村	4929604	1315409	16",
	"井手町"=>"町	4889017	1252632	26",
	"井川町"=>"町	4819762	1224901	36",
	"井川町"=>"町	5043035	1436816	5",
	"井波町"=>"町	4931084	1316225	16",
	"磯部町"=>"町	4925060	1237358	24",
	"一宇村"=>"村	4826412	1222264	36",
	"一宮町"=>"町	4845079	1263568	28",
	"一宮町"=>"町	4854586	1240946	28",
	"一宮町"=>"町	4947340	1254703	23",
	"一宮町"=>"町	4993004	1283163	19",
	"一宮町"=>"町	5053382	1273304	12",
	"一戸町"=>"町	5086774	1447560	3",
	"一志町"=>"町	4911760	1247507	24",
	"一色町"=>"町	4933145	1253135	23",
	"一迫町"=>"町	5074286	1394494	4",
	"稲垣村"=>"村	5054316	1471429	2",
	"稲川町"=>"町	5060519	1409378	5",
	"稲築町"=>"町	4705919	1209393	40",
	"稲美町"=>"町	4856973	1250849	28",
	"稲武町"=>"町	4950366	1267620	23",
	"茨城町"=>"町	5055345	1306217	8",
	"印西町"=>"町	5045342	1289841	12",
	"印南町"=>"町	4867955	1217337	30",
	"印旛村"=>"村	5047499	1287930	12",
	"員弁町"=>"町	4916319	1264037	24",
	"引佐町"=>"町	4956251	1253919	22",
	"引田町"=>"町	4838658	1231958	37",
	"院内町"=>"町	4727522	1203012	44",
	"上野原"=>"市	5008056	1282610	19",
	"宇久町"=>"町	4648797	1197329	42",
	"宇検村"=>"村	4654767	1017973	46",
	"宇都宮"=>"市	5035899	1315876	9",
	"宇美町"=>"町	4698481	1208326	40",
	"宇目町"=>"町	4739762	1182795	44",
	"宇和島"=>"市	4772272	1195912	38",
	"烏山町"=>"町	5045572	1319536	9",
	"羽曳野"=>"市	4881931	1243969	27",
	"羽後町"=>"町	5054557	1411031	5",
	"羽合町"=>"町	4819217	1277520	31",
	"羽黒町"=>"町	5036574	1393781	6",
	"羽村町"=>"町	5015321	1287510	13",
	"羽幌町"=>"町	5101244	1596906	1",
	"羽茂町"=>"町	4979520	1362435	15",
	"雨竜町"=>"町	5108145	1571084	1",
	"卯之町"=>"町	4770471	1200960	38",
	"鵜殿村"=>"村	4896439	1214281	24",
	"碓井町"=>"町	4705719	1208166	40",
	"臼田町"=>"町	4985344	1302931	20",
	"浦臼町"=>"町	5105616	1563393	1",
	"浦河町"=>"町	5139825	1517957	1",
	"浦幌町"=>"町	5171851	1541029	1",
	"瓜連町"=>"町	5056062	1313870	8",
	"頴娃町"=>"町	4697820	1124485	46",
	"頴田町"=>"町	4706121	1212582	40",
	"英田町"=>"町	4828551	1257600	33",
	"益子町"=>"町	5043473	1312712	9",
	"益城町"=>"町	4709482	1180358	43",
	"越生町"=>"町	5014710	1294607	11",
	"越前町"=>"町	4895985	1293596	18",
	"越知町"=>"町	4797172	1207060	39",
	"越廼村"=>"村	4896564	1297292	18",
	"越路町"=>"町	4996294	1346133	15",
	"園部町"=>"町	4877059	1263830	26",
	"猿島町"=>"町	5035978	1300152	8",
	"猿払村"=>"村	5116165	1631856	1",
	"遠賀町"=>"町	4704134	1218417	40",
	"遠軽町"=>"町	5167145	1586144	1",
	"遠別町"=>"町	5104655	1609923	1",
	"塩原町"=>"町	5033719	1330797	9",
	"塩江町"=>"町	4825583	1230949	37",
	"塩川町"=>"町	5036126	1353359	7",
	"塩沢町"=>"町	4998625	1333303	15",
	"塩谷町"=>"町	5034721	1323884	9",
	"塩田町"=>"町	4682204	1192489	41",
	"奥尻町"=>"町	5022636	1518111	1",
	"奥津町"=>"町	4819961	1265009	33",
	"押水町"=>"町	4923427	1325463	17",
	"横越村"=>"村	5009613	1362628	15",
	"横芝町"=>"町	5057458	1283557	12",
	"横須賀"=>"市	5028309	1270044	14",
	"横瀬町"=>"町	5007715	1295442	11",
	"横川町"=>"町	4705391	1148408	46",
	"横田町"=>"町	4791378	1266313	32",
	"横島町"=>"町	4700076	1183458	43",
	"横浜町"=>"町	5085040	1478870	2",
	"王寺町"=>"町	4885532	1245293	29",
	"王滝村"=>"村	4951949	1289022	20",
	"鴬沢町"=>"町	5074328	1397028	4",
	"岡垣町"=>"町	4702121	1218607	40",
	"岡原村"=>"村	4713613	1160469	43",
	"岡部町"=>"町	4978185	1256668	22",
	"岡部町"=>"町	5012572	1303240	11",
	"沖美町"=>"町	4766767	1231318	34",
	"屋久町"=>"町	4700097	1088385	46",
	"牡鹿町"=>"町	5094429	1378755	4",
	"乙部町"=>"町	5045015	1510784	1",
	"恩納村"=>"村	4602766	953766	47",
	"温海町"=>"町	5025314	1390480	6",
	"温泉町"=>"町	4841674	1279919	28",
	"音羽町"=>"町	4943125	1254727	23",
	"音戸町"=>"町	4771400	1230877	34",
	"音更町"=>"町	5155300	1547688	1",
	"音別町"=>"町	5181669	1543951	1",
	"下郷町"=>"町	5035346	1340973	7",
	"下甑村"=>"村	4669565	1138860	46",
	"下山村"=>"村	4943538	1261352	23",
	"下市町"=>"町	4888611	1236880	29",
	"下条村"=>"村	4960509	1274115	20",
	"下川町"=>"町	5134993	1594826	1",
	"下総町"=>"町	5052693	1291413	12",
	"下地町"=>"町	4510032	890815	47",
	"下津町"=>"町	4865717	1228395	30",
	"下田村"=>"村	5005255	1352465	15",
	"下田町"=>"町	5090447	1461453	2",
	"下部町"=>"町	4985383	1275953	19",
	"下呂町"=>"町	4940898	1288897	21",
	"加悦町"=>"町	4863445	1278123	26",
	"加計町"=>"町	4763662	1245825	34",
	"加古川"=>"市	4854371	1251127	28",
	"加世田"=>"市	4691724	1130870	46",
	"加美町"=>"町	4856508	1263572	28",
	"加茂町"=>"町	4784769	1272379	32",
	"加茂町"=>"町	4826032	1266288	33",
	"加茂町"=>"町	4891354	1250970	26",
	"可美村"=>"村	4957498	1248667	22",
	"嘉島町"=>"町	4707376	1178558	43",
	"嘉穂町"=>"町	4706829	1207653	40",
	"家島町"=>"町	4843250	1248208	28",
	"歌志内"=>"市	5113413	1566692	1",
	"歌津町"=>"町	5094836	1393725	4",
	"歌登町"=>"町	5129431	1614209	1",
	"河浦町"=>"町	4682905	1163884	43",
	"河芸町"=>"町	4915431	1252120	24",
	"河原町"=>"町	4831370	1274394	31",
	"河合村"=>"村	4935854	1306844	21",
	"河合町"=>"町	4886626	1244707	29",
	"河津町"=>"町	5003679	1251135	22",
	"河東町"=>"町	5037446	1351774	7",
	"河内村"=>"村	4918855	1310419	17",
	"河内村"=>"村	5048906	1291719	8",
	"河内町"=>"町	4701223	1181800	43",
	"河内町"=>"町	4784095	1240843	34",
	"河内町"=>"町	5037918	1318517	9",
	"河南町"=>"町	4882782	1241526	27",
	"河南町"=>"町	5083074	1386243	4",
	"河辺村"=>"村	4778662	1205353	38",
	"河辺町"=>"町	5047886	1427391	5",
	"河北町"=>"町	5051438	1383230	6",
	"河北町"=>"町	5087477	1386465	4",
	"河野村"=>"村	4898552	1289589	18",
	"花園村"=>"村	4878643	1228774	30",
	"花園町"=>"町	5012273	1300669	11",
	"花山村"=>"村	5070562	1396397	4",
	"花泉町"=>"町	5082700	1397806	3",
	"我孫子"=>"市	5041138	1290987	12",
	"芽室町"=>"町	5149978	1544739	1",
	"賀茂村"=>"村	4996046	1254442	22",
	"賀陽町"=>"町	4813076	1254939	33",
	"会見町"=>"町	4801126	1273234	31",
	"海山町"=>"町	4904409	1227806	24",
	"海士町"=>"町	4791591	1299361	32",
	"海上町"=>"町	5065033	1286271	12",
	"海津町"=>"町	4919019	1267814	21",
	"海田町"=>"町	4771389	1237288	34",
	"海南町"=>"町	4836766	1209547	36",
	"海部町"=>"町	4836830	1209330	36",
	"海老名"=>"市	5018351	1276091	14",
	"皆瀬村"=>"村	5061250	1406553	5",
	"皆野町"=>"町	5007659	1298448	11",
	"蟹江町"=>"町	4924445	1264637	23",
	"蟹田町"=>"町	5063157	1477602	2",
	"開成町"=>"町	5008554	1271994	14",
	"開田村"=>"村	4953728	1293755	20",
	"開聞町"=>"町	4699436	1123202	46",
	"階上町"=>"町	5098279	1456136	2",
	"外海町"=>"町	4668587	1183489	42",
	"柿崎町"=>"町	4982177	1341868	15",
	"柿木村"=>"村	4747300	1239701	32",
	"各務原"=>"市	4926654	1274244	21",
	"角館町"=>"町	5060364	1425375	5",
	"額田町"=>"町	4942564	1256973	23",
	"掛合町"=>"町	4781411	1266922	32",
	"笠懸町"=>"町	5014242	1310096	10",
	"笠原町"=>"町	4937845	1270648	21",
	"笠沙町"=>"町	4686985	1130516	46",
	"笠松町"=>"町	4923585	1273104	21",
	"笠置町"=>"町	4893915	1251267	26",
	"笠利町"=>"町	4668397	1024193	46",
	"鰍沢町"=>"町	4984669	1279563	19",
	"潟東村"=>"村	5002899	1359494	15",
	"滑川町"=>"町	5017105	1298261	11",
	"葛巻町"=>"町	5091880	1441317	3",
	"葛生町"=>"町	5026115	1310353	9",
	"葛尾村"=>"村	5067636	1350003	7",
	"蒲刈町"=>"町	4778601	1230885	34",
	"蒲原町"=>"町	4989717	1264157	22",
	"蒲江町"=>"町	4749413	1180591	44",
	"蒲生町"=>"町	4700592	1143315	46",
	"蒲生町"=>"町	4902656	1262043	25",
	"鎌ヶ谷"=>"市	5040136	1287851	12",
	"鴨島町"=>"町	4836989	1226403	36",
	"鴨方町"=>"町	4809163	1242878	33",
	"茅ヶ崎"=>"市	5018659	1271826	14",
	"刈羽村"=>"村	4990377	1347149	15",
	"苅田町"=>"町	4715387	1215812	40",
	"寒河江"=>"市	5050063	1381604	6",
	"寒川町"=>"町	4831469	1233510	37",
	"寒川町"=>"町	5017934	1273312	14",
	"干潟町"=>"町	5062388	1287487	12",
	"甘楽町"=>"町	5001284	1304628	10",
	"観音寺"=>"市	4811935	1228479	37",
	"関宮町"=>"町	4847318	1273423	28",
	"関金町"=>"町	4815234	1273199	31",
	"関宿町"=>"町	5033662	1296807	12",
	"関城町"=>"町	5037686	1304925	8",
	"関川村"=>"村	5024446	1371124	15",
	"関前村"=>"村	4783887	1230524	38",
	"舘岩村"=>"村	5023325	1335218	7",
	"丸岡町"=>"町	4908377	1299475	18",
	"丸山町"=>"町	5038753	1260663	12",
	"丸子町"=>"町	4977845	1307545	20",
	"丸森町"=>"町	5067698	1364715	4",
	"岸本町"=>"町	4802789	1273837	31",
	"岸和田"=>"市	4873462	1240457	27",
	"岩間町"=>"町	5050003	1306496	8",
	"岩見沢"=>"市	5104063	1554975	1",
	"岩崎村"=>"村	5037394	1460836	2",
	"岩室村"=>"村	4999356	1358026	15",
	"岩手町"=>"町	5083825	1438899	3",
	"岩舟町"=>"町	5027778	1307361	9",
	"岩出町"=>"町	4871325	1233093	30",
	"岩城村"=>"村	4793400	1232733	38",
	"岩城町"=>"町	5042152	1423847	5",
	"岩瀬村"=>"村	5050118	1343343	7",
	"岩瀬町"=>"町	5044123	1308912	8",
	"岩泉町"=>"町	5104807	1434251	3",
	"岩村町"=>"町	4947935	1272992	21",
	"岩代町"=>"町	5058436	1352129	7",
	"岩滝町"=>"町	4865611	1280235	26",
	"岩内町"=>"町	5058464	1547153	1",
	"岩美町"=>"町	4836059	1280607	31",
	"岩木町"=>"町	5055291	1462081	2",
	"喜界町"=>"町	4677810	1019426	46",
	"喜多方"=>"市	5035608	1355332	7",
	"喜入町"=>"町	4699635	1129356	46",
	"基山町"=>"町	4699177	1202989	41",
	"嬉野町"=>"町	4679621	1191505	41",
	"嬉野町"=>"町	4913374	1246346	24",
	"寄居町"=>"町	5011137	1300070	11",
	"寄島町"=>"町	4809282	1241279	33",
	"岐宿町"=>"町	4635446	1178877	42",
	"岐南町"=>"町	4924282	1273914	21",
	"気高町"=>"町	4826092	1278343	31",
	"気仙沼"=>"市	5096637	1400581	4",
	"紀勢町"=>"町	4910342	1234734	24",
	"紀宝町"=>"町	4895847	1214338	24",
	"紀和町"=>"町	4893111	1219432	24",
	"輝北町"=>"町	4711196	1135582	46",
	"騎西町"=>"町	5024815	1299565	11",
	"鬼石町"=>"町	5006325	1301663	10",
	"亀田町"=>"町	5008124	1363189	15",
	"宜野湾"=>"市	4600098	945993	47",
	"菊間町"=>"町	4782391	1225109	38",
	"菊鹿町"=>"町	4707560	1188844	43",
	"菊水町"=>"町	4701946	1187022	43",
	"菊川町"=>"町	4717413	1228153	35",
	"菊川町"=>"町	4971152	1251171	22",
	"菊陽町"=>"町	4709917	1182918	43",
	"吉井町"=>"町	4668811	1197548	42",
	"吉井町"=>"町	4707335	1200263	40",
	"吉井町"=>"町	4827510	1256056	33",
	"吉井町"=>"町	5003705	1305026	10",
	"吉永町"=>"町	4831552	1253214	33",
	"吉岡村"=>"村	5004467	1311999	10",
	"吉海町"=>"町	4789638	1229111	38",
	"吉見町"=>"町	5020450	1297316	11",
	"吉舎町"=>"町	4787855	1249798	34",
	"吉松町"=>"町	4706901	1152401	46",
	"吉川村"=>"村	4813298	1207388	39",
	"吉川町"=>"町	4864558	1255800	28",
	"吉川町"=>"町	4982648	1340046	15",
	"吉川町"=>"町	5034410	1291961	11",
	"吉田村"=>"村	4782900	1265937	32",
	"吉田町"=>"町	4700197	1141467	46",
	"吉田町"=>"町	4771536	1197947	38",
	"吉田町"=>"町	4777439	1247873	34",
	"吉田町"=>"町	4977163	1251625	22",
	"吉田町"=>"町	4999789	1356584	15",
	"吉田町"=>"町	5004966	1297424	11",
	"吉備町"=>"町	4868014	1226314	30",
	"吉富町"=>"町	4722424	1209574	40",
	"吉野町"=>"町	4837481	1227405	36",
	"吉野町"=>"町	4890978	1238140	29",
	"吉良町"=>"町	4934530	1252801	23",
	"吉和村"=>"村	4757201	1241398	34",
	"久井町"=>"町	4789088	1242509	34",
	"久賀町"=>"町	4761468	1221952	35",
	"久山町"=>"町	4698088	1211166	40",
	"久住町"=>"町	4726711	1188622	44",
	"久世町"=>"町	4815218	1262605	33",
	"久瀬村"=>"村	4914363	1279921	21",
	"久米町"=>"町	4820507	1262017	33",
	"久万町"=>"町	4784558	1211483	38",
	"久留米"=>"市	4698404	1199363	40",
	"宮窪町"=>"町	4790822	1230100	38",
	"宮原町"=>"町	4704651	1171892	43",
	"宮崎村"=>"村	4898780	1293803	18",
	"宮崎町"=>"町	5067432	1390015	4",
	"宮守村"=>"村	5088961	1416301	3",
	"宮城村"=>"村	5010509	1311670	10",
	"宮川村"=>"村	4908247	1236993	24",
	"宮川村"=>"村	4937183	1307713	21",
	"宮代町"=>"町	5030160	1296720	11",
	"宮田村"=>"村	4966093	1287581	20",
	"宮田町"=>"町	4704087	1213925	40",
	"宮島町"=>"町	4763663	1234570	34",
	"弓削町"=>"町	4795518	1233140	38",
	"朽木村"=>"村	4893128	1272642	25",
	"球磨村"=>"村	4703541	1160991	43",
	"牛窓町"=>"町	4829391	1246227	33",
	"牛津町"=>"町	4687353	1196897	41",
	"牛堀町"=>"町	5058646	1294380	8",
	"鋸南町"=>"町	5034031	1263873	12",
	"魚島村"=>"村	4799697	1230917	38",
	"京極町"=>"町	5071957	1542820	1",
	"京北町"=>"町	4882858	1265525	26",
	"共和町"=>"町	5062146	1547195	1",
	"協和町"=>"町	5041361	1307723	8",
	"協和町"=>"町	5051656	1426073	5",
	"喬木村"=>"村	4963567	1278380	20",
	"境川村"=>"村	4990284	1281114	19",
	"興部町"=>"町	5152585	1600831	1",
	"鏡石町"=>"町	5052486	1340990	7",
	"鏡野町"=>"町	4821659	1263059	33",
	"玉山村"=>"村	5082113	1434358	3",
	"玉城村"=>"村	4599678	941051	47",
	"玉城町"=>"町	4918824	1241543	24",
	"玉川村"=>"村	5014803	1296195	11",
	"玉川村"=>"村	5054841	1339476	7",
	"玉川町"=>"町	4785979	1224581	38",
	"玉造町"=>"町	5055069	1299670	8",
	"玉村町"=>"町	5008253	1306849	10",
	"玉東町"=>"町	4702707	1184961	43",
	"玉湯町"=>"町	4788342	1275419	32",
	"玉穂町"=>"町	4986842	1282143	19",
	"玉里村"=>"村	5052213	1301699	8",
	"琴海町"=>"町	4672318	1184622	42",
	"琴丘町"=>"町	5043057	1441570	5",
	"琴南町"=>"町	4821368	1229790	37",
	"琴平町"=>"町	4817737	1230785	37",
	"近江町"=>"町	4907044	1272027	25",
	"金井町"=>"町	4981333	1368521	15",
	"金浦町"=>"町	5037339	1413039	5",
	"金屋町"=>"町	4869237	1226208	30",
	"金光町"=>"町	4810588	1243434	33",
	"金山町"=>"町	4937924	1283792	21",
	"金山町"=>"町	5023012	1348237	7",
	"金山町"=>"町	5052330	1399697	6",
	"金城町"=>"町	4757862	1254833	32",
	"金成町"=>"町	5078514	1396685	4",
	"金谷町"=>"町	4972608	1253985	22",
	"金津町"=>"町	4904349	1303501	18",
	"金田町"=>"町	4708165	1212476	40",
	"金武町"=>"町	4605411	952275	47",
	"金峰町"=>"町	4692341	1132252	46",
	"金木町"=>"町	5056555	1472419	2",
	"九戸村"=>"村	5091197	1447504	3",
	"九重町"=>"町	4722387	1196968	44",
	"玖珂町"=>"町	4754997	1227289	35",
	"玖珠町"=>"町	4721532	1198079	44",
	"駒ケ根"=>"市	4965728	1286123	20",
	"具志川"=>"市	4602618	949003	47",
	"串原村"=>"村	4946073	1268582	21",
	"串本町"=>"町	4888235	1204886	30",
	"串木野"=>"市	4689873	1141598	46",
	"串良町"=>"町	4714605	1129956	46",
	"櫛引町"=>"町	5034733	1392342	6",
	"櫛形町"=>"町	4984877	1281793	19",
	"釧路町"=>"町	5201056	1547724	1",
	"窪川町"=>"町	4792972	1195377	39",
	"熊山町"=>"町	4827586	1252316	33",
	"熊石町"=>"町	5039519	1516558	1",
	"熊毛町"=>"町	4750939	1225669	35",
	"熊野町"=>"町	4773055	1236066	34",
	"栗橋町"=>"町	5029199	1300431	11",
	"栗駒町"=>"町	5075818	1397821	4",
	"栗源町"=>"町	5058201	1289061	12",
	"栗山村"=>"村	5023782	1328834	9",
	"栗山町"=>"町	5104368	1549943	1",
	"栗沢町"=>"町	5102987	1552303	1",
	"栗東町"=>"町	4896033	1260658	25",
	"栗野町"=>"町	4706025	1150149	46",
	"桑折町"=>"町	5058711	1362469	7",
	"君田村"=>"村	4782728	1255455	34",
	"群馬町"=>"町	5004118	1310221	10",
	"郡家町"=>"町	4833134	1274600	31",
	"郡山町"=>"町	4697306	1140391	46",
	"恵山町"=>"町	5080017	1504273	1",
	"桂川町"=>"町	4704520	1208771	40",
	"茎崎町"=>"町	5044315	1295421	8",
	"軽米町"=>"町	5092718	1451677	3",
	"頚城村"=>"村	4979976	1338616	15",
	"芸西村"=>"村	4817185	1206881	39",
	"芸濃町"=>"町	4911553	1253051	24",
	"芸北町"=>"町	4762071	1250054	34",
	"穴吹町"=>"町	4830207	1225791	36",
	"穴水町"=>"町	4928943	1340213	17",
	"月潟村"=>"村	5003818	1358121	15",
	"月舘町"=>"町	5062065	1358408	7",
	"月形町"=>"町	5100198	1560110	1",
	"兼山町"=>"町	4935498	1276376	21",
	"剣淵町"=>"町	5125148	1587386	1",
	"建部町"=>"町	4820639	1255163	33",
	"犬飼町"=>"町	4738951	1190462	44",
	"厳原町"=>"町	4654422	1231169	42",
	"厳木町"=>"町	4682411	1199456	41",
	"玄海町"=>"町	4675512	1204896	41",
	"玄海町"=>"町	4698535	1218380	40",
	"古賀町"=>"町	4697004	1214114	40",
	"古座町"=>"町	4889739	1206525	30",
	"古川町"=>"町	4938825	1304450	21",
	"古殿町"=>"町	5060182	1335116	7",
	"古平町"=>"町	5063133	1557469	1",
	"呼子町"=>"町	4676244	1207443	41",
	"戸井町"=>"町	5076325	1501686	1",
	"戸隠村"=>"村	4971326	1321167	20",
	"戸倉町"=>"町	4973434	1313480	20",
	"戸沢村"=>"村	5045298	1394448	6",
	"戸田村"=>"村	4996133	1258891	22",
	"湖東町"=>"町	4904966	1264556	25",
	"湖北町"=>"町	4904806	1275953	25",
	"湖陵町"=>"町	4776420	1271509	32",
	"菰野町"=>"町	4914568	1260293	24",
	"虎姫町"=>"町	4905638	1275005	25",
	"五箇村"=>"村	4796281	1306349	32",
	"五霞村"=>"村	5030963	1299997	8",
	"五戸町"=>"町	5087226	1459047	2",
	"五色町"=>"町	4852319	1238731	28",
	"五木村"=>"村	4709778	1166215	43",
	"五和町"=>"町	4686855	1170317	43",
	"吾妻町"=>"町	4686836	1181937	42",
	"吾妻町"=>"町	4997829	1316460	10",
	"吾川村"=>"村	4794151	1208589	39",
	"吾平町"=>"町	4712402	1127795	46",
	"吾北村"=>"村	4800341	1211137	39",
	"御薗村"=>"村	4921691	1242218	24",
	"御坂町"=>"町	4991984	1282396	19",
	"御宿町"=>"町	5052835	1266626	12",
	"御杖村"=>"村	4902087	1241462	29",
	"御嵩町"=>"町	4936811	1275523	21",
	"御船町"=>"町	4708954	1177601	43",
	"御荘町"=>"町	4772590	1186564	38",
	"御調町"=>"町	4793317	1242286	34",
	"御津町"=>"町	4821766	1252653	33",
	"御津町"=>"町	4844231	1252157	28",
	"御津町"=>"町	4943450	1253299	23",
	"御殿場"=>"市	5001742	1270983	22",
	"御浜町"=>"町	4897920	1217301	24",
	"厚岸町"=>"町	5214753	1549851	1",
	"厚真町"=>"町	5107739	1537956	1",
	"厚田村"=>"村	5091762	1562319	1",
	"口和町"=>"町	4784467	1256894	34",
	"向原町"=>"町	4777970	1245964	34",
	"向島町"=>"町	4795271	1238071	34",
	"幸田町"=>"町	4938066	1255027	23",
	"広見町"=>"町	4776728	1197090	38",
	"広神村"=>"村	5003277	1341109	15",
	"広瀬町"=>"町	4794304	1273035	32",
	"広川町"=>"町	4699937	1196566	40",
	"広川町"=>"町	4866406	1224808	30",
	"広田村"=>"村	4780778	1210628	38",
	"広島町"=>"町	5096420	1547407	1",
	"広尾町"=>"町	5159397	1522204	1",
	"広野町"=>"町	5075926	1339605	7",
	"広陵町"=>"町	4887133	1243422	29",
	"更別村"=>"村	5154908	1535307	1",
	"江迎町"=>"町	4666721	1199019	42",
	"江戸川"=>"区	5035378	1285324	13",
	"江差町"=>"町	5044770	1507181	1",
	"江南町"=>"町	5016196	1300037	11",
	"江府町"=>"町	4805666	1270070	31",
	"江北町"=>"町	4685768	1195811	41",
	"溝口町"=>"町	4803792	1272348	31",
	"溝辺町"=>"町	4704547	1145780	46",
	"甲賀町"=>"町	4903878	1256381	25",
	"甲佐町"=>"町	4709177	1175344	43",
	"甲山町"=>"町	4790127	1245009	34",
	"甲西町"=>"町	4899130	1260040	25",
	"甲西町"=>"町	4984983	1281161	19",
	"甲田町"=>"町	4779365	1248928	34",
	"甲奴町"=>"町	4790816	1249288	34",
	"甲南町"=>"町	4902172	1257349	25",
	"甲良町"=>"町	4905496	1267251	25",
	"肱川町"=>"町	4776712	1204276	38",
	"荒川村"=>"村	5005204	1294360	11",
	"荒川町"=>"町	5020103	1372368	15",
	"香寺町"=>"町	4850641	1256670	28",
	"香芝町"=>"町	4885269	1243363	29",
	"香住町"=>"町	4846676	1282861	28",
	"香春町"=>"町	4710597	1211957	40",
	"香焼町"=>"町	4673224	1176631	42",
	"香川町"=>"町	4825328	1232429	37",
	"香南町"=>"町	4824575	1232520	37",
	"香北町"=>"町	4816192	1211316	39",
	"高遠町"=>"町	4970201	1290034	20",
	"高岡町"=>"町	4726771	1150316	45",
	"高宮町"=>"町	4778121	1251538	34",
	"高郷村"=>"村	5031328	1353611	7",
	"高月町"=>"町	4904538	1276954	25",
	"高原町"=>"町	4716368	1149314	45",
	"高根村"=>"村	4949621	1297246	21",
	"高根町"=>"町	4982972	1290023	19",
	"高崎町"=>"町	4718550	1147269	45",
	"高山村"=>"村	4981191	1320340	20",
	"高山村"=>"村	5002079	1318246	10",
	"高山町"=>"町	4714114	1128272	46",
	"高取町"=>"町	4888642	1240060	29",
	"高松町"=>"町	4922233	1323622	17",
	"高城町"=>"町	4720782	1144690	45",
	"高森町"=>"町	4720478	1181661	43",
	"高森町"=>"町	4963738	1279740	20",
	"高瀬町"=>"町	4813867	1230441	37",
	"高田町"=>"町	4696538	1191525	40",
	"高島町"=>"町	4671229	1175549	42",
	"高島町"=>"町	4896573	1270597	25",
	"高鍋町"=>"町	4734200	1156491	45",
	"高畠町"=>"町	5046927	1367992	6",
	"高浜町"=>"町	4879935	1277539	18",
	"高富町"=>"町	4924363	1277837	21",
	"高野町"=>"町	4784374	1261079	34",
	"高野町"=>"町	4881213	1231662	30",
	"高柳町"=>"町	4991119	1339952	15",
	"高来町"=>"町	4685161	1184561	42",
	"高鷲村"=>"村	4927707	1293955	21",
	"合志町"=>"町	4708793	1184035	43",
	"合川町"=>"町	5051954	1445643	5",
	"国見町"=>"町	4690970	1183358	42",
	"国見町"=>"町	4737459	1212315	44",
	"国見町"=>"町	5059885	1363442	7",
	"国東町"=>"町	4742429	1208227	44",
	"国頭村"=>"村	4614475	962702	47",
	"国富町"=>"町	4727730	1151539	45",
	"国府町"=>"町	4833917	1277091	31",
	"国府町"=>"町	4939748	1303479	21",
	"国分寺"=>"市	5020755	1285478	13",
	"黒羽町"=>"町	5044468	1326836	9",
	"黒埼町"=>"町	5004624	1362346	15",
	"黒瀬町"=>"町	4776434	1235576	34",
	"黒川村"=>"村	5019987	1370571	15",
	"黒滝村"=>"村	4890776	1235013	29",
	"黒木町"=>"町	4704161	1195482	40",
	"今金町"=>"町	5040440	1527368	1",
	"今庄町"=>"町	4903305	1287732	18",
	"今津町"=>"町	4897121	1274571	25",
	"今田町"=>"町	4864137	1260141	28",
	"今別町"=>"町	5057461	1482455	2",
	"今立町"=>"町	4904958	1292935	18",
	"根上町"=>"町	4912621	1312043	17",
	"根占町"=>"町	4707741	1123696	46",
	"根尾村"=>"村	4918280	1282740	21",
	"佐井村"=>"村	5071099	1491398	2",
	"佐屋町"=>"町	4922324	1265385	23",
	"佐賀町"=>"町	4791771	1190759	39",
	"佐久町"=>"町	4985518	1301678	20",
	"佐々町"=>"町	4667497	1196468	42",
	"佐治村"=>"村	4828191	1271752	31",
	"佐織町"=>"町	4922700	1266862	23",
	"佐世保"=>"市	4669825	1194358	42",
	"佐川町"=>"町	4798406	1205915	39",
	"佐多町"=>"町	4704953	1119226	46",
	"佐田町"=>"町	4777943	1269002	32",
	"佐伯町"=>"町	4758502	1237116	34",
	"佐伯町"=>"町	4827602	1254459	33",
	"佐敷町"=>"町	4600430	941884	47",
	"佐用町"=>"町	4836911	1260036	28",
	"砂原町"=>"町	5064149	1516374	1",
	"最上町"=>"町	5058815	1395188	6",
	"妻沼町"=>"町	5017386	1303931	11",
	"犀川町"=>"町	4714040	1211202	40",
	"細江町"=>"町	4955546	1252900	22",
	"細入村"=>"村	4940358	1314905	16",
	"財田町"=>"町	4816117	1228175	37",
	"財部町"=>"町	4715846	1142012	46",
	"坂井村"=>"村	4970570	1312075	20",
	"坂井町"=>"町	4904447	1301885	18",
	"坂下町"=>"町	4951118	1280551	21",
	"坂祝町"=>"町	4931571	1275250	21",
	"坂城町"=>"町	4974580	1312505	20",
	"坂内村"=>"村	4910912	1281602	21",
	"坂北村"=>"村	4968665	1311224	20",
	"坂本村"=>"村	4703739	1167571	43",
	"阪南町"=>"町	4868725	1236825	27",
	"崎戸町"=>"町	4664603	1188681	42",
	"作手村"=>"村	4947340	1259051	23",
	"作東町"=>"町	4832203	1260444	33",
	"作木村"=>"村	4777952	1255046	34",
	"桜江町"=>"町	4764159	1258386	32",
	"桜川村"=>"村	5054860	1294717	8",
	"桜島町"=>"町	4702919	1138179	46",
	"鮭川村"=>"村	5048093	1396562	6",
	"笹神村"=>"村	5013703	1362089	15",
	"薩摩町"=>"町	4699570	1149134	46",
	"鮫川村"=>"村	5058477	1333400	7",
	"三厩村"=>"村	5055606	1483005	2",
	"三雲町"=>"町	4914732	1246447	24",
	"三角町"=>"町	4697028	1173943	43",
	"三岳村"=>"村	4954651	1290363	20",
	"三間町"=>"町	4773974	1198350	38",
	"三橋町"=>"町	4695721	1193818	40",
	"三郷村"=>"村	4964234	1305273	20",
	"三郷町"=>"町	4885133	1245501	29",
	"三隅町"=>"町	4725095	1237039	35",
	"三隅町"=>"町	4750810	1251804	32",
	"三原村"=>"村	4782611	1184522	39",
	"三原町"=>"町	4851769	1234321	28",
	"三戸町"=>"町	5085452	1453519	2",
	"三股町"=>"町	4720591	1142186	45",
	"三光村"=>"村	4723328	1207885	44",
	"三好町"=>"町	4819333	1225402	36",
	"三好町"=>"町	4934792	1263135	23",
	"三国町"=>"町	4901784	1303717	18",
	"三根町"=>"町	4695622	1198515	41",
	"三崎町"=>"町	4756517	1201846	38",
	"三珠町"=>"町	4989324	1278444	19",
	"三重町"=>"町	4737148	1187100	44",
	"三春町"=>"町	5057855	1347768	7",
	"三水村"=>"村	4977178	1323514	20",
	"三瀬村"=>"村	4690116	1203441	41",
	"三石町"=>"町	5132304	1520846	1",
	"三川村"=>"村	5017841	1357568	15",
	"三川町"=>"町	5034704	1396499	6",
	"三宅村"=>"村	5024254	1226756	13",
	"三宅町"=>"町	4887928	1244548	29",
	"三朝町"=>"町	4819149	1274605	31",
	"三島村"=>"村	4700271	1137276	46",
	"三島町"=>"町	4996287	1349666	15",
	"三島町"=>"町	5027314	1348818	7",
	"三瓶町"=>"町	4767273	1201543	38",
	"三富村"=>"村	4994701	1288424	19",
	"三方町"=>"町	4892868	1279968	18",
	"三芳村"=>"村	5036346	1260822	12",
	"三芳町"=>"町	5022803	1289781	11",
	"三木町"=>"町	4828942	1233546	37",
	"三野町"=>"町	4813513	1231179	37",
	"三野町"=>"町	4823036	1225401	36",
	"三陸町"=>"町	5105396	1408207	3",
	"三輪町"=>"町	4703007	1203482	40",
	"三和村"=>"村	4980564	1336383	15",
	"三和町"=>"町	4674126	1175010	42",
	"三和町"=>"町	4782423	1247773	34",
	"三和町"=>"町	4797016	1249214	34",
	"三和町"=>"町	4868577	1267674	26",
	"三和町"=>"町	5033544	1302712	8",
	"三潴町"=>"町	4696901	1197113	40",
	"山岡町"=>"町	4945841	1272577	21",
	"山形村"=>"村	4963761	1301944	20",
	"山形村"=>"村	5096686	1445228	3",
	"山元町"=>"町	5071715	1366525	4",
	"山口村"=>"村	4951696	1279956	20",
	"山香町"=>"町	4734332	1203943	44",
	"山国町"=>"町	4717611	1202408	44",
	"山崎町"=>"町	4843530	1260015	28",
	"山手村"=>"村	4815796	1247670	33",
	"山城町"=>"町	4815219	1222478	36",
	"山城町"=>"町	4889535	1250875	26",
	"山川町"=>"町	4698688	1192366	40",
	"山川町"=>"町	4703113	1123206	46",
	"山川町"=>"町	4832408	1225782	36",
	"山中町"=>"町	4909492	1304764	17",
	"山添村"=>"村	4897694	1248397	29",
	"山田村"=>"村	4934957	1316746	16",
	"山田町"=>"町	4717500	1145194	45",
	"山田町"=>"町	5060835	1288791	12",
	"山田町"=>"町	5110292	1420732	3",
	"山都町"=>"町	5031845	1355045	7",
	"山東町"=>"町	4855888	1271198	28",
	"山東町"=>"町	4909436	1272910	25",
	"山内村"=>"村	5062470	1413915	5",
	"山内町"=>"町	4678189	1194923	41",
	"山南町"=>"町	4861492	1262692	28",
	"山武町"=>"町	5053320	1283063	12",
	"山辺町"=>"町	5049701	1378551	6",
	"山方町"=>"町	5054361	1318657	8",
	"山北町"=>"町	5007110	1272935	14",
	"山北町"=>"町	5023343	1386414	15",
	"山本町"=>"町	4814231	1228153	37",
	"山本町"=>"町	5042750	1443760	5",
	"山陽町"=>"町	4721854	1225906	35",
	"山陽町"=>"町	4824776	1251081	33",
	"産山村"=>"村	4723895	1187726	43",
	"四賀村"=>"村	4967835	1308460	20",
	"四街道"=>"市	5046165	1283995	12",
	"四条畷"=>"市	4883128	1250523	27",
	"四日市"=>"市	4918574	1258622	24",
	"士幌町"=>"町	5156848	1553950	1",
	"子持村"=>"村	5004416	1314589	10",
	"市浦村"=>"村	5052858	1477851	2",
	"市貝町"=>"町	5043960	1315317	9",
	"市場町"=>"町	4834359	1227128	36",
	"市川町"=>"町	4851570	1259488	28",
	"市島町"=>"町	4864892	1267493	28",
	"市来町"=>"町	4690493	1140893	46",
	"師勝町"=>"町	4928010	1268903	23",
	"志賀町"=>"町	4893271	1267056	25",
	"志賀町"=>"町	4923841	1332116	17",
	"志度町"=>"町	4830352	1235525	37",
	"志摩町"=>"町	4686594	1208873	40",
	"志摩町"=>"町	4925133	1233153	24",
	"志免町"=>"町	4697430	1209042	40",
	"志雄町"=>"町	4924826	1326950	17",
	"枝幸町"=>"町	5133076	1617708	1",
	"氏家町"=>"町	5038904	1320545	9",
	"糸貫町"=>"町	4920325	1276135	21",
	"糸魚川"=>"市	4963082	1333564	15",
	"糸田町"=>"町	4708151	1211563	40",
	"紫波町"=>"町	5082165	1423872	3",
	"児玉町"=>"町	5008740	1302756	11",
	"寺井町"=>"町	4913962	1311641	17",
	"寺泊町"=>"町	4995847	1355107	15",
	"時津町"=>"町	4674634	1181718	42",
	"鹿央町"=>"町	4704551	1187088	43",
	"鹿児島"=>"市	4700147	1137348	46",
	"鹿瀬町"=>"町	5021496	1356870	15",
	"鹿西町"=>"町	4927231	1330476	17",
	"鹿町町"=>"町	4665321	1197727	42",
	"鹿追町"=>"町	5147750	1551496	1",
	"鹿島村"=>"村	4672567	1143825	46",
	"鹿島町"=>"町	4787900	1278684	32",
	"鹿島町"=>"町	4929149	1330621	17",
	"鹿島町"=>"町	5063325	1294648	8",
	"鹿島町"=>"町	5074895	1357142	7",
	"鹿部町"=>"町	5069510	1513302	1",
	"鹿北町"=>"町	4705051	1191798	43",
	"鹿本町"=>"町	4706724	1187924	43",
	"鹿野町"=>"町	4745525	1232220	35",
	"鹿野町"=>"町	4826272	1276604	31",
	"宍喰町"=>"町	4835022	1208300	36",
	"宍道町"=>"町	4784800	1274650	32",
	"雫石町"=>"町	5075254	1428964	3",
	"七会村"=>"村	5049335	1312288	8",
	"七戸町"=>"町	5081567	1465007	2",
	"七山村"=>"村	4684249	1203845	41",
	"七宗町"=>"町	4936426	1279460	21",
	"七城町"=>"町	4707617	1186782	43",
	"七塚町"=>"町	4921257	1322271	17",
	"七飯町"=>"町	5065073	1508127	1",
	"七宝町"=>"町	4924936	1266014	23",
	"室根村"=>"村	5092261	1401680	3",
	"室生村"=>"村	4896695	1244199	29",
	"篠栗町"=>"町	4699046	1210341	40",
	"篠山町"=>"町	4867915	1262624	28",
	"柴田町"=>"町	5067684	1369916	4",
	"芝山町"=>"町	5055029	1284836	12",
	"芝川町"=>"町	4988331	1267056	22",
	"斜里町"=>"町	5208284	1580734	1",
	"車力村"=>"村	5053051	1474021	2",
	"若宮町"=>"町	4702647	1214202	40",
	"若桜町"=>"町	4838542	1272124	31",
	"若松町"=>"町	4644843	1183845	42",
	"若草町"=>"町	4982535	1283867	19",
	"若美町"=>"町	5037072	1438590	5",
	"若柳町"=>"町	5080621	1395566	4",
	"守谷町"=>"町	5040077	1293950	8",
	"守門村"=>"村	5004629	1343309	15",
	"種市町"=>"町	5101980	1454625	3",
	"寿都町"=>"町	5048368	1540373	1",
	"周東町"=>"町	4753937	1227231	35",
	"秋山村"=>"村	5007593	1279970	19",
	"秋穂町"=>"町	4731648	1224381	35",
	"秋芳町"=>"町	4726643	1231585	35",
	"習志野"=>"市	5041082	1284381	12",
	"舟橋村"=>"村	4943191	1321201	16",
	"舟形町"=>"町	5051646	1392777	6",
	"住田町"=>"町	5096862	1409007	3",
	"住用村"=>"村	4658761	1017426	46",
	"十王町"=>"町	5064757	1320073	8",
	"十島村"=>"村	4700259	1137218	46",
	"十日町"=>"市	4995314	1336476	15",
	"十和村"=>"村	4782815	1196290	39",
	"十和田"=>"市	5083539	1461962	2",
	"重信町"=>"町	4783573	1216550	38",
	"出石町"=>"町	4855570	1276482	28",
	"出島村"=>"村	5051828	1299070	8",
	"春江町"=>"町	4903998	1300692	18",
	"春日井"=>"市	4931115	1268807	23",
	"春日村"=>"村	4913414	1276682	21",
	"春日町"=>"町	4863785	1265992	28",
	"春日町"=>"町	4926399	1268438	23",
	"春日部"=>"市	5031206	1294994	11",
	"春野町"=>"町	4805690	1205827	39",
	"春野町"=>"町	4964407	1259224	22",
	"緒川村"=>"村	5051703	1317716	8",
	"緒方町"=>"町	4733147	1186817	44",
	"諸塚村"=>"村	4727980	1170323	45",
	"諸富町"=>"町	4692768	1195938	41",
	"女川町"=>"町	5092131	1383943	4",
	"勝浦町"=>"町	4842502	1221407	36",
	"勝央町"=>"町	4828262	1261395	33",
	"勝山村"=>"村	4994834	1278134	19",
	"勝山町"=>"町	4713071	1213073	40",
	"勝山町"=>"町	4812994	1263022	33",
	"勝沼町"=>"町	4994163	1283845	19",
	"勝田町"=>"町	4830994	1262525	33",
	"勝北町"=>"町	4828157	1263658	33",
	"勝本町"=>"町	4669119	1218511	42",
	"勝連町"=>"町	4604420	947274	47",
	"小海町"=>"町	4985506	1299237	20",
	"小笠町"=>"町	4971687	1248953	22",
	"小金井"=>"市	5022228	1285064	13",
	"小郡町"=>"町	4730204	1227589	35",
	"小原村"=>"村	4942350	1268175	23",
	"小高町"=>"町	5075840	1352257	7",
	"小国町"=>"町	4718547	1192162	43",
	"小国町"=>"町	4993644	1342897	15",
	"小国町"=>"町	5030883	1370104	6",
	"小坂町"=>"町	4941485	1294121	21",
	"小坂町"=>"町	5067017	1451706	5",
	"小山町"=>"町	5003676	1272856	22",
	"小出町"=>"町	5002717	1340187	15",
	"小松町"=>"町	4792119	1220167	38",
	"小松島"=>"市	4845351	1224057	36",
	"小城町"=>"町	4687247	1198474	41",
	"小杉町"=>"町	4935692	1321532	16",
	"小菅村"=>"村	5001963	1287254	19",
	"小千谷"=>"市	4996687	1343197	15",
	"小川村"=>"村	4967198	1318106	20",
	"小川町"=>"町	4705438	1173219	43",
	"小川町"=>"町	5013539	1297931	11",
	"小川町"=>"町	5044821	1323321	9",
	"小川町"=>"町	5053261	1302392	8",
	"小谷村"=>"村	4964808	1323933	20",
	"小竹町"=>"町	4705750	1212809	40",
	"小田原"=>"市	5009615	1269410	14",
	"小田町"=>"町	4781006	1208318	38",
	"小泊村"=>"村	5051176	1480634	2",
	"小浜町"=>"町	4687520	1178149	42",
	"小平町"=>"町	5099993	1584465	1",
	"小俣町"=>"町	4920407	1242141	24",
	"小木町"=>"町	4978089	1361235	15",
	"小野町"=>"町	5062669	1342218	7",
	"小野田"=>"市	4722624	1224011	35",
	"小矢部"=>"市	4927388	1320211	16",
	"庄川町"=>"町	4931618	1316668	16",
	"庄内町"=>"町	4706376	1210790	40",
	"庄内町"=>"町	4731535	1194618	44",
	"庄和町"=>"町	5032742	1295636	11",
	"昭和村"=>"村	5006480	1318916	10",
	"昭和村"=>"村	5026092	1343953	7",
	"昭和町"=>"町	4988227	1281922	19",
	"昭和町"=>"町	5042491	1435229	5",
	"松岡町"=>"町	4906858	1299210	18",
	"松橋町"=>"町	4704541	1175260	43",
	"松元町"=>"町	4695725	1137657	46",
	"松崎町"=>"町	4996149	1250974	22",
	"松山町"=>"町	4717559	1136640	46",
	"松山町"=>"町	5038499	1398811	6",
	"松山町"=>"町	5078283	1386414	4",
	"松川村"=>"村	4962882	1311165	20",
	"松川町"=>"町	4964856	1281392	20",
	"松前町"=>"町	4777712	1216217	38",
	"松前町"=>"町	5044110	1491385	1",
	"松代町"=>"町	4989996	1336665	15",
	"松田町"=>"町	5009110	1272420	14",
	"松島町"=>"町	4695461	1170093	43",
	"松島町"=>"町	5078602	1381629	4",
	"松尾村"=>"村	5078497	1438224	3",
	"松尾町"=>"町	5056526	1282843	12",
	"松伏町"=>"町	5033450	1293207	11",
	"松茂町"=>"町	4844986	1228698	36",
	"松野町"=>"町	4777684	1196059	38",
	"沼隈町"=>"町	4799569	1237928	34",
	"沼田町"=>"町	5109740	1576953	1",
	"沼南町"=>"町	5040397	1290175	12",
	"菖蒲町"=>"町	5025737	1298038	11",
	"象潟町"=>"町	5036572	1411268	5",
	"上磯町"=>"町	5063628	1505548	1",
	"上浦町"=>"町	4749565	1189784	44",
	"上浦町"=>"町	4789541	1233368	38",
	"上下町"=>"町	4792491	1248872	34",
	"上関町"=>"町	4756077	1217794	35",
	"上郷町"=>"町	4962494	1278522	20",
	"上郡町"=>"町	4836937	1255337	28",
	"上月町"=>"町	4835759	1259313	28",
	"上県町"=>"町	4658383	1246840	42",
	"上甑村"=>"村	4675283	1145937	46",
	"上市町"=>"町	4945148	1321037	16",
	"上勝町"=>"町	4838563	1219880	36",
	"上松町"=>"町	4957096	1288110	20",
	"上川村"=>"村	5020785	1354440	15",
	"上川町"=>"町	5139897	1578414	1",
	"上中町"=>"町	4890972	1276535	18",
	"上板町"=>"町	4838722	1228251	36",
	"上福岡"=>"市	5022833	1291542	11",
	"上平村"=>"村	4928492	1310357	16",
	"上宝村"=>"村	4945266	1306080	21",
	"上峰町"=>"町	4695417	1199388	41",
	"上北町"=>"町	5085404	1466106	2",
	"上牧町"=>"町	4885906	1244143	29",
	"上野村"=>"村	4511469	890432	47",
	"上野村"=>"村	4996094	1298884	10",
	"上陽町"=>"町	4703192	1196451	40",
	"上里町"=>"町	5009294	1304938	11",
	"城崎町"=>"町	4853161	1282418	28",
	"城山町"=>"町	5015024	1281329	14",
	"城川町"=>"町	4779100	1201577	38",
	"城端町"=>"町	4928530	1314333	16",
	"城島町"=>"町	4695456	1196990	40",
	"城南町"=>"町	4706312	1177424	43",
	"城辺町"=>"町	4514215	890940	47",
	"城辺町"=>"町	4773091	1186509	38",
	"常澄村"=>"村	5059698	1308018	8",
	"常盤村"=>"村	5059747	1464261	2",
	"常北町"=>"町	5053657	1313139	8",
	"常葉町"=>"町	5063293	1347656	7",
	"常呂町"=>"町	5186705	1588263	1",
	"植木町"=>"町	4704947	1184400	43",
	"織田町"=>"町	4898129	1294472	18",
	"色麻町"=>"町	5070718	1387637	4",
	"信楽町"=>"町	4898213	1255490	25",
	"信濃町"=>"町	4975565	1324917	20",
	"寝屋川"=>"市	4882704	1251465	27",
	"新旭町"=>"町	4897419	1272609	25",
	"新冠町"=>"町	5123338	1524868	1",
	"新宮村"=>"村	4811116	1221910	38",
	"新宮町"=>"町	4696161	1213643	40",
	"新宮町"=>"町	4843877	1256953	28",
	"新居町"=>"町	4952304	1248683	22",
	"新居浜"=>"市	4798278	1222451	38",
	"新郷村"=>"村	5082360	1456677	2",
	"新市町"=>"町	4797933	1243999	34",
	"新治村"=>"村	5001420	1320564	10",
	"新治村"=>"村	5045787	1300688	8",
	"新庄村"=>"村	4808546	1266352	33",
	"新庄町"=>"町	4886271	1241485	29",
	"新川町"=>"町	4926820	1267067	23",
	"新地町"=>"町	5073225	1363399	7",
	"新鶴村"=>"村	5034172	1350541	7",
	"新田町"=>"町	5014844	1306752	10",
	"新得町"=>"町	5142337	1550792	1",
	"新南陽"=>"市	4743074	1226494	35",
	"新発田"=>"市	5015919	1366123	15",
	"新富町"=>"町	4733642	1154361	45",
	"新穂村"=>"村	4983497	1368470	15",
	"新里村"=>"村	5012756	1310981	10",
	"新里村"=>"村	5104663	1426404	3",
	"新和町"=>"町	4686621	1164948	43",
	"森吉町"=>"町	5053823	1444162	5",
	"森山町"=>"町	4684720	1181846	42",
	"森田村"=>"村	5052727	1467954	2",
	"榛原町"=>"町	4894564	1242892	29",
	"榛原町"=>"町	4976185	1250525	22",
	"榛東村"=>"村	5003447	1311745	10",
	"榛名町"=>"町	4999848	1309746	10",
	"深浦町"=>"町	5037524	1463241	2",
	"深江町"=>"町	4692815	1177747	42",
	"深田村"=>"村	4711505	1160677	43",
	"真玉町"=>"町	4733201	1209820	44",
	"真狩村"=>"村	5069067	1539393	1",
	"真正町"=>"町	4919774	1275485	21",
	"真鶴町"=>"町	5009057	1265584	14",
	"真田町"=>"町	4979051	1311728	20",
	"真備町"=>"町	4813006	1246535	33",
	"真壁町"=>"町	5043428	1305923	8",
	"真野町"=>"町	4980596	1366690	15",
	"神岡町"=>"町	4942964	1307830	21",
	"神岡町"=>"町	5055443	1421629	5",
	"神郷町"=>"町	4802356	1259696	33",
	"神戸町"=>"町	4918013	1274910	21",
	"神崎町"=>"町	4852150	1262416	28",
	"神崎町"=>"町	5054708	1292332	12",
	"神埼町"=>"町	4693514	1199067	41",
	"神山町"=>"町	4836711	1222702	36",
	"神栖町"=>"町	5064029	1291926	8",
	"神石町"=>"町	4794468	1252728	34",
	"神川町"=>"町	5007776	1303592	11",
	"神泉村"=>"村	5006126	1301264	11",
	"神辺町"=>"町	4801848	1243531	34",
	"神林村"=>"村	5020554	1374477	15",
	"秦荘町"=>"町	4904920	1266175	25",
	"身延町"=>"町	4984068	1273239	19",
	"仁多町"=>"町	4788184	1266997	32",
	"仁尾町"=>"町	4811350	1231091	37",
	"仁摩町"=>"町	4766729	1265224	32",
	"仁木町"=>"町	5067642	1553477	1",
	"仁淀村"=>"村	4792784	1207198	39",
	"壬生町"=>"町	5033067	1311260	9",
	"須賀川"=>"市	5053537	1342209	7",
	"須玉町"=>"町	4983309	1288377	19",
	"須恵村"=>"村	4712392	1161172	43",
	"須恵町"=>"町	4698349	1209021	40",
	"須佐町"=>"町	4737770	1246135	35",
	"須木村"=>"村	4718626	1154630	45",
	"吹上町"=>"町	4692619	1134201	46",
	"吹上町"=>"町	5020411	1299536	11",
	"垂井町"=>"町	4915076	1273211	21",
	"水海道"=>"市	5039899	1296735	8",
	"水巻町"=>"町	4705073	1218656	40",
	"水窪町"=>"町	4963387	1265765	22",
	"水原町"=>"町	5012250	1361923	15",
	"水口町"=>"町	4902109	1258666	25",
	"水上村"=>"村	4716427	1163179	43",
	"水上町"=>"町	5002962	1324057	10",
	"水府村"=>"村	5057512	1318372	8",
	"瑞穂町"=>"町	4688708	1183097	42",
	"瑞穂町"=>"町	4771367	1254913	32",
	"瑞穂町"=>"町	4873583	1266298	26",
	"瑞穂町"=>"町	5016858	1287677	13",
	"杉戸町"=>"町	5030637	1296814	11",
	"世田谷"=>"区	5027633	1283141	13",
	"世羅町"=>"町	4789910	1245056	34",
	"瀬戸町"=>"町	4761071	1203718	38",
	"瀬戸町"=>"町	4825508	1250305	33",
	"瀬高町"=>"町	4697178	1193363	40",
	"瀬棚町"=>"町	5034862	1528135	1",
	"瀬峰町"=>"町	5078683	1391590	4",
	"勢和村"=>"村	4912663	1240498	24",
	"成羽町"=>"町	4807389	1252003	33",
	"成東町"=>"町	5054982	1281600	12",
	"星野村"=>"村	4707515	1196885	40",
	"栖本町"=>"町	4689919	1167075	43",
	"清音村"=>"村	4814689	1247139	33",
	"清見村"=>"村	4938833	1300518	21",
	"清洲町"=>"町	4926235	1267691	23",
	"清水町"=>"町	4875594	1226922	30",
	"清水町"=>"町	4901005	1297049	18",
	"清水町"=>"町	5000678	1263668	22",
	"清水町"=>"町	5143991	1548310	1",
	"清川村"=>"村	4734570	1186704	44",
	"清川村"=>"村	5014068	1277241	14",
	"清武町"=>"町	4730107	1146688	45",
	"清里村"=>"村	4980139	1334826	15",
	"清里町"=>"町	5205535	1577989	1",
	"清和村"=>"村	4719222	1176768	43",
	"生月町"=>"町	4659676	1201980	42",
	"生坂村"=>"村	4965497	1311194	20",
	"生名村"=>"村	4794733	1233561	38",
	"生野町"=>"町	4852732	1265898	28",
	"精華町"=>"町	4888467	1251252	26",
	"聖篭町"=>"町	5013987	1366969	15",
	"西海町"=>"町	4668894	1190232	42",
	"西海町"=>"町	4770252	1185932	38",
	"西紀町"=>"町	4866364	1263308	28",
	"西郷村"=>"村	4731319	1167723	45",
	"西郷村"=>"村	5045710	1336993	7",
	"西郷町"=>"町	4799672	1303409	32",
	"西桂町"=>"町	4998600	1278752	19",
	"西原村"=>"村	4712589	1181926	43",
	"西原町"=>"町	4599625	943991	47",
	"西根町"=>"町	5079656	1436687	3",
	"西山町"=>"町	4992104	1348345	15",
	"西春町"=>"町	4927282	1268725	23",
	"西城町"=>"町	4792342	1257721	34",
	"西川町"=>"町	5001084	1360456	15",
	"西川町"=>"町	5045430	1383263	6",
	"西淡町"=>"町	4850550	1235585	28",
	"西之表"=>"市	4715983	1106241	46",
	"西伯町"=>"町	4799858	1272133	31",
	"西彼町"=>"町	4671903	1187429	42",
	"西方村"=>"村	5030925	1312701	9",
	"西木村"=>"村	5060699	1427499	5",
	"西目町"=>"町	5040617	1416334	5",
	"青海町"=>"町	4960870	1332770	15",
	"青垣町"=>"町	4860131	1268724	28",
	"青山町"=>"町	4902507	1247989	24",
	"青谷町"=>"町	4823971	1278537	31",
	"青木村"=>"村	4972721	1309201	20",
	"静内町"=>"町	5125415	1524188	1",
	"石井町"=>"町	4839958	1226569	36",
	"石越町"=>"町	5082646	1395161	4",
	"石下町"=>"町	5039169	1300047	8",
	"石橋町"=>"町	5035131	1311623	9",
	"石見町"=>"町	4767947	1255928	32",
	"石狩町"=>"町	5088769	1556692	1",
	"石川町"=>"町	5056398	1337084	7",
	"石田町"=>"町	4671223	1214791	42",
	"石部町"=>"町	4898245	1260236	25",
	"石和町"=>"町	4991151	1283185	19",
	"積丹町"=>"町	5061679	1558677	1",
	"脊振村"=>"村	4691864	1201435	41",
	"赤岡町"=>"町	4814078	1207396	39",
	"赤坂町"=>"町	4824407	1252646	33",
	"赤碕町"=>"町	4811674	1278436	31",
	"赤城村"=>"村	5005387	1315123	10",
	"赤池町"=>"町	4707849	1212989	40",
	"赤泊村"=>"村	4983020	1363275	15",
	"赤堀町"=>"町	5012335	1309565	10",
	"赤来町"=>"町	4777788	1259882	32",
	"設楽町"=>"町	4952624	1263390	23",
	"仙南村"=>"村	5059270	1417823	5",
	"仙北町"=>"町	5058356	1420529	5",
	"千厩町"=>"町	5088051	1401062	3",
	"千歳村"=>"村	4737545	1189419	44",
	"千種町"=>"町	4840127	1265389	28",
	"千倉町"=>"町	5038521	1258975	12",
	"千代田"=>"区	5031184	1284864	13",
	"千丁町"=>"町	4702897	1171148	43",
	"千畑町"=>"町	5061125	1420682	5",
	"占冠村"=>"村	5126478	1547189	1",
	"川井村"=>"村	5100611	1425463	3",
	"川越町"=>"町	4920258	1260849	24",
	"川口町"=>"町	4999108	1341626	15",
	"川根町"=>"町	4970891	1257822	22",
	"川崎村"=>"村	5085617	1400347	3",
	"川崎町"=>"町	4709452	1209474	40",
	"川崎町"=>"町	5063277	1374294	4",
	"川上村"=>"村	4732725	1236670	35",
	"川上村"=>"村	4811234	1269986	33",
	"川上村"=>"村	4894621	1235949	29",
	"川上村"=>"村	4950048	1281955	21",
	"川上村"=>"村	4988930	1294992	20",
	"川上町"=>"町	4805528	1250436	33",
	"川場村"=>"村	5007949	1320895	10",
	"川尻町"=>"町	4777129	1232335	34",
	"川西町"=>"町	4887963	1244921	29",
	"川西町"=>"町	4994708	1337731	15",
	"川西町"=>"町	5041776	1368052	6",
	"川棚町"=>"町	4675092	1190499	42",
	"川島町"=>"町	4835608	1226063	36",
	"川島町"=>"町	4925953	1272953	21",
	"川島町"=>"町	5021463	1295222	11",
	"川内村"=>"村	5069259	1344043	7",
	"川内町"=>"町	4785007	1216609	38",
	"川内町"=>"町	5076055	1483018	2",
	"川南町"=>"町	4735021	1158775	45",
	"川之江"=>"市	4808907	1223935	38",
	"川副町"=>"町	4691605	1194786	41",
	"川辺町"=>"町	4694254	1129965	46",
	"川辺町"=>"町	4866798	1220700	30",
	"川辺町"=>"町	4934678	1277403	21",
	"川北町"=>"町	4915621	1312760	17",
	"川本町"=>"町	4769923	1259670	32",
	"川本町"=>"町	5014254	1300896	11",
	"川俣町"=>"町	5061664	1355831	7",
	"川里村"=>"村	5022583	1299764	11",
	"泉佐野"=>"市	4871886	1238528	27",
	"泉崎村"=>"村	5050761	1337539	7",
	"泉大津"=>"市	4874875	1242052	27",
	"浅井町"=>"町	4906843	1275310	25",
	"浅羽町"=>"町	4965616	1249311	22",
	"浅科村"=>"村	4982691	1305766	20",
	"浅川町"=>"町	5054985	1334807	7",
	"船引町"=>"町	5060609	1347780	7",
	"船岡町"=>"町	4833068	1273983	31",
	"船穂町"=>"町	4813559	1244954	33",
	"前原町"=>"町	4687143	1207936	40",
	"前沢町"=>"町	5080598	1405727	3",
	"善通寺"=>"市	4816430	1232107	37",
	"曽爾村"=>"村	4900591	1242269	29",
	"蘇陽町"=>"町	4721906	1177860	43",
	"双海町"=>"町	4775078	1212626	38",
	"双葉町"=>"町	4985664	1284596	19",
	"双葉町"=>"町	5076574	1348070	7",
	"倉岳町"=>"町	4692355	1166628	43",
	"倉橋町"=>"町	4770261	1227642	34",
	"倉石村"=>"村	5085241	1458127	2",
	"倉渕村"=>"村	4996652	1311188	10",
	"壮瞥町"=>"町	5072051	1531977	1",
	"早川町"=>"町	4981187	1274738	19",
	"早島町"=>"町	4817915	1245508	33",
	"早来町"=>"町	5105573	1539376	1",
	"巣南町"=>"町	4919504	1274426	21",
	"相生町"=>"町	4841337	1217419	36",
	"相川町"=>"町	4976734	1369119	15",
	"相知町"=>"町	4680542	1200515	41",
	"相馬村"=>"村	5054441	1460986	2",
	"相模原"=>"市	5017548	1280455	14",
	"相良村"=>"村	4708811	1160345	43",
	"相良町"=>"町	4975228	1248588	22",
	"総領町"=>"町	4790758	1252112	34",
	"総和町"=>"町	5031315	1302301	8",
	"草津町"=>"町	4989585	1318238	10",
	"荘川村"=>"村	4930550	1297047	21",
	"増田町"=>"町	5059635	1411125	5",
	"増穂町"=>"町	4984718	1280089	19",
	"増毛町"=>"町	5095040	1578732	1",
	"蔵王町"=>"町	5063811	1371415	4",
	"足寄町"=>"町	5168012	1556708	1",
	"足助町"=>"町	4943338	1264719	23",
	"足尾町"=>"町	5019986	1318830	9",
	"村岡町"=>"町	4845509	1276927	28",
	"村松町"=>"町	5010403	1356858	15",
	"村田町"=>"町	5066121	1372165	4",
	"多賀城"=>"市	5076294	1378462	4",
	"多賀町"=>"町	4906622	1267894	25",
	"多伎町"=>"町	4774586	1270135	32",
	"多気町"=>"町	4915765	1241751	24",
	"多古町"=>"町	5056992	1286378	12",
	"多治見"=>"市	4936862	1271869	21",
	"多度町"=>"町	4918836	1264647	24",
	"太宰府"=>"市	4698936	1206350	40",
	"太子町"=>"町	4844910	1253887	28",
	"太子町"=>"町	4883423	1242548	27",
	"太地町"=>"町	4894083	1209266	30",
	"太田町"=>"町	5061636	1422408	5",
	"太良町"=>"町	4686480	1188808	41",
	"打田町"=>"町	4873159	1233572	30",
	"岱明町"=>"町	4698820	1184885	43",
	"泰阜村"=>"村	4962567	1273473	20",
	"大安町"=>"町	4915487	1263291	24",
	"大井町"=>"町	5009745	1271647	14",
	"大井町"=>"町	5022402	1290780	11",
	"大磯町"=>"町	5015325	1270920	14",
	"大浦町"=>"町	4688204	1129500	46",
	"大栄町"=>"町	4818807	1275268	31",
	"大栄町"=>"町	5055178	1289821	12",
	"大越町"=>"町	5062764	1345784	7",
	"大王町"=>"町	4927954	1234007	24",
	"大岡村"=>"村	4967692	1314126	20",
	"大屋町"=>"町	4848072	1271867	28",
	"大柿町"=>"町	4768781	1230185	34",
	"大潟村"=>"村	5038683	1440544	5",
	"大潟町"=>"町	4979970	1340186	15",
	"大間町"=>"町	5072797	1494857	2",
	"大宮町"=>"町	4863558	1280883	26",
	"大宮町"=>"町	4911076	1236770	24",
	"大宮町"=>"町	5054952	1315745	8",
	"大郷町"=>"町	5076264	1383166	4",
	"大玉村"=>"村	5053481	1351128	7",
	"大隅町"=>"町	4715882	1137349	46",
	"大熊町"=>"町	5075529	1346438	7",
	"大桑村"=>"村	4956057	1284470	20",
	"大月町"=>"町	4777545	1182172	39",
	"大原町"=>"町	4835836	1264230	33",
	"大原町"=>"町	5053958	1269031	12",
	"大胡町"=>"町	5009799	1310921	10",
	"大口町"=>"町	4928774	1271854	23",
	"大江町"=>"町	4865359	1274003	26",
	"大江町"=>"町	5047565	1381598	6",
	"大衡村"=>"村	5071791	1384699	4",
	"大佐町"=>"町	4808495	1262841	33",
	"大崎町"=>"町	4716274	1131335	46",
	"大崎町"=>"町	4784087	1232612	34",
	"大山町"=>"町	4714882	1197154	44",
	"大山町"=>"町	4804574	1277299	31",
	"大山町"=>"町	4942850	1317829	16",
	"大子町"=>"町	5052909	1323541	8",
	"大治町"=>"町	4925625	1266182	23",
	"大鹿村"=>"村	4969322	1280707	20",
	"大社町"=>"町	4776791	1273945	32",
	"大樹町"=>"町	5158181	1529856	1",
	"大信村"=>"村	5049073	1339229	7",
	"大森町"=>"町	5055740	1416219	5",
	"大仁町"=>"町	5002123	1260391	22",
	"大成町"=>"町	5033709	1520090	1",
	"大正町"=>"町	4787243	1194994	39",
	"大西町"=>"町	4785404	1226045	38",
	"大川村"=>"村	4804887	1216094	39",
	"大川町"=>"町	4832589	1233395	37",
	"大泉村"=>"村	4982096	1290944	19",
	"大泉町"=>"町	5018697	1304810	10",
	"大洗町"=>"町	5060818	1307163	8",
	"大船渡"=>"市	5101604	1406845	3",
	"大蔵村"=>"村	5048415	1393250	6",
	"大台町"=>"町	4910744	1238015	24",
	"大滝村"=>"村	5001753	1294198	11",
	"大滝村"=>"村	5078993	1536087	1",
	"大朝町"=>"町	4768791	1251644	34",
	"大町町"=>"町	4684258	1195578	41",
	"大津町"=>"町	4711340	1183523	43",
	"大槌町"=>"町	5108766	1416853	3",
	"大田市"=>"市	4770060	1266810	32",
	"大田原"=>"市	5040678	1327236	9",
	"大田村"=>"村	4736172	1205714	44",
	"大塔村"=>"村	4877723	1214152	30",
	"大塔村"=>"村	4887348	1230060	29",
	"大島村"=>"村	4664053	1205145	42",
	"大島村"=>"村	4695730	1220273	40",
	"大島村"=>"村	4986369	1336859	15",
	"大島町"=>"町	4666388	1189159	42",
	"大島町"=>"町	4759125	1221301	35",
	"大島町"=>"町	4934396	1322261	16",
	"大島町"=>"町	5016918	1250880	13",
	"大東町"=>"町	4787030	1271539	32",
	"大東町"=>"町	4970090	1247841	22",
	"大東町"=>"町	5090387	1404524	3",
	"大内町"=>"町	4836114	1232910	37",
	"大内町"=>"町	5043581	1419864	5",
	"大任町"=>"町	4710861	1209858	40",
	"大迫町"=>"町	5086410	1420675	3",
	"大畑町"=>"町	5082217	1490487	2",
	"大畠町"=>"町	4758223	1222514	35",
	"大飯町"=>"町	4882342	1277221	18",
	"大平村"=>"村	4721675	1207875	40",
	"大平町"=>"町	5029372	1308038	9",
	"大方町"=>"町	4788490	1188772	39",
	"大豊町"=>"町	4812024	1215402	39",
	"大牟田"=>"市	4696138	1188956	40",
	"大木町"=>"町	4695958	1195470	40",
	"大門町"=>"町	4933861	1321877	16",
	"大野城"=>"市	4697318	1207187	40",
	"大野村"=>"村	5061695	1297689	8",
	"大野村"=>"村	5098629	1450119	3",
	"大野町"=>"町	4734146	1189268	44",
	"大野町"=>"町	4762026	1234197	34",
	"大野町"=>"町	4921251	1275138	21",
	"大野町"=>"町	5063325	1507717	1",
	"大雄村"=>"村	5057188	1415916	5",
	"大洋村"=>"村	5060738	1299578	8",
	"大淀町"=>"町	4888787	1237833	29",
	"大里村"=>"村	4598941	942204	47",
	"大里村"=>"村	5018845	1299570	11",
	"大和村"=>"村	4658318	1020767	46",
	"大和村"=>"村	4775265	1258475	32",
	"大和村"=>"村	4996132	1282884	19",
	"大和村"=>"村	5043369	1307669	8",
	"大和町"=>"町	4690210	1199124	41",
	"大和町"=>"町	4695596	1192699	40",
	"大和町"=>"町	4752048	1223279	35",
	"大和町"=>"町	4786339	1243390	34",
	"大和町"=>"町	4928521	1288989	21",
	"大和町"=>"町	5001435	1337713	15",
	"大和町"=>"町	5072045	1383954	4",
	"大鰐町"=>"町	5060548	1458647	2",
	"鷹栖町"=>"町	5124903	1578282	1",
	"鷹巣町"=>"町	5053469	1448038	5",
	"鷹島町"=>"町	4671284	1203503	42",
	"滝根町"=>"町	5063790	1343469	7",
	"滝上町"=>"町	5150998	1590847	1",
	"滝沢村"=>"村	5078897	1430345	3",
	"滝野町"=>"町	4858096	1257652	28",
	"沢内村"=>"村	5067128	1419544	3",
	"只見町"=>"町	5015491	1344441	7",
	"但東町"=>"町	4858279	1276833	28",
	"辰口町"=>"町	4915677	1312157	17",
	"辰野町"=>"町	4967654	1295253	20",
	"棚倉町"=>"町	5053771	1332970	7",
	"谷汲村"=>"村	4918044	1278848	21",
	"丹原町"=>"町	4790382	1220517	38",
	"丹後町"=>"町	4863342	1286447	26",
	"丹南町"=>"町	4866521	1261995	28",
	"丹波町"=>"町	4875330	1265801	26",
	"淡路町"=>"町	4860742	1245102	28",
	"端野町"=>"町	5182165	1578587	1",
	"胆沢町"=>"町	5078620	1408115	3",
	"知内町"=>"町	5055212	1497443	1",
	"知念村"=>"村	4601631	941975	47",
	"知夫村"=>"村	4789533	1296405	32",
	"知名町"=>"町	4628726	983872	46",
	"知覧町"=>"町	4695989	1129483	46",
	"智頭町"=>"町	4832255	1269431	31",
	"池川町"=>"町	4794026	1209700	39",
	"池田町"=>"町	4817152	1224810	36",
	"池田町"=>"町	4832543	1241240	37",
	"池田町"=>"町	4908494	1291953	18",
	"池田町"=>"町	4916727	1275804	21",
	"池田町"=>"町	4963599	1311054	20",
	"池田町"=>"町	5164277	1545353	1",
	"置戸町"=>"町	5169239	1572262	1",
	"築館町"=>"町	5076747	1394310	4",
	"築城町"=>"町	4717380	1211947	40",
	"竹富町"=>"町	4469540	876036	47",
	"竹野町"=>"町	4851366	1283293	28",
	"筑紫野"=>"市	4698662	1205734	40",
	"筑穂町"=>"町	4703368	1208404	40",
	"中井町"=>"町	5011974	1271811	14",
	"中央町"=>"町	4708480	1175073	43",
	"中央町"=>"町	4822584	1259805	33",
	"中郷村"=>"村	4976217	1331206	15",
	"中原町"=>"町	4695947	1200507	41",
	"中山町"=>"町	4777654	1211027	38",
	"中山町"=>"町	4809749	1278765	31",
	"中山町"=>"町	5050308	1379888	6",
	"中主町"=>"町	4896551	1263606	25",
	"中城村"=>"村	4600547	945489	47",
	"中条村"=>"村	4969428	1317933	20",
	"中条町"=>"町	5018900	1370030	15",
	"中仙町"=>"町	5059720	1423498	5",
	"中川村"=>"村	4966164	1282726	20",
	"中川町"=>"町	5114716	1613119	1",
	"中津川"=>"市	4950128	1277437	21",
	"中津村"=>"村	4870459	1222468	30",
	"中田町"=>"町	5084703	1393614	4",
	"中島村"=>"村	5052725	1337242	7",
	"中島町"=>"町	4774767	1222989	38",
	"中島町"=>"町	4926788	1336086	17",
	"中道町"=>"町	4988914	1281095	19",
	"中富町"=>"町	4984078	1276693	19",
	"中野市"=>"市	4981407	1322605	20",
	"中里村"=>"村	4993281	1333811	15",
	"中里村"=>"村	4997912	1299206	10",
	"中里町"=>"町	5055963	1474660	2",
	"中和村"=>"村	4816074	1269455	33",
	"仲南町"=>"町	4818682	1229453	37",
	"仲里村"=>"村	4565053	948101	47",
	"忠岡町"=>"町	4874336	1241472	27",
	"忠類村"=>"村	5159345	1532336	1",
	"朝倉村"=>"村	4788874	1223727	38",
	"朝倉町"=>"町	4706077	1201797	40",
	"朝地町"=>"町	4731596	1188065	44",
	"朝日村"=>"村	4944620	1299089	21",
	"朝日村"=>"村	4963294	1300335	20",
	"朝日村"=>"村	5023507	1377575	15",
	"朝日村"=>"村	5034170	1389917	6",
	"朝日町"=>"町	4900777	1294960	18",
	"朝日町"=>"町	4920023	1261113	24",
	"朝日町"=>"町	4952268	1329971	16",
	"朝日町"=>"町	5045362	1378674	6",
	"朝日町"=>"町	5133632	1588111	1",
	"朝来町"=>"町	4852746	1268658	28",
	"潮来町"=>"町	5060113	1293980	8",
	"長岡京"=>"市	4885137	1257243	26",
	"長坂町"=>"町	4981316	1289630	19",
	"長洲町"=>"町	4696394	1185350	43",
	"長沼町"=>"町	5047756	1342312	7",
	"長沼町"=>"町	5101148	1548275	1",
	"長生村"=>"村	5052855	1274730	12",
	"長泉町"=>"町	5000421	1264813	22",
	"長船町"=>"町	4827789	1249085	33",
	"長谷村"=>"村	4971173	1288398	20",
	"長島町"=>"町	4684335	1157483	46",
	"長島町"=>"町	4921254	1263058	24",
	"長瀞町"=>"町	5008068	1300003	11",
	"長南町"=>"町	5048662	1273790	12",
	"長尾町"=>"町	4830443	1233391	37",
	"長浜町"=>"町	4769365	1209974	38",
	"長柄町"=>"町	5048328	1275399	12",
	"長門町"=>"町	4977755	1305101	20",
	"長与町"=>"町	4675616	1181619	42",
	"長陽村"=>"村	4716123	1182822	43",
	"鳥越村"=>"村	4917872	1308784	17",
	"鳥屋町"=>"町	4928531	1331473	17",
	"鳥海町"=>"町	5046975	1410889	5",
	"直川村"=>"村	4744116	1184150	44",
	"直島町"=>"町	4823943	1240444	37",
	"直入町"=>"町	4729881	1190456	44",
	"鎮西町"=>"町	4675648	1206894	41",
	"津久見"=>"市	4747092	1190482	44",
	"津具村"=>"村	4954622	1265814	23",
	"津山町"=>"町	5087005	1389990	4",
	"津川町"=>"町	5020701	1356371	15",
	"津田町"=>"町	4833138	1234261	37",
	"津島町"=>"町	4770879	1192439	38",
	"津南町"=>"町	4991603	1332420	15",
	"津幡町"=>"町	4922338	1319977	17",
	"津別町"=>"町	5185019	1573353	1",
	"津名町"=>"町	4856440	1239614	28",
	"椎田町"=>"町	4718110	1211500	40",
	"椎葉村"=>"村	4721751	1168673	45",
	"追分町"=>"町	5105458	1543289	1",
	"嬬恋村"=>"村	4987202	1314490	10",
	"鶴居村"=>"村	5195762	1556348	1",
	"鶴見町"=>"町	4750687	1185892	44",
	"鶴田町"=>"町	4697420	1150070	46",
	"鶴田町"=>"町	5055543	1467178	2",
	"鶴来町"=>"町	4918624	1312192	17",
	"貞光町"=>"町	4826399	1225225	36",
	"哲西町"=>"町	4800077	1257755	33",
	"哲多町"=>"町	4804357	1257592	33",
	"天栄村"=>"村	5049017	1341068	7",
	"天塩町"=>"町	5102967	1615903	1",
	"天王町"=>"町	5039712	1435711	5",
	"天城町"=>"町	4640312	1001085	46",
	"天水町"=>"町	4701430	1183010	43",
	"天瀬町"=>"町	4716803	1197065	44",
	"天川村"=>"村	4890877	1232596	29",
	"天草町"=>"町	4679977	1165340	43",
	"天明町"=>"町	4702993	1178259	43",
	"天龍村"=>"村	4962888	1269826	20",
	"添田町"=>"町	4710853	1208470	40",
	"田浦町"=>"町	4698371	1164979	43",
	"田原町"=>"町	4941603	1247970	23",
	"田子町"=>"町	5081614	1452140	2",
	"田沼町"=>"町	5024630	1309389	9",
	"田上町"=>"町	5006549	1357130	15",
	"田尻町"=>"町	4870605	1238061	27",
	"田尻町"=>"町	5078175	1389445	4",
	"田代町"=>"町	4710618	1123057	46",
	"田代町"=>"町	5056218	1449626	5",
	"田島町"=>"町	5031953	1339109	7",
	"田富町"=>"町	4986971	1281332	19",
	"田平町"=>"町	4664998	1200991	42",
	"田辺町"=>"町	4887746	1253435	26",
	"田野町"=>"町	4726935	1146087	45",
	"田野町"=>"町	4824434	1203313	39",
	"田老町"=>"町	5111022	1430424	3",
	"登米町"=>"町	5086238	1391493	4",
	"都賀町"=>"町	5031072	1311310	9",
	"都祁村"=>"村	4894508	1245923	29",
	"都南村"=>"村	5081837	1427442	3",
	"都農町"=>"町	4736231	1161110	45",
	"都万村"=>"村	4796514	1302977	32",
	"都路村"=>"村	5068728	1347600	7",
	"砥部町"=>"町	4780617	1214843	38",
	"砥用町"=>"町	4711287	1174127	43",
	"度会町"=>"町	4918474	1239549	24",
	"土居町"=>"町	4803304	1222326	38",
	"土佐町"=>"町	4807256	1214404	39",
	"土山町"=>"町	4906267	1257627	25",
	"土庄町"=>"町	4830773	1241385	37",
	"土成町"=>"町	4836341	1228046	36",
	"土肥町"=>"町	4996711	1256685	22",
	"唐桑町"=>"町	5099443	1400432	4",
	"島根町"=>"町	4790344	1280181	32",
	"島牧村"=>"村	5042330	1537136	1",
	"島本町"=>"町	4883975	1255698	27",
	"東員町"=>"町	4917126	1262561	24",
	"東浦町"=>"町	4859760	1243056	28",
	"東浦町"=>"町	4930875	1259049	23",
	"東栄町"=>"町	4957242	1262668	23",
	"東海村"=>"村	5060775	1312735	8",
	"東郷町"=>"町	4692209	1147009	46",
	"東郷町"=>"町	4735178	1165979	45",
	"東郷町"=>"町	4820363	1276730	31",
	"東郷町"=>"町	4933986	1263401	23",
	"東広島"=>"市	4778861	1239248	34",
	"東山町"=>"町	5085237	1403751	3",
	"東庄町"=>"町	5063867	1290166	12",
	"東松山"=>"市	5018522	1297401	11",
	"東城町"=>"町	4797857	1256165	34",
	"東条町"=>"町	4862464	1256529	28",
	"東川町"=>"町	5130494	1573084	1",
	"東村山"=>"市	5020982	1287049	13",
	"東大阪"=>"市	4882088	1247962	27",
	"東大和"=>"市	5019468	1286710	13",
	"東通村"=>"村	5083654	1486527	2",
	"東伯町"=>"町	4813034	1277720	31",
	"東部町"=>"町	4980004	1308826	20",
	"東北町"=>"町	5084006	1467931	2",
	"東野町"=>"町	4785033	1233586	34",
	"東洋町"=>"町	4834183	1206859	39",
	"東陽村"=>"村	4705862	1171525	43",
	"東和町"=>"町	4765030	1220638	35",
	"東和町"=>"町	5060959	1353543	7",
	"東和町"=>"町	5084338	1417822	3",
	"東和町"=>"町	5087456	1394631	4",
	"桃山町"=>"町	4872739	1232492	30",
	"桃生町"=>"町	5084902	1388168	4",
	"湯原町"=>"町	4814416	1266900	33",
	"湯川村"=>"村	5036041	1352254	7",
	"湯浅町"=>"町	4866520	1225068	30",
	"湯前町"=>"町	4715406	1161817	43",
	"湯沢町"=>"町	4997542	1329514	15",
	"湯田町"=>"町	5068147	1415338	3",
	"湯来町"=>"町	4761966	1241462	34",
	"当別町"=>"町	5094752	1555967	1",
	"当麻町"=>"町	4885542	1242284	29",
	"当麻町"=>"町	5130461	1577716	1",
	"筒賀村"=>"村	4760974	1244117	34",
	"藤井寺"=>"市	4881605	1244567	27",
	"藤岡町"=>"町	4939550	1267005	23",
	"藤岡町"=>"町	5027496	1305324	9",
	"藤橋村"=>"村	4912569	1280940	21",
	"藤原町"=>"町	4913891	1266076	24",
	"藤原町"=>"町	5030014	1325811	9",
	"藤崎町"=>"町	5058262	1463515	2",
	"藤代町"=>"町	5044156	1293065	8",
	"藤沢町"=>"町	5088695	1398800	3",
	"藤島町"=>"町	5036681	1395464	6",
	"藤野町"=>"町	5009685	1282035	14",
	"藤里町"=>"町	5049541	1449921	5",
	"洞戸村"=>"村	4925535	1281607	21",
	"洞爺村"=>"村	5070170	1535224	1",
	"道志村"=>"村	5005316	1278896	19",
	"徳地町"=>"町	4739685	1230701	35",
	"読谷村"=>"村	4598477	950510	47",
	"苫小牧"=>"市	5097921	1534746	1",
	"苫前町"=>"町	5099662	1594968	1",
	"頓原町"=>"町	4780454	1262787	32",
	"奈義町"=>"町	4830476	1264302	33",
	"奈川村"=>"村	4956605	1299034	20",
	"奈留町"=>"町	4641762	1181742	42",
	"那珂町"=>"町	5057931	1312070	8",
	"那珂湊"=>"市	5061717	1308305	8",
	"那賀町"=>"町	4875804	1233680	30",
	"那須町"=>"町	5044471	1332588	9",
	"内浦町"=>"町	4940915	1344633	17",
	"内海村"=>"村	4770011	1188603	38",
	"内海町"=>"町	4798617	1236621	34",
	"内海町"=>"町	4835421	1241105	37",
	"内原町"=>"町	5052946	1308934	8",
	"内子町"=>"町	4775558	1207679	38",
	"内灘町"=>"町	4919249	1319048	17",
	"灘崎町"=>"町	4819235	1243474	33",
	"楢川村"=>"村	4962196	1295307	20",
	"楢葉町"=>"町	5075875	1342068	7",
	"南外村"=>"村	5053218	1420058	5",
	"南関町"=>"町	4699573	1190098	43",
	"南郷村"=>"村	4728043	1165769	45",
	"南郷村"=>"村	5023477	1339920	7",
	"南郷村"=>"村	5091855	1454440	2",
	"南郷町"=>"町	4729455	1135092	45",
	"南郷町"=>"町	5080965	1385473	4",
	"南光町"=>"町	4838071	1259576	28",
	"南条町"=>"町	4903104	1289941	18",
	"南勢町"=>"町	4921444	1236548	24",
	"南足柄"=>"市	5007705	1271430	14",
	"南淡町"=>"町	4850084	1233157	28",
	"南島町"=>"町	4914068	1233866	24",
	"南濃町"=>"町	4917673	1267862	21",
	"南部町"=>"町	4871707	1215452	30",
	"南部町"=>"町	4984757	1270108	19",
	"南部町"=>"町	5085901	1454314	2",
	"南方町"=>"町	5081844	1391627	4",
	"南牧村"=>"村	4985827	1296638	20",
	"南牧村"=>"村	4993719	1301556	10",
	"南幌町"=>"町	5099539	1550205	1",
	"二宮町"=>"町	5013355	1270677	14",
	"二宮町"=>"町	5038960	1309575	9",
	"二見町"=>"町	4924161	1242095	24",
	"二丈町"=>"町	4685104	1206470	40",
	"二本松"=>"市	5055572	1353110	7",
	"廿日市"=>"市	4764108	1236532	34",
	"日義村"=>"村	4959308	1291481	20",
	"日吉村"=>"村	4780794	1199898	38",
	"日吉町"=>"町	4692519	1137091	46",
	"日吉町"=>"町	4878169	1265800	26",
	"日原町"=>"町	4746266	1243457	32",
	"日高村"=>"村	4801560	1207134	39",
	"日高町"=>"町	4851885	1276814	28",
	"日高町"=>"町	4865170	1221204	30",
	"日高町"=>"町	5016307	1292563	11",
	"日高町"=>"町	5128012	1543518	1",
	"日出町"=>"町	4735256	1201183	44",
	"日進町"=>"町	4933548	1264655	23",
	"日生町"=>"町	4833876	1250256	33",
	"日置町"=>"町	4719815	1237741	35",
	"日南町"=>"町	4799779	1265981	31",
	"日野町"=>"町	4804019	1268555	31",
	"日野町"=>"町	4904964	1260531	25",
	"入善町"=>"町	4950191	1329489	16",
	"入来町"=>"町	4695595	1144914	46",
	"韮山町"=>"町	5002401	1262014	22",
	"忍野村"=>"村	4998636	1276446	19",
	"能勢町"=>"町	4875013	1258893	27",
	"能生町"=>"町	4967619	1335553	15",
	"能都町"=>"町	4937518	1342935	17",
	"能美町"=>"町	4768053	1231905	34",
	"播磨町"=>"町	4855341	1249636	28",
	"杷木町"=>"町	4709362	1200912	40",
	"波賀町"=>"町	4843701	1265447	28",
	"波崎町"=>"町	5069414	1287127	8",
	"波田町"=>"町	4962930	1303130	20",
	"波方町"=>"町	4786340	1227398	38",
	"波野村"=>"村	4724335	1185439	43",
	"馬瀬村"=>"村	4938382	1291242	21",
	"馬頭町"=>"町	5046287	1322464	9",
	"馬路村"=>"村	4825804	1207860	39",
	"売木村"=>"村	4957717	1269654	20",
	"萩原町"=>"町	4939679	1291464	21",
	"伯太町"=>"町	4797935	1272588	32",
	"伯方町"=>"町	4792197	1231235	38",
	"柏原町"=>"町	4862960	1264555	28",
	"白井町"=>"町	5042109	1288377	12",
	"白岡町"=>"町	5028196	1296579	11",
	"白糠町"=>"町	5186748	1546320	1",
	"白根町"=>"町	4984782	1282957	19",
	"白山町"=>"町	4908313	1246924	24",
	"白子町"=>"町	5053577	1276243	12",
	"白州町"=>"町	4980194	1288967	19",
	"白水村"=>"村	4719028	1181592	43",
	"白石町"=>"町	4685028	1194479	41",
	"白川村"=>"村	4928451	1305645	21",
	"白川町"=>"町	4938869	1280822	21",
	"白鷹町"=>"町	5043667	1374486	6",
	"白滝村"=>"村	5154762	1579809	1",
	"白沢村"=>"村	5008976	1319723	10",
	"白沢村"=>"村	5055834	1350182	7",
	"白鳥町"=>"町	4837011	1232654	37",
	"白鳥町"=>"町	4927041	1291618	21",
	"白馬村"=>"村	4963155	1321028	20",
	"白浜町"=>"町	4872634	1212290	30",
	"白浜町"=>"町	5036508	1256571	12",
	"白峰村"=>"村	4918649	1302176	17",
	"白老町"=>"町	5088930	1531749	1",
	"粕屋町"=>"町	4697385	1209868	40",
	"粕川村"=>"村	5011701	1310796	10",
	"函南町"=>"町	5002134	1263105	22",
	"箱根町"=>"町	5007952	1268255	14",
	"幡豆町"=>"町	4936620	1252432	23",
	"畑野町"=>"町	4982360	1367540	15",
	"八雲村"=>"村	4791386	1274483	32",
	"八雲町"=>"町	5049680	1521122	1",
	"八王子"=>"市	5015489	1283879	13",
	"八開村"=>"村	4921220	1267768	23",
	"八街町"=>"町	5051565	1283846	12",
	"八郷町"=>"町	5047148	1304602	8",
	"八坂村"=>"村	4964852	1313494	20",
	"八鹿町"=>"町	4851727	1274450	28",
	"八丈町"=>"町	5032589	1191815	13",
	"八森町"=>"町	5040752	1453193	5",
	"八千代"=>"市	5043726	1285887	12",
	"八束村"=>"村	4813333	1270214	33",
	"八束町"=>"町	4794433	1277701	32",
	"八代町"=>"町	4991255	1282054	19",
	"八田村"=>"村	4985461	1283744	19",
	"八東町"=>"町	4836936	1272940	31",
	"八日市"=>"市	4903590	1263942	25",
	"八幡町"=>"町	4930641	1286883	21",
	"八幡町"=>"町	5038044	1402859	6",
	"八幡浜"=>"市	4767413	1204383	38",
	"八尾町"=>"町	4937159	1316964	16",
	"八木町"=>"町	4879254	1262425	26",
	"八竜町"=>"町	5040309	1443575	5",
	"鳩ケ谷"=>"市	5030714	1289858	11",
	"鳩山町"=>"町	5016141	1295222	11",
	"隼人町"=>"町	4706631	1142643	46",
	"半田町"=>"町	4825250	1225011	36",
	"斑鳩町"=>"町	4886397	1245786	29",
	"板取村"=>"村	4925021	1285201	21",
	"板倉町"=>"町	4978705	1333777	15",
	"板倉町"=>"町	5026089	1303916	10",
	"板野町"=>"町	4840757	1229079	36",
	"板柳町"=>"町	5056590	1464968	2",
	"飯岡町"=>"町	5065813	1285399	12",
	"飯舘村"=>"村	5066990	1356943	7",
	"飯高町"=>"町	4908116	1239293	24",
	"飯山町"=>"町	4819078	1233404	37",
	"飯盛町"=>"町	4680941	1180006	42",
	"飯島町"=>"町	4965420	1284305	20",
	"飯南町"=>"町	4910145	1240090	24",
	"飯豊町"=>"町	5039704	1369523	6",
	"飯野町"=>"町	5059479	1355513	7",
	"磐梯町"=>"町	5039714	1352122	7",
	"斐川町"=>"町	4782449	1274023	32",
	"比内町"=>"町	5060993	1448073	5",
	"比布町"=>"町	5129339	1579410	1",
	"比和町"=>"町	4787652	1259293	34",
	"肥前町"=>"町	4673445	1203805	41",
	"飛島村"=>"村	4924443	1262824	23",
	"樋脇町"=>"町	4693964	1145409	46",
	"備中町"=>"町	4804527	1252204	33",
	"尾花沢"=>"市	5054728	1389518	6",
	"尾口村"=>"村	4919443	1306024	17",
	"尾上町"=>"町	5060603	1462068	2",
	"尾張旭"=>"市	4933378	1267679	23",
	"尾島町"=>"町	5015670	1305130	10",
	"美浦村"=>"村	5050983	1296039	8",
	"美瑛町"=>"町	5129004	1569029	1",
	"美甘村"=>"村	4810493	1265526	33",
	"美郷村"=>"村	4833442	1224987	36",
	"美原町"=>"町	4880289	1243275	27",
	"美作町"=>"町	4829443	1260195	33",
	"美山村"=>"村	4873303	1223236	30",
	"美山町"=>"町	4879945	1269698	26",
	"美山町"=>"町	4909098	1295844	18",
	"美山町"=>"町	4922808	1281165	21",
	"美深町"=>"町	5124493	1601238	1",
	"美杉村"=>"村	4905594	1243885	24",
	"美星町"=>"町	4807611	1248504	33",
	"美川村"=>"村	4787249	1210030	38",
	"美川町"=>"町	4751644	1232541	35",
	"美川町"=>"町	4913825	1313558	17",
	"美都町"=>"町	4751608	1247886	32",
	"美東町"=>"町	4728433	1231990	35",
	"美馬町"=>"町	4825920	1225648	36",
	"美浜町"=>"町	4867593	1218274	30",
	"美浜町"=>"町	4893870	1281658	18",
	"美浜町"=>"町	4928797	1251927	23",
	"美並村"=>"村	4930567	1283611	21",
	"美方町"=>"町	4843322	1276275	28",
	"美幌町"=>"町	5188005	1577564	1",
	"美麻村"=>"村	4964190	1316538	20",
	"美里村"=>"村	4909987	1249943	24",
	"美里町"=>"町	4872889	1229264	30",
	"美里町"=>"町	5010625	1302265	11",
	"美和村"=>"村	5050896	1319746	8",
	"美和町"=>"町	4754906	1231950	35",
	"美和町"=>"町	4924306	1267106	23",
	"匹見町"=>"町	4752634	1244432	32",
	"菱刈町"=>"町	4703252	1152321	46",
	"桧原村"=>"村	5009408	1286026	13",
	"姫戸町"=>"町	4694768	1167725	43",
	"姫島村"=>"村	4739380	1213941	44",
	"百石町"=>"町	5091538	1461329	2",
	"標茶町"=>"町	5205778	1558846	1",
	"標津町"=>"町	5224878	1571716	1",
	"氷上町"=>"町	4861392	1266260	28",
	"表郷村"=>"村	5050806	1333928	7",
	"蛭川村"=>"村	4945858	1278704	21",
	"浜益村"=>"村	5090053	1569547	1",
	"浜岡町"=>"町	4972717	1246854	22",
	"浜玉町"=>"町	4681575	1204105	41",
	"浜坂町"=>"町	4840255	1282333	28",
	"浜中町"=>"町	5224804	1550686	1",
	"浜島町"=>"町	4923183	1234581	24",
	"付知町"=>"町	4947465	1283585	21",
	"婦中町"=>"町	4937892	1319701	16",
	"富浦町"=>"町	5034370	1261443	12",
	"富岡町"=>"町	5076317	1344173	7",
	"富加町"=>"町	4931389	1277360	21",
	"富江町"=>"町	4635698	1174009	42",
	"富合町"=>"町	4704560	1177618	43",
	"富山村"=>"村	4961253	1266710	23",
	"富山町"=>"町	5034648	1263290	12",
	"富士宮"=>"市	4990176	1268022	22",
	"富士見"=>"市	5023886	1290721	11",
	"富士町"=>"町	4687559	1201404	41",
	"富沢町"=>"町	4985522	1268539	19",
	"富谷町"=>"町	5072129	1382256	4",
	"富田林"=>"市	4881583	1241845	27",
	"富来町"=>"町	4922365	1336841	17",
	"富里町"=>"町	5052469	1286046	12",
	"富良野"=>"市	5125905	1560221	1",
	"布施村"=>"村	4800951	1306451	32",
	"布津町"=>"町	4692871	1176733	42",
	"布野村"=>"村	4780282	1255716	34",
	"府中町"=>"町	4770251	1238013	34",
	"扶桑町"=>"町	4928981	1272813	23",
	"敷島町"=>"町	4987107	1284631	19",
	"普代村"=>"村	5107949	1440136	3",
	"浮羽町"=>"町	4708637	1199828	40",
	"武儀町"=>"町	4932467	1280346	21",
	"武石村"=>"村	4976404	1306094	20",
	"武川村"=>"村	4981877	1288106	19",
	"武蔵町"=>"町	4741991	1205897	44",
	"武蔵野"=>"市	5024503	1285739	13",
	"武豊町"=>"町	4929042	1254528	23",
	"舞阪町"=>"町	4953986	1248622	22",
	"風連町"=>"町	5127049	1594454	1",
	"福栄村"=>"村	4733492	1239490	35",
	"福岡町"=>"町	4929382	1321327	16",
	"福岡町"=>"町	4948375	1280067	21",
	"福間町"=>"町	4697303	1215402	40",
	"福光町"=>"町	4927629	1315967	16",
	"福崎町"=>"町	4851477	1258094	28",
	"福山町"=>"町	4709561	1140129	46",
	"福知山"=>"市	4864669	1270575	26",
	"福地村"=>"村	5089871	1456708	2",
	"福田町"=>"町	4963812	1248422	22",
	"福島町"=>"町	4673600	1201096	42",
	"福島町"=>"町	5049325	1493162	1",
	"福富町"=>"町	4686990	1194542	41",
	"福富町"=>"町	4780184	1243293	34",
	"福部村"=>"村	4834358	1279502	31",
	"福野町"=>"町	4929209	1317062	16",
	"物部村"=>"村	4819725	1213062	39",
	"分水町"=>"町	4998343	1354438	15",
	"粉河町"=>"町	4874778	1233601	30",
	"平賀町"=>"町	5060527	1460941	2",
	"平舘村"=>"村	5063103	1481333	2",
	"平群町"=>"町	4885332	1246531	29",
	"平鹿町"=>"町	5057727	1413368	5",
	"平取町"=>"町	5116785	1532978	1",
	"平生町"=>"町	4754737	1221654	35",
	"平泉町"=>"町	5080238	1403415	3",
	"平谷村"=>"村	4954783	1271412	20",
	"平田村"=>"村	5060649	1339738	7",
	"平田町"=>"町	4918980	1269082	21",
	"平田町"=>"町	5037551	1399880	6",
	"平内町"=>"町	5074534	1473245	2",
	"平和町"=>"町	4922738	1267549	23",
	"米原町"=>"町	4906320	1271240	25",
	"米山町"=>"町	5082930	1390550	4",
	"別海町"=>"町	5224405	1562076	1",
	"片品村"=>"村	5012256	1323700	10",
	"保原町"=>"町	5060160	1361446	7",
	"保内町"=>"町	4766508	1205279	38",
	"穂高町"=>"町	4964022	1308063	20",
	"穂積町"=>"町	4920973	1273990	21",
	"穂波町"=>"町	4704615	1210172	40",
	"穂別町"=>"町	5116961	1539315	1",
	"峰山町"=>"町	4862305	1282341	26",
	"峰浜村"=>"村	5041543	1450438	5",
	"方城町"=>"町	4708728	1212743	40",
	"芳井町"=>"町	4803663	1246650	33",
	"芳賀町"=>"町	5042199	1315613	9",
	"蓬田村"=>"村	5063743	1474901	2",
	"豊浦町"=>"町	4713343	1229134	35",
	"豊浦町"=>"町	5015123	1364846	15",
	"豊浦町"=>"町	5065753	1532929	1",
	"豊栄町"=>"町	4781644	1244211	34",
	"豊岡村"=>"村	4962439	1254043	22",
	"豊科町"=>"町	4964758	1306625	20",
	"豊丘村"=>"村	4964352	1279676	20",
	"豊郷町"=>"町	4904377	1267103	25",
	"豊玉町"=>"町	4655531	1238136	42",
	"豊頃町"=>"町	5166371	1540744	1",
	"豊根村"=>"村	4958022	1265163	23",
	"豊山町"=>"町	4928951	1268908	23",
	"豊松村"=>"村	4800246	1251794	34",
	"豊中町"=>"町	4813138	1229196	37",
	"豊津町"=>"町	4715106	1212067	40",
	"豊田村"=>"村	4979752	1323635	20",
	"豊田町"=>"町	4718817	1231222	35",
	"豊田町"=>"町	4961697	1250064	22",
	"豊能町"=>"町	4877892	1256956	27",
	"豊浜町"=>"町	4780805	1230320	34",
	"豊浜町"=>"町	4811010	1226557	37",
	"豊富村"=>"村	4988171	1280471	19",
	"豊富町"=>"町	5104125	1623625	1",
	"豊平町"=>"町	4766752	1247892	34",
	"豊北町"=>"町	4714240	1234327	35",
	"豊野村"=>"村	4707082	1174882	43",
	"豊野町"=>"町	4978204	1321530	20",
	"豊里町"=>"町	5085103	1388919	4",
	"飽田町"=>"町	4703574	1179188	43",
	"鳳来町"=>"町	4952813	1257474	23",
	"坊津町"=>"町	4688221	1126990	46",
	"望月町"=>"町	4981156	1305413	20",
	"鉾田町"=>"町	5058713	1301599	8",
	"北茨城"=>"市	5067170	1324760	8",
	"北浦村"=>"村	5059293	1298924	8",
	"北浦町"=>"町	4745669	1177424	45",
	"北橘村"=>"村	5005646	1313187	10",
	"北郷村"=>"村	4732051	1169933	45",
	"北郷町"=>"町	4729584	1140241	45",
	"北九州"=>"市	4711593	1219680	40",
	"北山村"=>"村	4895001	1221436	30",
	"北上町"=>"町	5092275	1388568	4",
	"北条町"=>"町	4817692	1277129	31",
	"北勢町"=>"町	4914967	1265363	24",
	"北川村"=>"村	4825640	1203998	39",
	"北川町"=>"町	4741089	1176725	45",
	"北谷町"=>"町	4599880	947201	47",
	"北淡町"=>"町	4857529	1243586	28",
	"北島町"=>"町	4843780	1228395	36",
	"北部町"=>"町	4705407	1183205	43",
	"北方町"=>"町	4682541	1195796	41",
	"北方町"=>"町	4735004	1172125	45",
	"北方町"=>"町	4920800	1275615	21",
	"北房町"=>"町	4810838	1258506	33",
	"北野町"=>"町	4701140	1200315	40",
	"北竜町"=>"町	5107798	1574247	1",
	"墨俣町"=>"町	4920734	1272959	21",
	"牧園町"=>"町	4707139	1146672	46",
	"牧丘町"=>"町	4993833	1286490	19",
	"睦沢町"=>"町	5051606	1272896	12",
	"堀金村"=>"村	4963648	1306503	20",
	"幌延町"=>"町	5106756	1620544	1",
	"本吉町"=>"町	5094330	1396497	4",
	"本宮町"=>"町	4887964	1218025	30",
	"本宮町"=>"町	5054312	1350348	7",
	"本郷村"=>"村	4753505	1234495	35",
	"本郷町"=>"町	4787580	1238553	34",
	"本郷町"=>"町	5036106	1348128	7",
	"本山町"=>"町	4809392	1215133	39",
	"本匠村"=>"村	4744481	1186115	44",
	"本城村"=>"村	4968513	1310371	20",
	"本川村"=>"村	4799138	1214004	39",
	"本巣町"=>"町	4920385	1277427	21",
	"本埜村"=>"村	5047370	1289294	12",
	"本部町"=>"町	4604391	959554	47",
	"本別町"=>"町	5170123	1552392	1",
	"麻生町"=>"町	5057731	1295544	8",
	"麻績村"=>"村	4969775	1312350	20",
	"幕別町"=>"町	5160951	1544599	1",
	"末吉町"=>"町	4716789	1139398	46",
	"万場町"=>"町	5001124	1300062	10",
	"満濃町"=>"町	4818292	1230901	37",
	"味方村"=>"村	5004506	1359908	15",
	"箕郷町"=>"町	5002499	1310107	10",
	"箕輪町"=>"町	4967456	1292818	20",
	"妙義町"=>"町	4997502	1306194	10",
	"妙高村"=>"村	4976328	1329517	15",
	"夢前町"=>"町	4848796	1258873	28",
	"牟岐町"=>"町	4839243	1211932	36",
	"牟礼村"=>"村	4976599	1323054	20",
	"牟礼町"=>"町	4829136	1236042	37",
	"霧島町"=>"町	4710137	1145396	46",
	"鵡川町"=>"町	5109513	1532614	1",
	"名栗村"=>"村	5010647	1291656	11",
	"名古屋"=>"市	4928741	1266422	23",
	"名川町"=>"町	5088097	1455088	2",
	"名立町"=>"町	4971344	1337638	15",
	"名和町"=>"町	4806477	1278409	31",
	"明科町"=>"町	4965548	1308721	20",
	"明智町"=>"町	4946049	1270756	21",
	"明浜町"=>"町	4767651	1199408	38",
	"明方村"=>"村	4933444	1290702	21",
	"明野村"=>"村	4983970	1287600	19",
	"明野町"=>"町	5041486	1304886	8",
	"明和村"=>"村	5023393	1303392	10",
	"明和町"=>"町	4918550	1243600	24",
	"鳴子町"=>"町	5065999	1394726	4",
	"鳴瀬町"=>"町	5082034	1382293	4",
	"鳴沢村"=>"村	4993550	1277213	19",
	"免田町"=>"町	4712437	1160523	43",
	"面河村"=>"村	4789342	1212745	38",
	"茂木町"=>"町	5046870	1315042	9",
	"網野町"=>"町	4861052	1284415	26",
	"木更津"=>"市	5037122	1273411	12",
	"木江町"=>"町	4785007	1232363	34",
	"木次町"=>"町	4784507	1270249	32",
	"木城町"=>"町	4733134	1157787	45",
	"木祖村"=>"村	4960292	1293600	20",
	"木造町"=>"町	5053889	1469044	2",
	"木沢村"=>"村	4834880	1217791	36",
	"木津町"=>"町	4889650	1250405	26",
	"木頭村"=>"村	4831381	1215661	36",
	"門川町"=>"町	4739434	1168787	45",
	"門前町"=>"町	4923744	1342228	17",
	"門別町"=>"町	5114804	1529197	1",
	"夜須町"=>"町	4701509	1204316	40",
	"夜須町"=>"町	4815292	1207232	39",
	"野栄町"=>"町	5060620	1283659	12",
	"野市町"=>"町	4813331	1208188	39",
	"野洲町"=>"町	4897029	1262308	25",
	"野上町"=>"町	4871154	1229887	30",
	"野尻町"=>"町	4719685	1150433	45",
	"野村町"=>"町	4775282	1201437	38",
	"野津町"=>"町	4741005	1189430	44",
	"野田村"=>"村	5105592	1443873	3",
	"野田町"=>"町	4689731	1154067	46",
	"野木町"=>"町	5029924	1304856	9",
	"弥栄村"=>"村	4755965	1251875	32",
	"弥栄町"=>"町	4863393	1283594	26",
	"弥生町"=>"町	4746230	1186749	44",
	"弥彦村"=>"村	4998900	1356760	15",
	"弥富町"=>"町	4922195	1263842	23",
	"矢掛町"=>"町	4809238	1246473	33",
	"矢巾町"=>"町	5081287	1425732	3",
	"矢祭町"=>"町	5055407	1327256	7",
	"矢吹町"=>"町	5052313	1339168	7",
	"矢島町"=>"町	5044872	1412151	5",
	"矢部村"=>"村	4709637	1193293	40",
	"矢部町"=>"町	4715732	1176536	43",
	"矢本町"=>"町	5083678	1383225	4",
	"柳谷村"=>"村	4788241	1207788	38",
	"柳津町"=>"町	4922675	1273062	21",
	"柳津町"=>"町	5030033	1350795	7",
	"柳田村"=>"村	4935539	1345177	17",
	"油谷町"=>"町	4718206	1237313	35",
	"油木町"=>"町	4798182	1251863	34",
	"友部町"=>"町	5051065	1308319	8",
	"有家町"=>"町	4691077	1175835	42",
	"有漢町"=>"町	4811611	1256272	33",
	"有川町"=>"町	4648269	1187278	42",
	"有田町"=>"町	4676072	1194458	41",
	"有明町"=>"町	4684623	1193458	41",
	"有明町"=>"町	4691392	1170343	43",
	"有明町"=>"町	4692190	1182462	42",
	"有明町"=>"町	4717973	1133575	46",
	"湧別町"=>"町	5170335	1591908	1",
	"涌谷町"=>"町	5080737	1387327	4",
	"由宇町"=>"町	4759731	1225573	35",
	"由岐町"=>"町	4845379	1215784	36",
	"由仁町"=>"町	5104548	1547928	1",
	"由比町"=>"町	4988335	1263718	22",
	"由利町"=>"町	5044008	1415156	5",
	"由良町"=>"町	4864355	1222401	30",
	"遊佐町"=>"町	5036795	1404428	6",
	"邑楽町"=>"町	5020951	1305383	10",
	"邑久町"=>"町	4827440	1247818	33",
	"邑智町"=>"町	4773346	1262647	32",
	"雄勝町"=>"町	5056227	1406085	5",
	"雄勝町"=>"町	5093071	1386713	4",
	"雄踏町"=>"町	4954810	1248879	22",
	"雄武町"=>"町	5146765	1604890	1",
	"雄和町"=>"町	5046213	1425174	5",
	"余呉町"=>"町	4903488	1279434	25",
	"余市町"=>"町	5068325	1554942	1",
	"余目町"=>"町	5036690	1398494	6",
	"与板町"=>"町	4997263	1351356	15",
	"与論町"=>"町	4622999	973614	46",
	"様似町"=>"町	5145757	1516502	1",
	"用瀬町"=>"町	4831478	1272198	31",
	"葉山村"=>"村	4795275	1203941	39",
	"葉山町"=>"町	5025240	1269685	14",
	"養父町"=>"町	4852092	1273549	28",
	"養老町"=>"町	4916320	1271003	21",
	"淀江町"=>"町	4803573	1276396	31",
	"羅臼町"=>"町	5226970	1584702	1",
	"落合町"=>"町	4815182	1260541	33",
	"嵐山町"=>"町	5015798	1297438	11",
	"藍住町"=>"町	4841936	1228435	36",
	"蘭越町"=>"町	5059137	1540998	1",
	"利賀村"=>"村	4933052	1312368	16",
	"利根村"=>"村	5011752	1320988	10",
	"利根町"=>"町	5045113	1290762	8",
	"利尻町"=>"町	5080931	1626596	1",
	"利島村"=>"村	5014266	1242931	13",
	"利府町"=>"町	5075447	1379777	4",
	"里庄町"=>"町	4808140	1242371	33",
	"里美村"=>"村	5057762	1322278	8",
	"陸別町"=>"町	5175082	1564817	1",
	"立科町"=>"町	4979493	1305682	20",
	"立花町"=>"町	4701283	1195177	40",
	"立山町"=>"町	4943406	1319768	16",
	"立川町"=>"町	5038844	1396311	6",
	"立田村"=>"村	4921125	1266021	23",
	"竜ケ崎"=>"市	5046681	1292697	8",
	"竜王町"=>"町	4900590	1262075	25",
	"竜王町"=>"町	4986711	1283649	19",
	"竜郷町"=>"町	4665296	1022746	46",
	"竜北町"=>"町	4704327	1172844	43",
	"竜洋町"=>"町	4961503	1248288	22",
	"龍山村"=>"村	4961839	1258783	22",
	"龍神村"=>"村	4877703	1219975	30",
	"両神村"=>"村	5003074	1296358	11",
	"梁川町"=>"町	5061887	1362529	7",
	"礼文町"=>"町	5077840	1630787	1",
	"苓北町"=>"町	4681947	1170299	43",
	"霊山町"=>"町	5061583	1359876	7",
	"蓮沼村"=>"村	5058148	1281553	12",
	"浪岡町"=>"町	5061562	1465505	2",
	"浪江町"=>"町	5075852	1349637	7",
	"浪合村"=>"村	4956967	1273363	20",
	"六郷町"=>"町	4984789	1277732	19",
	"六郷町"=>"町	5059700	1419066	5",
	"六戸町"=>"町	5087824	1461849	2",
	"六合村"=>"村	4990727	1317396	10",
	"六日町"=>"町	4999650	1334274	15",
	"和歌山"=>"市	4866247	1232178	30",
	"和賀町"=>"町	5075358	1414961	3",
	"和寒町"=>"町	5127021	1584752	1",
	"和気町"=>"町	4829765	1252789	33",
	"和泉村"=>"村	4920125	1292491	18",
	"和束町"=>"町	4892680	1252524	26",
	"和知町"=>"町	4874377	1269261	26",
	"和田村"=>"村	4975815	1303337	20",
	"和田町"=>"町	5040867	1261430	12",
	"和島村"=>"村	4995917	1352616	15",
	"和泊町"=>"町	4631662	985980	46",
	"和木町"=>"町	4760016	1231167	35",
	"和良村"=>"村	4935239	1286894	21",
	"鷲宮町"=>"町	5028139	1299490	11",
	"鷲敷町"=>"町	4841975	1218757	36",
	"亘理町"=>"町	5070826	1369250	4",
	"詫間町"=>"町	4812329	1231838	37",
	"挾間町"=>"町	4734557	1195008	44",
	"檮原町"=>"町	4785466	1201992	39",
	"泗水町"=>"町	4707992	1185077	43",
	"石川市"=>"市	4601912	951220	47",
	"上野市"=>"市	4900781	1251551	24",
);
# "鹿島"=>"市	4683636	1191612	41",
my %place_2 = (
	"むつ"=>"市	5083247	1486519	2",
	"阿南"=>"市	4847842	1221068	36",
	"旭川"=>"市	5125268	1575664	1",
	"旭村"=>"村	5059389	1304216	8",
	"旭町"=>"町	4761441	1254796	32",
	"旭町"=>"町	4817890	1258789	33",
	"旭町"=>"町	4945148	1268225	23",
	"芦屋"=>"市	4871050	1250054	28",
	"芦別"=>"市	5118957	1566565	1",
	"綾瀬"=>"市	5019567	1275611	14",
	"綾町"=>"町	4725199	1151843	45",
	"綾部"=>"市	4869421	1270644	26",
	"安芸"=>"市	4820750	1205970	39",
	"安城"=>"市	4934993	1258393	23",
	"安中"=>"市	5000058	1307633	10",
	"安来"=>"市	4797134	1275423	32",
	"伊勢"=>"市	4921640	1241432	24",
	"伊達"=>"市	5071293	1528912	1",
	"伊丹"=>"市	4874532	1252109	28",
	"伊東"=>"市	5007714	1258855	22",
	"伊那"=>"市	4966669	1290145	20",
	"伊予"=>"市	4777427	1215162	38",
	"井原"=>"市	4804796	1245399	33",
	"一関"=>"市	5080691	1401562	3",
	"一宮"=>"市	4924992	1270828	23",
	"稲城"=>"市	5022275	1282852	13",
	"稲沢"=>"市	4924198	1268818	23",
	"茨木"=>"市	4880567	1253279	27",
	"因島"=>"市	4794192	1234485	34",
	"宇佐"=>"市	4728673	1207029	44",
	"宇治"=>"市	4888886	1255742	26",
	"宇土"=>"市	4703779	1176624	43",
	"宇部"=>"市	4724964	1222138	35",
	"羽咋"=>"市	4924153	1328080	17",
	"羽生"=>"市	5023863	1302100	11",
	"羽島"=>"市	4921426	1271399	21",
	"臼杵"=>"市	4745063	1192414	44",
	"浦安"=>"市	5036596	1283427	12",
	"浦添"=>"市	4598066	944704	47",
	"浦和"=>"市	5027340	1290882	11",
	"栄村"=>"村	4988906	1331442	20",
	"栄町"=>"町	5001301	1353073	15",
	"栄町"=>"町	5048848	1290044	12",
	"益田"=>"市	4746429	1248185	32",
	"越谷"=>"市	5032582	1291962	11",
	"延岡"=>"市	4740036	1172837	45",
	"燕市"=>"市	5001453	1355900	15",
	"遠野"=>"市	5095341	1415696	3",
	"塩釜"=>"市	5076926	1379205	4",
	"塩山"=>"市	4994373	1285272	19",
	"塩尻"=>"市	4966434	1300026	20",
	"横手"=>"市	5060531	1415169	5",
	"横浜"=>"市	5027097	1275864	14",
	"岡崎"=>"市	4938337	1258253	23",
	"岡山"=>"市	4821206	1247468	33",
	"岡谷"=>"市	4969883	1298298	20",
	"沖縄"=>"市	4601037	947903	47",
	"荻町"=>"町	4726820	1185153	44",
	"桶川"=>"市	5024218	1295987	11",
	"下関"=>"市	4713965	1222361	35",
	"下館"=>"市	5039517	1306932	8",
	"下妻"=>"市	5038946	1302527	8",
	"下松"=>"市	4747367	1224422	35",
	"下村"=>"村	4937454	1322559	16",
	"下田"=>"市	5002177	1248355	22",
	"加賀"=>"市	4907443	1306785	17",
	"加須"=>"市	5025943	1300534	11",
	"加西"=>"市	4854409	1257285	28",
	"加茂"=>"市	5006022	1355586	15",
	"可児"=>"市	4934306	1275232	21",
	"花巻"=>"市	5080332	1417886	3",
	"海南"=>"市	4867640	1229479	30",
	"貝塚"=>"市	4873063	1239659	27",
	"角田"=>"市	5068250	1367072	4",
	"掛川"=>"市	4968665	1251773	22",
	"笠岡"=>"市	4806374	1242141	33",
	"笠間"=>"市	5048684	1309789	8",
	"橿原"=>"市	4888635	1242223	29",
	"滑川"=>"市	4944407	1323417	16",
	"葛飾"=>"区	5034626	1286641	13",
	"蒲郡"=>"市	4940015	1253634	23",
	"釜石"=>"市	5108013	1413827	3",
	"鎌倉"=>"市	5023845	1271352	14",
	"鴨川"=>"市	5043682	1263989	12",
	"茅野"=>"市	4973829	1295726	20",
	"刈谷"=>"市	4932192	1259488	23",
	"巻町"=>"町	5000132	1359263	15",
	"甘木"=>"市	4704045	1203124	40",
	"諌早"=>"市	4682008	1182271	42",
	"関市"=>"市	4929157	1277403	21",
	"関町"=>"町	4910181	1254660	24",
	"館山"=>"市	5035437	1259760	12",
	"館林"=>"市	5023271	1304875	10",
	"丸亀"=>"市	4816808	1234300	37",
	"岩井"=>"市	5036116	1297627	8",
	"岩国"=>"市	4760012	1229923	35",
	"岩沼"=>"市	5071462	1371655	4",
	"岩倉"=>"市	4927476	1269961	23",
	"岩槻"=>"市	5029301	1294120	11",
	"岐阜"=>"市	4923493	1275113	21",
	"亀岡"=>"市	4880720	1260381	26",
	"亀山"=>"市	4912352	1254690	24",
	"菊池"=>"市	4709363	1187143	43",
	"橘町"=>"町	4762105	1220257	35",
	"杵築"=>"市	4738204	1202862	44",
	"久喜"=>"市	5028126	1298080	11",
	"久居"=>"市	4913026	1248181	24",
	"久慈"=>"市	5104053	1446756	3",
	"宮古"=>"市	5110587	1427001	3",
	"宮崎"=>"市	4731204	1148582	45",
	"宮村"=>"村	4940820	1298815	21",
	"宮津"=>"市	4867144	1279171	26",
	"牛久"=>"市	5045504	1295143	8",
	"牛深"=>"市	4681013	1158871	43",
	"魚津"=>"市	4946826	1325679	16",
	"京都"=>"市	4887759	1260308	26",
	"境港"=>"市	4796437	1279311	31",
	"境町"=>"町	5013057	1305867	10",
	"境町"=>"町	5032791	1299812	8",
	"橋本"=>"市	4881901	1235205	30",
	"狭山"=>"市	5018942	1290587	11",
	"鏡村"=>"村	4805083	1209535	39",
	"鏡町"=>"町	4703822	1172341	43",
	"玉名"=>"市	4700229	1185304	43",
	"玉野"=>"市	4822151	1241589	33",
	"桐生"=>"市	5016018	1310477	10",
	"錦町"=>"町	4710372	1159051	43",
	"錦町"=>"町	4750638	1233393	35",
	"金沢"=>"市	4919726	1316101	17",
	"串間"=>"市	4724307	1132598	45",
	"釧路"=>"市	5197886	1547360	1",
	"熊谷"=>"市	5018109	1301186	11",
	"熊本"=>"市	4705586	1180815	43",
	"熊野"=>"市	4899714	1219867	24",
	"桑名"=>"市	4920721	1262118	24",
	"君津"=>"市	5036595	1271767	12",
	"郡山"=>"市	5053069	1346307	7",
	"恵庭"=>"市	5096937	1543671	1",
	"恵那"=>"市	4946968	1276060	21",
	"桂村"=>"村	5053385	1314460	8",
	"結城"=>"市	5035705	1306874	8",
	"犬山"=>"市	4930099	1273523	23",
	"見附"=>"市	5000958	1351032	15",
	"原村"=>"村	4975940	1294604	20",
	"原町"=>"市	5074584	1355009	7",
	"原町"=>"町	4826187	1258195	33",
	"古河"=>"市	5029421	1302536	8",
	"古川"=>"市	5074519	1388669	4",
	"戸田"=>"市	5028512	1289317	11",
	"湖西"=>"市	4951269	1249736	22",
	"五泉"=>"市	5010684	1358696	15",
	"五條"=>"市	4885074	1236557	29",
	"御所"=>"市	4886747	1240560	29",
	"御坊"=>"市	4865577	1219971	30",
	"交野"=>"市	4884583	1252250	27",
	"光町"=>"町	5058277	1283850	12",
	"厚木"=>"市	5017165	1275836	14",
	"向日"=>"市	4885229	1258039	26",
	"幸手"=>"市	5030243	1298697	11",
	"広島"=>"市	4768469	1237752	34",
	"弘前"=>"市	5056818	1461615	2",
	"更埴"=>"市	4972428	1315105	20",
	"江刺"=>"市	5082434	1410786	3",
	"江津"=>"市	4760038	1260302	32",
	"江東"=>"区	5033515	1284064	13",
	"江南"=>"市	4927446	1271842	23",
	"江別"=>"市	5095422	1551649	1",
	"港区"=>"区	5031162	1283577	13",
	"甲府"=>"市	4988568	1283728	19",
	"荒川"=>"区	5032319	1286383	13",
	"荒尾"=>"市	4695677	1187401	43",
	"行橋"=>"市	4715460	1214121	40",
	"行田"=>"市	5020523	1300885	11",
	"高岡"=>"市	4933046	1323042	16",
	"高砂"=>"市	4852566	1251460	28",
	"高崎"=>"市	5004232	1307576	10",
	"高山"=>"市	4941562	1301052	21",
	"高松"=>"市	4825773	1236218	37",
	"高石"=>"市	4876026	1242626	27",
	"高知"=>"市	4807205	1207991	39",
	"高槻"=>"市	4882329	1254344	27",
	"高萩"=>"市	5065666	1321583	8",
	"高浜"=>"市	4931658	1257275	23",
	"高梁"=>"市	4810293	1252374	33",
	"鴻巣"=>"市	5022918	1298260	11",
	"国分"=>"市	4707673	1142501	46",
	"国立"=>"市	5019958	1284540	13",
	"黒磯"=>"市	5041779	1330510	9",
	"黒石"=>"市	5061532	1463036	2",
	"黒部"=>"市	4948281	1327341	16",
	"狛江"=>"市	5024929	1282737	13",
	"今市"=>"市	5029263	1321798	9",
	"今治"=>"市	4788022	1226270	38",
	"根室"=>"市	5241130	1559790	1",
	"佐賀"=>"市	4690911	1197365	41",
	"佐久"=>"市	4985269	1304827	20",
	"佐原"=>"市	5058084	1292190	12",
	"佐倉"=>"市	5048184	1285939	12",
	"佐伯"=>"市	4748471	1186445	44",
	"佐野"=>"市	5024937	1307198	9",
	"砂川"=>"市	5108661	1565736	1",
	"座間"=>"市	5018309	1277318	14",
	"坂戸"=>"市	5018619	1294346	11",
	"坂出"=>"市	4819076	1235276	37",
	"坂町"=>"町	4770617	1236113	34",
	"桜井"=>"市	4890456	1242552	29",
	"札幌"=>"市	5088893	1550146	1",
	"鯖江"=>"市	4902733	1294324	18",
	"三浦"=>"市	5026445	1265073	14",
	"三笠"=>"市	5107640	1556759	1",
	"三郷"=>"市	5035515	1289771	11",
	"三原"=>"市	4790917	1238201	34",
	"三次"=>"市	4782756	1252890	34",
	"三条"=>"市	5002734	1354804	15",
	"三鷹"=>"市	5024255	1284480	13",
	"三沢"=>"市	5089418	1464499	2",
	"三田"=>"市	4868216	1255927	28",
	"三島"=>"市	5001180	1264144	22",
	"三木"=>"市	4859542	1252654	28",
	"山形"=>"市	5052360	1377083	6",
	"山口"=>"市	4733163	1230299	35",
	"山鹿"=>"市	4703960	1188879	43",
	"山田"=>"市	4707695	1208060	40",
	"山梨"=>"市	4992786	1284804	19",
	"士別"=>"市	5126548	1590350	1",
	"市原"=>"市	5044260	1277804	12",
	"市川"=>"市	5037620	1285874	12",
	"志木"=>"市	5025006	1289997	11",
	"指宿"=>"市	4702921	1124941	46",
	"糸満"=>"市	4596011	940525	47",
	"鹿屋"=>"市	4710723	1129832	46",
	"鹿角"=>"市	5068498	1447686	5",
	"鹿沼"=>"市	5030940	1316298	9",
	"七尾"=>"市	4930951	1333432	17",
	"室戸"=>"市	4829572	1198314	39",
	"室蘭"=>"市	5075180	1523272	1",
	"社町"=>"町	4859140	1256902	28",
	"取手"=>"市	5041929	1292698	8",
	"守口"=>"市	4880397	1250418	27",
	"守山"=>"市	4895896	1262005	25",
	"珠洲"=>"市	4941485	1347604	17",
	"酒田"=>"市	5034236	1400815	6",
	"宗像"=>"市	4699578	1216884	40",
	"洲本"=>"市	4856335	1236211	28",
	"秋川"=>"市	5014691	1286139	13",
	"秋田"=>"市	5043807	1429801	5",
	"渋川"=>"市	5004153	1313513	10",
	"渋谷"=>"区	5029246	1283787	13",
	"宿毛"=>"市	4778237	1185682	39",
	"出雲"=>"市	4779280	1273135	32",
	"出水"=>"市	4692776	1155141	46",
	"春日"=>"市	4696251	1206950	40",
	"所沢"=>"市	5020975	1288669	11",
	"勝浦"=>"市	5051545	1265266	12",
	"勝山"=>"市	4914128	1298082	18",
	"勝田"=>"市	5059363	1310161	8",
	"小郡"=>"市	4700089	1202157	40",
	"小山"=>"市	5032924	1307211	9",
	"小諸"=>"市	4983451	1307654	20",
	"小松"=>"市	4912134	1310594	17",
	"小樽"=>"市	5075926	1554799	1",
	"小浜"=>"市	4886963	1277732	18",
	"小平"=>"市	5021303	1286127	13",
	"小牧"=>"市	4928947	1270363	23",
	"小野"=>"市	4857633	1254610	28",
	"小林"=>"市	4715096	1151753	45",
	"庄原"=>"市	4788693	1254763	34",
	"昭島"=>"市	5017203	1285487	13",
	"松浦"=>"市	4669597	1200193	42",
	"松原"=>"市	4879957	1244692	27",
	"松戸"=>"市	5036633	1288232	12",
	"松江"=>"市	4789839	1276747	32",
	"松阪"=>"市	4915093	1244691	24",
	"松山"=>"市	4779637	1218093	38",
	"松任"=>"市	4916515	1314781	17",
	"松本"=>"市	4967101	1304455	20",
	"沼津"=>"市	4999196	1263325	22",
	"沼田"=>"市	5005689	1319128	10",
	"焼津"=>"市	4979743	1255098	22",
	"上越"=>"市	4976611	1337159	15",
	"上山"=>"市	5049766	1373273	6",
	"上村"=>"村	4712573	1159695	43",
	"上村"=>"村	4967000	1273811	20",
	"上田"=>"市	4977076	1310356	20",
	"上尾"=>"市	5025478	1295085	11",
	"城陽"=>"市	4888156	1254601	26",
	"常滑"=>"市	4926072	1255800	23",
	"新井"=>"市	4977262	1332828	15",
	"新潟"=>"市	5005440	1364877	15",
	"新宮"=>"市	4895830	1213947	30",
	"新見"=>"市	4805022	1259068	33",
	"新座"=>"市	5024462	1288442	11",
	"新宿"=>"区	5029475	1284835	13",
	"新庄"=>"市	5050984	1395437	6",
	"新城"=>"市	4950059	1256257	23",
	"新町"=>"町	5008202	1305862	10",
	"新津"=>"市	5008243	1360270	15",
	"新湊"=>"市	4934979	1324057	16",
	"森町"=>"町	4965485	1253977	22",
	"森町"=>"町	5060898	1515678	1",
	"深川"=>"市	5114062	1573950	1",
	"深谷"=>"市	5014251	1302993	11",
	"真岡"=>"市	5040598	1311735	9",
	"神戸"=>"市	4867138	1248717	28",
	"秦野"=>"市	5012037	1273374	14",
	"人吉"=>"市	4707535	1159438	43",
	"諏訪"=>"市	4972210	1297295	20",
	"須坂"=>"市	4979157	1319329	20",
	"須崎"=>"市	4798276	1202329	39",
	"逗子"=>"市	5025007	1270520	14",
	"吹田"=>"市	4878693	1251222	27",
	"垂水"=>"市	4705317	1133609	46",
	"水戸"=>"市	5057089	1309060	8",
	"水沢"=>"市	5081139	1409097	3",
	"水俣"=>"市	4694801	1159504	43",
	"瑞浪"=>"市	4941268	1272910	21",
	"杉並"=>"区	5027027	1285068	13",
	"裾野"=>"市	5000882	1266236	22",
	"瀬戸"=>"市	4935135	1267928	23",
	"成田"=>"市	5051596	1287867	12",
	"清水"=>"市	4985750	1260431	22",
	"清瀬"=>"市	5023067	1288171	13",
	"生駒"=>"市	4885227	1248766	29",
	"盛岡"=>"市	5081693	1429175	3",
	"西宮"=>"市	4872402	1250445	28",
	"西条"=>"市	4794624	1220981	38",
	"西都"=>"市	4730534	1155789	45",
	"西尾"=>"市	4934353	1254931	23",
	"西脇"=>"市	4858986	1259650	28",
	"青森"=>"市	5067033	1469503	2",
	"青梅"=>"市	5014014	1288260	13",
	"静岡"=>"市	4981887	1259001	22",
	"石岡"=>"市	5050459	1302755	8",
	"石垣"=>"市	4469476	876143	47",
	"石巻"=>"市	5087138	1383299	4",
	"赤村"=>"村	4711708	1209925	40",
	"赤平"=>"市	5113725	1568001	1",
	"赤穂"=>"市	4838167	1251067	28",
	"摂津"=>"市	4880325	1251868	27",
	"仙台"=>"市	5071426	1377538	4",
	"千歳"=>"市	5099502	1541465	1",
	"千葉"=>"市	5043956	1281741	12",
	"川越"=>"市	5021607	1293188	11",
	"川口"=>"市	5030180	1288966	11",
	"川崎"=>"市	5029419	1278992	14",
	"川西"=>"市	4875070	1253752	28",
	"川内"=>"市	4691038	1145160	46",
	"泉村"=>"村	4709219	1171578	43",
	"泉南"=>"市	4869940	1237053	27",
	"船橋"=>"市	5039475	1284875	12",
	"前橋"=>"市	5006364	1309923	10",
	"倉吉"=>"市	4817815	1275373	31",
	"倉敷"=>"市	4815906	1244934	33",
	"相生"=>"市	4840936	1252812	28",
	"相馬"=>"市	5073234	1360564	7",
	"総社"=>"市	4814959	1248109	33",
	"草加"=>"市	5033108	1289600	11",
	"草津"=>"市	4894686	1260411	25",
	"足利"=>"市	5020303	1308135	9",
	"足立"=>"区	5032935	1286778	13",
	"村山"=>"市	5053806	1385290	6",
	"村上"=>"市	5021398	1375959	15",
	"多久"=>"市	4684051	1198264	41",
	"多摩"=>"市	5020186	1282843	13",
	"太田"=>"市	5017649	1306382	10",
	"帯広"=>"市	5155201	1545126	1",
	"袋井"=>"市	4965628	1250562	22",
	"台東"=>"区	5032237	1285516	13",
	"大垣"=>"市	4918169	1272819	21",
	"大館"=>"市	5060429	1449679	5",
	"大宮"=>"市	5026748	1292511	11",
	"大曲"=>"市	5057239	1420204	5",
	"大月"=>"市	5001957	1281864	19",
	"大口"=>"市	4702146	1153929	46",
	"大阪"=>"市	4878161	1248858	27",
	"大洲"=>"市	4771702	1206096	38",
	"大川"=>"市	4693897	1195316	40",
	"大村"=>"市	4678577	1184279	42",
	"大竹"=>"市	4760166	1232390	34",
	"大町"=>"市	4962744	1313993	20",
	"大津"=>"市	4890867	1260526	25",
	"大田"=>"区	5030074	1280750	13",
	"大東"=>"市	4882547	1249513	27",
	"大府"=>"市	4930772	1260321	23",
	"大分"=>"市	4738021	1196492	44",
	"大野"=>"市	4913662	1295184	18",
	"大和"=>"市	5020602	1277433	14",
	"滝川"=>"市	5108926	1568013	1",
	"男鹿"=>"市	5034647	1435855	5",
	"知多"=>"市	4927245	1259773	23",
	"知立"=>"市	4933927	1259928	23",
	"池田"=>"市	4875525	1253465	27",
	"稚内"=>"市	5100365	1634885	1",
	"竹原"=>"市	4784743	1236180	34",
	"竹田"=>"市	4730188	1186864	44",
	"筑後"=>"市	4698162	1195520	40",
	"秩父"=>"市	5007187	1295589	11",
	"中間"=>"市	4705615	1217279	40",
	"中村"=>"市	4785711	1187579	39",
	"中町"=>"町	4857324	1261706	28",
	"中津"=>"市	4722870	1209419	44",
	"中野"=>"区	5028010	1285334	13",
	"朝霞"=>"市	5025482	1288585	11",
	"町田"=>"市	5020195	1279633	13",
	"調布"=>"市	5023588	1283306	13",
	"銚子"=>"市	5069888	1286330	12",
	"長井"=>"市	5041582	1371771	6",
	"長岡"=>"市	4998345	1347624	15",
	"長崎"=>"市	4675681	1178889	42",
	"長浜"=>"市	4906014	1273628	25",
	"長門"=>"市	4722649	1237234	35",
	"長野"=>"市	4975104	1319241	20",
	"鳥羽"=>"市	4926471	1241210	24",
	"鳥取"=>"市	4832547	1277928	31",
	"鳥栖"=>"市	4698308	1201481	41",
	"直方"=>"市	4706365	1214700	40",
	"津山"=>"市	4824255	1262384	33",
	"津島"=>"市	4922790	1266263	23",
	"鶴岡"=>"市	5033871	1394069	6",
	"天童"=>"市	5053745	1380931	6",
	"天理"=>"市	4890220	1245376	29",
	"天竜"=>"市	4961487	1255304	22",
	"田川"=>"市	4709105	1210880	40",
	"田辺"=>"市	4873703	1214088	30",
	"田無"=>"市	5023501	1286010	13",
	"登別"=>"市	5079973	1526765	1",
	"都城"=>"市	4718297	1141792	45",
	"都留"=>"市	5000724	1279726	19",
	"土浦"=>"市	5047175	1298475	8",
	"土岐"=>"市	4938705	1272574	21",
	"土佐"=>"市	4803419	1205730	39",
	"唐津"=>"市	4678950	1204079	41",
	"島原"=>"市	4693422	1180251	42",
	"島田"=>"市	4974454	1253987	22",
#	"東海"=>"市	4928612	1260718	23",
	"東金"=>"市	5053297	1280044	12",
	"東根"=>"市	5054180	1383436	6",
	"東村"=>"村	4613556	958599	47",
	"東村"=>"村	5000790	1315718	10",
	"東村"=>"村	5012991	1308264	10",
	"東村"=>"村	5015273	1314696	10",
	"東村"=>"村	5052681	1335560	7",
	"東村"=>"村	5056548	1293337	8",
	"東町"=>"町	4686447	1158923	46",
	"東予"=>"市	4791105	1221197	38",
	"湯沢"=>"市	5057933	1409805	5",
	"藤岡"=>"市	5006791	1305194	10",
	"藤枝"=>"市	4977388	1255110	22",
	"藤沢"=>"市	5021757	1272093	14",
	"徳山"=>"市	4745113	1225857	35",
	"徳島"=>"市	4844057	1226419	36",
	"栃尾"=>"市	5003852	1349185	15",
	"栃木"=>"市	5030427	1309623	9",
	"敦賀"=>"市	4898104	1283119	18",
	"奈良"=>"市	4889094	1248528	29",
	"那覇"=>"市	4596514	943503	47",
	"南国"=>"市	4811186	1208601	39",
	"南陽"=>"市	5045454	1369884	6",
	"楠町"=>"町	4724196	1225498	35",
	"楠町"=>"町	4918714	1256778	24",
	"二戸"=>"市	5087101	1449662	3",
	"尼崎"=>"市	4874731	1250286	28",
	"日光"=>"市	5025988	1322915	9",
	"日向"=>"市	4738545	1167097	45",
	"日田"=>"市	4713956	1199429	44",
	"日南"=>"市	4729718	1137545	45",
	"日野"=>"市	5018342	1284048	13",
	"日立"=>"市	5063574	1317451	8",
	"入間"=>"市	5018192	1289976	11",
	"韮崎"=>"市	4984172	1285411	19",
	"熱海"=>"市	5006694	1263343	22",
	"能代"=>"市	5041077	1447533	5",
	"柏原"=>"市	4882734	1244735	27",
	"柏崎"=>"市	4988224	1345290	15",
	"柏村"=>"村	5054909	1468178	2",
	"泊村"=>"村	4821943	1278381	31",
	"泊村"=>"村	5057937	1550289	1",
	"白河"=>"市	5047710	1336438	7",
	"白根"=>"市	5004809	1359462	15",
	"白石"=>"市	5062425	1367958	4",
	"迫町"=>"町	5082908	1392806	4",
	"函館"=>"市	5066369	1503585	1",
	"八戸"=>"市	5093736	1458333	2",
	"八女"=>"市	4700162	1195507	40",
	"八代"=>"市	4701753	1170145	43",
	"八潮"=>"市	5034324	1289512	11",
	"八幡"=>"市	4885577	1255405	26",
	"八尾"=>"市	4881731	1246456	27",
	"塙町"=>"町	5054870	1330351	7",
	"半田"=>"市	4929869	1256017	23",
	"板橋"=>"区	5029644	1286915	13",
	"飯山"=>"市	4981261	1326552	20",
	"飯塚"=>"市	4704976	1211130	40",
	"飯田"=>"市	4961697	1278414	20",
	"飯能"=>"市	5015921	1290688	11",
	"磐田"=>"市	4962761	1249723	22",
	"備前"=>"市	4830879	1250707	33",
	"尾西"=>"市	4923227	1270999	23",
	"尾道"=>"市	4795461	1238605	34",
	"尾鷲"=>"市	4902983	1226418	24",
	"美唄"=>"市	5106850	1559906	1",
	"美祢"=>"市	4723502	1229868	35",
	"美濃"=>"市	4928776	1279494	21",
	"彦根"=>"市	4905452	1269760	25",
	"姫路"=>"市	4848764	1253239	28",
	"氷見"=>"市	4931619	1326762	16",
	"品川"=>"区	5030501	1281827	13",
	"浜松"=>"市	4958267	1249486	22",
	"浜田"=>"市	4754965	1256278	32",
	"浜北"=>"市	4960552	1252426	22",
	"富岡"=>"市	5000167	1305240	10",
	"富山"=>"市	4939798	1320929	16",
	"富士"=>"市	4992441	1265721	22",
	"富村"=>"村	4818481	1265645	33",
	"富津"=>"市	5035581	1267671	12",
	"府中"=>"市	4796606	1244345	34",
	"府中"=>"市	5021310	1283972	13",
	"武生"=>"市	4902190	1292410	18",
	"武雄"=>"市	4680772	1194855	41",
	"舞鶴"=>"市	4874003	1276968	26",
	"福井"=>"市	4903979	1298185	18",
	"福岡"=>"市	4694544	1209137	40",
	"福江"=>"市	4638349	1176923	42",
	"福山"=>"市	4801151	1241351	34",
	"福生"=>"市	5015876	1286477	13",
	"福島"=>"市	5057175	1359279	7",
	"文京"=>"区	5031228	1285371	13",
	"平戸"=>"市	4664014	1201136	42",
	"平村"=>"村	4930331	1311530	16",
	"平塚"=>"市	5016701	1271959	14",
	"平田"=>"市	4781693	1275560	32",
	"平良"=>"市	4510162	892862	47",
	"米子"=>"市	4800025	1275317	31",
	"米沢"=>"市	5044326	1365091	6",
	"碧南"=>"市	4931872	1255741	23",
	"別府"=>"市	4733782	1198116	44",
	"保谷"=>"市	5024243	1286583	13",
	"宝塚"=>"市	4873070	1252678	28",
	"峰町"=>"町	4655443	1240773	42",
	"豊栄"=>"市	5011996	1364875	15",
	"豊岡"=>"市	4853622	1279490	28",
	"豊橋"=>"市	4946212	1251575	23",
	"豊川"=>"市	4945639	1253651	23",
	"豊前"=>"市	4720788	1209878	40",
	"豊中"=>"市	4877015	1252010	27",
	"豊町"=>"町	4782897	1230465	34",
	"豊田"=>"市	4937738	1262884	23",
	"豊島"=>"区	5029870	1286250	13",
	"豊明"=>"市	4932576	1261816	23",
	"防府"=>"市	4736353	1225747	35",
	"北区"=>"区	5030530	1286984	13",
	"北見"=>"市	5180344	1576999	1",
	"北上"=>"市	5080210	1414207	3",
	"北条"=>"市	4780082	1223038	38",
	"北村"=>"村	5101205	1557357	1",
	"北本"=>"市	5023201	1296864	11",
	"墨田"=>"区	5032759	1285012	13",
	"牧村"=>"村	4981905	1334726	15",
	"本庄"=>"市	5010768	1304474	11",
	"本荘"=>"市	5041888	1417791	5",
	"本渡"=>"市	4687025	1168388	43",
	"枚方"=>"市	4883531	1253209	27",
	"枕崎"=>"市	4690767	1125698	46",
	"箕面"=>"市	4877038	1253654	27",
	"岬町"=>"町	4865222	1235293	27",
	"岬町"=>"町	5054041	1270681	12",
	"名寄"=>"市	5128812	1596737	1",
	"名護"=>"市	4607241	957180	47",
	"名取"=>"市	5072247	1374056	4",
	"名瀬"=>"市	4661847	1021451	46",
	"名張"=>"市	4900005	1246475	24",
	"明石"=>"市	4860008	1247034	28",
	"鳴門"=>"市	4846025	1230093	36",
	"茂原"=>"市	5050488	1275262	12",
	"網走"=>"市	5193983	1584660	1",
	"目黒"=>"区	5029037	1282636	13",
	"紋別"=>"市	5160883	1596743	1",
	"門真"=>"市	4881235	1250496	27",
	"野田"=>"市	5035030	1293950	12",
	"矢板"=>"市	5037382	1324924	9",
	"柳井"=>"市	4755762	1222546	35",
	"柳川"=>"市	4694688	1193754	40",
	"有田"=>"市	4864661	1226877	30",
	"夕張"=>"市	5111210	1549966	1",
	"与野"=>"市	5026650	1291704	11",
	"里村"=>"村	4677122	1146247	46",
	"立川"=>"市	5019213	1284868	13",
	"流山"=>"市	5036600	1290711	12",
	"留萌"=>"市	5099093	1581788	1",
	"龍野"=>"市	4843721	1254759	28",
	"両津"=>"市	4983771	1370794	15",
	"緑町"=>"町	4853958	1235567	28",
	"輪島"=>"市	4928484	1345952	17",
	"鈴鹿"=>"市	4917129	1255642	24",
	"練馬"=>"区	5027582	1286363	13",
	"蓮田"=>"市	5027967	1295692	11",
	"和光"=>"市	5026117	1288088	11",
	"和泉"=>"市	4875341	1241294	27",
	"脇町"=>"町	4829474	1226423	36",
	"礪波"=>"市	4930739	1319181	16",
	"光市"=>"市	4750007	1222508	35",
);
my %place_1 = (
	"旭"=>"市	5063400	1285818	12",
	"呉"=>"市	4772465	1232849	34",
	"堺"=>"市	4877480	1244530	27",
#	"津"=>"市	4914296	1249771	24",
	"萩"=>"市	4730450	1238582	35",
	"柏"=>"市	5039266	1291141	12",
	"蕨"=>"市	5028579	1289605	11"
);

# 特定の地名を他の地名と同一にみなす
#<id="island">
# 国土地理院 平成１６年 全国都道府県市区町村別面積調査
# http://www.gsi.go.jp/KOKUJYOHO/MENCHO/200410/opening.htm
# ↑から大きな面積の島を眺めて、適当にえらんで市区町村の住所とくっつけた
$place_4up{"奄美大島"} = $place_2{"名瀬"};
$place_3{"佐渡島"} = $place_3{"金井町"};
$place_3{"屋久島"} = $place_3{"屋久町"};
$place_3{"種子島"} = $place_3{"西之表"};
$place_3{"徳之島"} = $place_4up{"徳之島町"};
$place_3{"福江島"} = $place_2{"福江"};
$place_3{"八丈島"} = $place_3{"八丈町"};
$place_3{"利尻島"} = $place_4up{"利尻富士町"};
$place_3{"奥尻島"} = $place_3{"奥尻町"};
$place_2{"新島"} = $place_4up{"新島本村"};
$place_2{"壱岐"} = $place_4up{"郷ノ浦町"};
$place_2{"隠岐"} = $place_3{"西郷町"};
#</id>

# ヒット地名をキーとする誤爆検証用文字列
my %place_check_4up = ();
my %place_check_3 = (
	"和歌山"=>"印南町	下津町	花園村	岩出町	吉備町	金屋町	串本町	古座町	広川町	高野町	清水町	川辺町	太地町	打田町	大塔村	中津村	桃山町	湯浅町	那賀町	南部町	日高町	白浜町	美山村	美浜町	美里町	粉河町	北山村	本宮町	野上町	由良町	龍神村	海南	橋本	御坊	新宮	田辺	有田", 
	"鹿児島"=>"阿久根	姶良町	伊仙町	宇検村	頴娃町	横川町	屋久町	下甑村	加世田	開聞町	笠沙町	笠利町	蒲生町	喜界町	喜入町	輝北町	吉松町	吉田町	金峰町	串木野	串良町	栗野町	郡山町	吾平町	溝辺町	高山町	根占町	佐多町	財部町	桜島町	薩摩町	三島村	山川町	市来町	鹿島村	住用村	十島村	松元町	松山町	上甑村	吹上町	西之表	川辺町	大浦町	大隅町	大崎町	大和村	知名町	知覧町	長島町	鶴田町	天城町	田代町	東郷町	日吉町	入来町	隼人町	樋脇町	菱刈町	福山町	坊津町	牧園町	末吉町	霧島町	野田町	有明町	与論町	竜郷町	和泊町	国分	指宿	鹿屋	出水	垂水	川内	大口	東町	枕崎	名瀬	里村",
	"横浜町"=>"町田",
	"中央区"=>"札幌	仙台	さいたま	千葉	横浜	川崎	静岡	名古屋	京都	大阪	堺	神戸	広島	北九州	福岡",
	"小川町"=>"鹿児島",
	"山形村"=>"村山",
	"豊中町"=>"豊中市",
);
my %place_check_2 = (
	"青森"=>"むつ	弘前	黒石	三沢	柏村	八戸", 
	"秋田"=>"横手	鹿角	大館	大曲	男鹿	湯沢	能代	本荘", 
	"山形"=>"酒田	上山	新庄	村山	長井	鶴岡	天童	東根	南陽	米沢", 
	"福島"=>"郡山	原町	相馬	東村	白河	塙町", 
	"千葉"=>"浦安	栄町	鴨川	館山	君津	光町	佐原	佐倉	市原	市川	勝浦	松戸	成田	船橋	銚子	東金	富津	岬町	茂原	野田	流山	旭	柏", 
	"新潟"=>"栄町	燕市	加茂	巻町	見附	五泉	三条	上越	新井	新津	村上	長岡	栃尾	柏崎	白根	豊栄	牧村	両津",
	"栃木"=>"黒磯	今市	佐野	鹿沼	小山	真岡	足利	日光	矢板",
	"富山"=>"下村	滑川	魚津	高岡	黒部	新湊	氷見	平村	礪波", 
	"福井"=>"鯖江	勝山	小浜	大野	敦賀	武生",
	"山梨"=>"塩山	甲府	大月	都留	韮崎",
	"長野"=>"伊那	栄村	塩尻	岡谷	茅野	原村	更埴	佐久	小諸	松本	上村	上田	諏訪	須坂	大町	飯山	飯田", 
	"岐阜"=>"羽島	可児	関市	宮村	恵那	高山	瑞浪	大垣	土岐	美濃", 
	"静岡"=>"伊東	下田	掛川	湖西	三島	沼津	焼津	森町	裾野	清水	袋井	天竜	島田	藤枝	熱海	磐田	浜松	浜北	富士", 
	"京都"=>"綾部	宇治	亀岡	宮津	向日	城陽	八幡	舞鶴	東京都", 
	"大阪"=>"茨木	貝塚	交野	高石	高槻	守口	松原	吹田	摂津	泉南	大東	池田	柏原	八尾	豊中	枚方	箕面	岬町	門真	和泉	堺", 
	"奈良"=>"橿原	五條	御所	桜井	生駒	天理", 
	"鳥取"=>"境港	倉吉	泊村	米子", 
	"岡山"=>"旭町	井原	笠岡	玉野	原町	高梁	新見	倉敷	総社	津山	備前	富村	大岡山", 
	"広島"=>"因島	坂町	三原	三次	庄原	大竹	竹原	尾道	府中	福山	豊町	呉", 
	"山口"=>"宇部	下関	下松	岩国	橘町	錦町	長門	徳山	楠町	美祢	防府	柳井	光	萩", 
	"徳島"=>"阿南	鳴門	脇町", 
	"高知"=>"安芸	鏡村	室戸	宿毛	須崎	中村	土佐	南国", 
	"福岡"=>"甘木	行橋	山田	宗像	春日	小郡	赤村	大川	筑後	中間	直方	田川	八女	飯塚	豊前	柳川", 
	"佐賀"=>"鹿島	多久	鳥栖	唐津	武雄	江東",	
	"長崎"=>"諌早	松浦	大村	島原	福江	平戸	峰町", 
	"熊本"=>"宇土	菊池	牛深	鏡町	玉名	錦町	荒尾	山鹿	上村	人吉	水俣	泉村	八代	本渡", 
	"大分"=>"宇佐	臼杵	荻町	杵築	佐伯	竹田	中津	日田	別府", 
	"宮崎"=>"宮崎台	綾町	延岡	串間	小林	西都	都城	日向	日南", 
	"沖縄"=>"浦添	糸満	石垣	石川	那覇	平良	名護	東村",
	
	"飯田"=>"飯田橋", 
	"多摩"=>"川崎", 
	"八幡"=>"八幡東	八幡西	八幡平	本八幡	仙台", 
	"鹿島"=>"鹿島灘", 
	"川西"=>"神奈川西	長岡川西",
	"川内"=>"青葉区",
	"富士"=>"富士山",
	"東海"=>"東海大地震	東海地震	東海アマ	東海尼",
	"金沢"=>"金沢八景	金沢区",
	"貝塚"=>"福岡",
	"北区"=>"札幌	仙台	さいたま	千葉	横浜	川崎	静岡	名古屋	京都	大阪	堺	神戸	広島	北九州	福岡	浜松",
	"光市"=>"和光	日光",
	"三田"=>"港区",
	"貝塚"=>"大森",
	"御所"=>"京都御所	東宮御所	仙洞御所",
	"大野"=>"相模大野",
	"中町"=>"豊中",
);
my %place_check_1 = (
	"津"=>"津田沼	小木津	中標津	福津	会津	津波",
);
#------------------------------------------------------
# 地方区分
my %prefDistrict = (
	"1"  => "北海道",
	"2"  => "東北",
	"3"  => "東北",
	"4"  => "東北",
	"5"  => "東北",
	"6"  => "東北",
	"7"  => "東北",
	"8"  => "関東",
	"9"  => "関東",
	"10" => "関東",
	"11" => "関東",
	"12" => "関東",
	"13" => "関東",
	"14" => "関東",
	"15" => "甲信越",
	"16" => "北陸",
	"17" => "北陸",
	"18" => "北陸",
	"19" => "甲信越",
	"20" => "甲信越",
	"21" => "東海",
	"22" => "東海",
	"23" => "東海",
	"24" => "東海",
	"25" => "近畿",
	"26" => "近畿",
	"27" => "近畿",
	"28" => "近畿",
	"29" => "近畿",
	"30" => "近畿",
	"31" => "中国",
	"32" => "中国",
	"33" => "中国",
	"34" => "中国",
	"35" => "中国",
	"36" => "四国",
	"37" => "四国",
	"38" => "四国",
	"39" => "四国",
	"40" => "九州",
	"41" => "九州",
	"42" => "九州",
	"43" => "九州",
	"44" => "九州",
	"45" => "九州",
	"46" => "九州",
	"47" => "沖縄",
);
my %districtOrder = (
	"北海道" => "10",
	"東北"   => "20",
	"関東"   => "30",
	"北陸"   => "40",
	"甲信越" => "50",
	"東海"   => "60",
	"近畿"   => "70",
	"中国"   => "80",
	"四国"   => "90",
	"九州"   => "100",
	"沖縄"   => "110",
);
#------------------------------------------------------

# QueryString取得
my %query_data;

if ($ENV{'QUERY_STRING'}) {
  my $query_buffer = $ENV{'QUERY_STRING'};
  my @query_strings = split('&',$query_buffer);
	foreach my $query_pair (@query_strings) {
	  my ($name, $value) = split('=', $query_pair);
	  $value =~ tr/+/ /;
	  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	  $query_data{$name} = $value;
	}
}

# ソース表示モードのときはソース表示しておしまい
if ($query_data{'mode'} && $query_data{'mode'} eq 'source') {
	open(SOURCE, "$cgi_filename") or die;
	print "Content-Type: text/plain\n\n";
	while (<SOURCE>) {
		print;
	}
	close(SOURCE);
	exit();
}
if ($query_data{'mode'} && $query_data{'mode'} eq 'data_island') {
	open(SOURCE, "$cgi_filename") or die;
	print "Content-Type: text/plain\n\n";
	while (<SOURCE>) {
		if ($_ =~ m!^#<id="island">!) {
			while (<SOURCE>) {
				if ($_ =~ m!^#<\/id>!) {
					last;
				}
			print $_;
			}
			last;
		}
	}
	close(SOURCE);
	exit();
}

# dat番号の読み込みと設定
if (-e "$dat_num_file") {	
	open (RD_DAT_NUM, "< $dat_num_file");
	flock(RD_DAT_NUM, 1);
	$dat_num = <RD_DAT_NUM>;
	close(RD_DAT_NUM);
}
else {
	$dat_num = &search_next_thread();
	if ($dat_num) {
		open(WR_DAT_NUM, "+> $dat_num_file");
		flock(WR_DAT_NUM, 2);
		seek(WR_DAT_NUM, 0, 0);
		print WR_DAT_NUM $dat_num;
		truncate(WR_DAT_NUM, tell(WR_DAT_NUM));
		close(WR_DAT_NUM);
	}
	else {
		print "content-type:text/plain\n\n";
		print "対象となるスレッドが見つかりません";
		$log .= "No thread was found." ;
		&update_log();
		exit();		
	}
}
&dat_num_setting("$dat_num");

## もし、一定時間過ぎていたら、サーバーにアクセスする
# 最終アクセス時刻をきちんと読むために、このプロセスは排他処理を行う
my $lockfile = "$cacheidx.lock";
my $isToAccessServer = 1; # 0でサーバーにアクセスしない（このときキャッシュを使うこと）。1でサーバーにアクセス。
my $is_use_cache = 0;     # 0でキャッシュを使わない。1でキャッシュを使う。
my $lastaccesstime;       # 最後にサーバーからhttpレスポンスを受け取った時刻
my $received_bytes = 0;   # 受け取り済みdatのバイト数
my $res_num = 0;          # 受け取り済みのレス数

my $earliest_kita_res_time; # 更新したｷﾀｰ!!レスのうちで、最も早いものの時間

my $request_header;       # リクエストヘッダ
my $header;               # レスポンスヘッダ
my $status_code;          # レスポンスヘッダのステータスコード
my $is_search_next_thread;# 次スレに移行するかどうか。0で次スレに移行しない。1で次スレを検索して次スレに移行。
my $is_reload_dat = 0;    # datを破棄してリロードするかどうか。0でリロードしない。1でリロードする（あぼ～ん時）。
my $isFailedToAccess;     # サーバーアクセスに失敗したかどうか
my @dat;                  # 新たに受け取ったdatデータ
my $datModifiedTime;      # 対象datの更新時刻
my $etag;                 # 対象datのETAG
my ${res_num_updated};    # 新たに受け取ったdatを加えたレス数
my ${res_num_difference} = 0; # 新たに受け取った差分レス数

# インデックスを読み込み
($lastaccesstime, $received_bytes, $res_num) = &read_idx();

eval {      
	open(LOCK,"> $lockfile") or die "Can't open lockfile: $!";
	if (flock(LOCK, 6)) {
		
		# 設定
		if ($res_num && $res_num > $thread_res_limit) {
			$is_search_next_thread = 1;
		}
	    if ($lastaccesstime && (str2time($nowtime) - str2time($lastaccesstime)) < $cachelimit) {
	    	$isToAccessServer = 0;
	    	$is_use_cache = 1;
		}
		
		# 次スレ検索が必要なら、dat番号を更新する
		if ($is_search_next_thread) {
			$is_search_next_thread = 0;
			# 次スレが見つかれば、スレッドを移行
			$dat_num = &search_next_thread();
			if ($dat_num) {
				($received_bytes, $res_num) = (0, 0);
				open(WR_DAT_NUM, "+> $dat_num_file");
				flock(WR_DAT_NUM, 2);
				seek(WR_DAT_NUM, 0, 0);
				print WR_DAT_NUM $dat_num;
				truncate(WR_DAT_NUM, tell(WR_DAT_NUM));
				close(WR_DAT_NUM);
				&dat_num_setting("$dat_num");		
				# ローカルのdat、地名抽出キャッシュ、インデックスを消去
				if (-e "$dat_file") {
					unlink("$dat_file");
				}
				if (-e "$geoname_cache_file") {
					unlink("$geoname_cache_file");
				}
				if (-e "$cacheidx") {
					unlink("$cacheidx");
				}
				
				open(WR_IDX, "> $cacheidx");
				print WR_IDX "<!-- LAST_ACCESS_TIME_$lastaccesstime --><!-- RECEIVED_BYTES_0 --><!-- RES_NUM_0 --><!-- DAT_MODIFIED_TIME_ --><!-- ETAG_ -->";
				close(WR_IDX);	
			}
			# 次スレが見つからなければ、キャッシュを利用
			else {
	    		$isToAccessServer = 0;
				$is_use_cache = 1;
			}
		}
		
		#--ここからサーバーアクセス	
		if ($isToAccessServer) {      
			&access_server();
		}
		# リロードが必要な場合、消す必要があるものを消してから、もう一度サーバーアクセス。
		if ($is_reload_dat) {
			# リロードフラグを一度おろしておく
			$is_reload_dat = 0;
			# ローカルのdat、地名抽出キャッシュ、インデックスを消去
			if (-e "$dat_file") {
				unlink("$dat_file");
			}
			if (-e "$geoname_cache_file") {
				unlink("$geoname_cache_file");
			}
			if (-e "$cacheidx") {
				unlink("$cacheidx");
			}
			# もう一度、設定してサーバーにアクセス
			($received_bytes, $res_num) = (0, 0);
			&access_server();
		}	
		#--ここまで、サーバーアクセス	
		
		#--ここまで、もし、一定時間過ぎていたら、サーバーにアクセス
		
		#--ここから、レスから地名を抽出し、ファイルとしてキャッシュ
		if ($debug == 1) {
			$is_use_cache = 0;
		}
		if (!$is_use_cache) {
			
			my $i = 1; # 処理レス番号
			if ($res_num) {$i += $res_num;} # 受け取り済みレスがあるときは、処理開始レス番号をずらす
			my $geocache; # 地名抽出キャッシュとして出力する文字列
			
			if ($isMakeGeocacheMode) { # MakeGeocacheMode のときはコメントアウト
				opendir(DATDIR, "./dat");
				my @datfile = sort grep {/\d+.dat/ && -f "./dat/$_"} readdir(DATDIR);
				close(DATDIR);
				
				my $startDatFile = $#datfile - $geocache_use_num + 1;
				if ($startDatFile < 0) {$startDatFile = 0;}
				my $j;
				# for ($j = $startDatFile; $j <= $#datfile; $j++) { # MakeGeocacheMode のときはコメントアウトしない
					$_ = $datfile[$j];
					$_ =~ s/(\d+).dat/$1/;
					my $dat_num = $_;
					&dat_num_setting($dat_num);
					my $geocache;
					open(DAT, "./dat/$dat_num.dat");
					my @dat = <DAT>;
					close(DAT);
					my $i = 1;
			} # MakeGeocacheMode のときはコメントアウト
			
			foreach my $datLine (@dat) {
				# 文字コード変換
				Encode::from_to($datLine, "shiftjis", "euc-jp");
				my $datLineOrig = $datLine;
				my $datLineAutoPlacename = ""; # 書き込み者接続地名
								
				# 2007/03/12 に2chで導入された、書き込み者接続地名表示をカットする
				if ($datLine =~ m!(.+?)</b>\(([^)]+)\)<b>(.+)!o) {
					$datLine = $1 . $3;
					$datLineAutoPlacename = $2;
				} 
				
				
				# ｷﾀｰ系の文字列を含むレスのみ対象
				if ($datLine =~ m%${kita_regex}%io) {
					# 「かも」「気が」などのあいまいなものを除く
					unless ($datLine =~ m%${not_kita_regex}%io) {
						my $placename; # 検索する地名
						my $isPlaceNameFound = 0; # 地名発見フラグ
						my ($class, $x, $y);
						# 地名検索
						# 発見した場合はキャッシュにデータを追加
						if (!$isPlaceNameFound) { 
							foreach my $searchPlacename (keys(%place_4up)) {
								if (index("$datLine", "$searchPlacename") > -1) {
									my $isPlacenameMissHit;
									if (exists($place_check_4up{$searchPlacename})) {
										my @check_strings = split(/\t/, "$place_check_4up{$searchPlacename}");
										foreach my $check_str (@check_strings) {
											if ($datLine =~ m/$check_str/) {
												$isPlacenameMissHit = 1;
												last;
											}	
										}
									}
									if ($isPlacenameMissHit) {
										next;
									}
									else {
										$placename = $searchPlacename;
										($class, $x, $y, undef) = split(/\t/, "$place_4up{$placename}");
										$isPlaceNameFound = 1;
										last;
									}
								}
							}
						}
						if (!$isPlaceNameFound) { 
							foreach my $searchPlacename (keys(%place_3)) {
								if (index("$datLine", "$searchPlacename") > -1) {
									my $isPlacenameMissHit;
									if (exists($place_check_3{$searchPlacename})) {
										my @check_strings = split(/\t/, "$place_check_3{$searchPlacename}");
										foreach my $check_str (@check_strings) {
											if ($datLine =~ m/$check_str/) {
												$isPlacenameMissHit = 1;
												last;
											}	
										}
									}
									if ($isPlacenameMissHit) {
										next;
									}
									else {
										$placename = $searchPlacename;
										($class, $x, $y, undef) = split(/\t/, "$place_3{$placename}");
										$isPlaceNameFound = 1;
										last;
									}
								}
							}
						}
						if (!$isPlaceNameFound) { 
							foreach my $searchPlacename (keys(%place_2)) {
								if (index("$datLine", "$searchPlacename") > -1) {
									my $isPlacenameMissHit;
									if (exists($place_check_2{$searchPlacename})) {
										my @check_strings = split(/\t/, "$place_check_2{$searchPlacename}");
										foreach my $check_str (@check_strings) {
											if ($datLine =~ m/$check_str/) {
												$isPlacenameMissHit = 1;
												last;
											}	
										}
									}
									if ($isPlacenameMissHit) {
										next;
									}
									else {
										$placename = $searchPlacename;
										($class, $x, $y, undef) = split(/\t/, "$place_2{$placename}");
										$isPlaceNameFound = 1;
										last;
									}
								}
							}
						}
						if (!$isPlaceNameFound) { 
							foreach my $searchPlacename (keys(%place_1)) {
								if (index("$datLine", "$searchPlacename") > -1) {
									my $isPlacenameMissHit;
									if (exists($place_check_1{$searchPlacename})) {
										my @check_strings = split(/\t/, "$place_check_1{$searchPlacename}");
										foreach my $check_str (@check_strings) {
											if ($datLine =~ m/$check_str/) {
												$isPlacenameMissHit = 1;
												last;
											}	
										}
									}
									if ($isPlacenameMissHit) {
										next;
									}
									else {
										$placename = $searchPlacename;
										($class, $x, $y, undef) = split(/\t/, "$place_1{$placename}");
										$isPlaceNameFound = 1;
										last;
									}
								}
							}
						}
						if ($isPlaceNameFound) {
							my @res_contents = split(/<>/, ${datLineOrig});
							my ($res_time, $res_ID);
							if ($res_contents[2] =~ m!(\d+)/(\d+)/(\d+)(?:\([^)]+\)|)\D+(\d+):(\d+)(?::|)(\d+(?:\.\d+|)|)!) {
								my ($res_year, $res_month, $res_day, $res_hour, $res_min, $res_sec) = ($1, $2, $3, $4, $5, $6);
								if (!$res_sec) {
									$res_sec = "00";
								}
								if (length("$res_year") == 2) {$res_year = "20" . "$res_year";}
								# 2005年エイプリルフール対策
								if ($res_year eq "2665" ) {
									($res_year, $res_month) = ("2005", "04");
								}
								# 未来の年、あるいは2002年以前が入力されている場合には、今年の4/1とみなす
								if ($res_year > (localtime())[5] + 1900 || $res_year <= 2002) {
									($res_year, $res_month) = ((localtime())[5] + 1900, "04");
								}
								$res_time = sprintf("%d", str2time("$res_year-$res_month-$res_day $res_hour:$res_min:$res_sec+09:00"));
								# str2timeに失敗すると、$res_timeには0が入る
								# その場合、当年の4/1として解釈する
								if ($res_time == 0) {
									$res_time = sprintf("%d", str2time("$res_year-04-01 $res_hour:$res_min:$res_sec+09:00"));
								}
								if ($res_time != 0 && $res_sec =~ /(\.\d+)/) {
									$res_time .= $1;
								}
							}
							if ($res_contents[2] =~ m/ID:([^\s<>]+)/) {
								$res_ID = $1;
							}
							# 以上の処理でも時刻設定に失敗した場合は、
							# $res_timeには0が入力される
							# この場合、キャッシュから省くようにする
							if ($res_time != 0) {
								$geocache .= "$dat_num\t$i\t$placename\t$res_time\t$res_ID\t$x\t$y\t${datLineOrig}";
								if (!$earliest_kita_res_time || $earliest_kita_res_time > $res_time) {
									$earliest_kita_res_time = $res_time;
								}
							}
						}
					}
				}
				$i += 1;
			} # foreach (@dat)
			
			# 地名抽出されたｷﾀｰレスがあれば、キャッシュ更新
			if ($isMakeGeocacheMode) {
				$| = 1;
				print "$geoname_cache_file\n";
			}
			if ($geocache) {
				if ($isMakeGeocacheMode) {
					open(WR_GEOCACHE, "> $geoname_cache_file");
				}
				else {
					open(WR_GEOCACHE, ">> $geoname_cache_file");
				}
				print WR_GEOCACHE $geocache;
				close(WR_GEOCACHE);
			}
			
			# } # foreach (@datfile) # MakeGeocacheMode のときはコメントアウトしない
			if ($isMakeGeocacheMode) {
				exit();
			}
			
			#--ここまで、レスから地名を抽出し、ファイルとしてキャッシュ
			$res2geo_time = time() - $starttime - ($connection_time + $server_response_time);
			#--ここから、ページをhtmlに変換してキャッシュファイルに出力
			
			&geocache2html();
			
			# キャッシュ作成時間を記録
			$geo2xml_time = time() - $starttime - ($res2geo_time + $connection_time + $server_response_time);
		} #(if not use cache)
		close(LOCK); # サーバーアクセス～キャッシュ更新処理プロセスロックの終了
	} # if (flock(LOCK, 6))
	else {
		$log .= "\tother cache update process is going.";
		$is_use_cache = 1;
		$isToAccessServer = 0;
	}
};
# キャッシュ更新の先行プロセスが存在する場合と
# 時間内にサーバーアクセス～キャッシュ更新処理が終わらない場合は、打ち切ってキャッシュを使う
if ($@) { 
	$log .= "\t$@";
}       
#--ここまで、ページをhtmlに変換してキャッシュファイルに出力
	
#--ここから、ページの出力
# 引数に応じて
# イベントリストRSSを出力
eval {
if (defined($query_data{'mode'}) && $query_data{'mode'} eq 'list_rss') {
	print "Content-Type: application/xml\n\n";
	open (RD_EVENT_LIST_RSS_CACHE, "< $event_list_rss_cachename") || die "$!";
	flock(RD_EVENT_LIST_RSS_CACHE, 1);
	while (<RD_EVENT_LIST_RSS_CACHE>) { 
	   print;
	}
	close(RD_EVENT_LIST_RSS_CACHE);
}

# 最新地震情報のRSSを出力
elsif (defined($query_data{'mode'}) && $query_data{'mode'} eq 'rss') {
	print "Content-Type: application/xml\n\n";
	open (RD_EVENT_RSS, "< $event_latest_rss_file") || die "$!";
	flock(RD_EVENT_RSS, 1);
	while (<RD_EVENT_RSS>) { 
		print;
	}
	close(RD_EVENT_RSS);
}

# 最新地震情報のKMLを出力
elsif (defined($query_data{'mode'}) && $query_data{'mode'} eq 'kml') {
	my $kml;
	
	# データ読み込み
	my ($eventTime, $eventScale);
	my @res;
	open (RD_EVENT_RSS, "< $event_latest_rss_file") || die "$!";
	flock(RD_EVENT_RSS, 1);
	while (<RD_EVENT_RSS>) { 
		if ($_ =~ m/<channel /) {
			while (<RD_EVENT_RSS>) { 
				if ($_ =~ m!<dc:date>([^<]+)</dc:date>!) {
					$eventTime = $1;
				}
				if ($_ =~ m#<title>([^<]+)</title>#) {
					$eventScale = $1;
					Encode::from_to($eventScale, "utf-8", "euc-jp");
					if ($eventScale =~ m#(\d+)${event_scale_unit}#o) {
						$eventScale = $1;
					}
				}
				if ($_ =~ m!</channel>!) {
					last;
				}
			}
		}
		elsif ($_ =~ m/<item /) {
			my ($title, $content, $lat, $lon);
			while (<RD_EVENT_RSS>) { 
				if ($_ =~ m!<title>([^<]+)</title>!) {
					$title = $1;
				}
				if ($_ =~ m!<content:encoded>(.+?)</content:encoded>!) {
					$content = $1;
				}
				if ($_ =~ m!<geo:lat>([^<]+)</geo:lat>!) {
					$lat = $1;
				}
				if ($_ =~ m!<geo:long>([^<]+)</geo:long>!) {
					$lon = $1;
				}
				if ($_ =~ m!</item>!) {
					push(@res, join("\t", ($title, $content, $lat, $lon)) );
					last;
				}
			}
		}
	}
	close(RD_EVENT_RSS);
	
	# KMLの作成
	$kml .= <<KML;
<?xml version="1.0" encoding="utf-8"?>
<kml xmlns="http://earth.google.com/kml/2.0">
	<Document>
		<name>Latest EQ kita!! Info. (${eventTime} ${eventScale}kita!!)</name>
		<description>Latest eq kita report in earthquake BBS at 2ch.</description>
		<Folder>
KML
	foreach my $res (@res) {
		my ($title, $content, $lat, $lon) = split(/\t/, $res);
		$kml .= <<KML;
			<Placemark>
				<name>$title</name>
				<description>$content</description>
				<Point>
					<coordinates>$lon,$lat,0</coordinates>
				</Point>
			</Placemark>
KML
	}
	$kml .= <<KML;
		</Folder>
	</Document>
</kml>
KML
	open(WR, "> ./latest.kml");
	print WR $kml;
	close(WR);
	print "Content-Type: application/vnd.google-earth.kml+xml\n\n";
	print $kml;
    
}

# 最新地震情報画面を出力（デフォルト）
else {
	print "Content-Type: text/html\n\n";
	
	## 気象庁データ・Hi-netデータの取り込み
	my $jmaDataHtml;  # 気象庁震源のhtml
	my @jmaData;
	
	my $hinetData; # Hi-netのhtml
	my %hinetData; 
	my ($hinetLat, $hinetLon);
	my ($hinetLat_wgs84, $hinetLon_wgs84);

	# 必要なイベントデータの読み込み
	if (-e "./latest.xml") {
		my $latestEventTime;
		my @resPoints; # イベント方向地点の緯度経度、"$resLat\t$reslon"
		open(XML, "< $event_latest_rss_file") or die;
		flock(XML, 1);
		while(<XML>) {
			if ($_ =~ m!<channel !) {
				while(<XML>) {
					if ($_ =~ m!<dc:date>(.+?)T([^<]+)</dc:date>!) {
						$latestEventTime = "$1 $2";
						$latestEventTime = str2time($latestEventTime);
					}
					if ($_ =~ m!</channel>!) {
						last;
					}
				}
			}
			if ($_ =~ m!<item !) {
				my ($resLat, $resLon);
				while(<XML>) {
					if ($_ =~ m!<geo:lat>([^<]+)</geo:lat>!) {
						$resLat = $1;
					}
					if ($_ =~ m!<geo:long>([^<]+)</geo:long>!) {
						$resLon = $1;
					}
					if ($_ =~ m!</item>!) {
						push(@resPoints, "$resLat\t$resLon");
						last;
					}
				}
			}
		}
		close(XML);
		
		if ($latestEventTime =~ m!^\d{9,10}$!) {
			# 気象庁地震データの取り込み試行
			@jmaData = JMAdata::GetData("time=$latestEventTime");
			foreach my $jmaData (@jmaData) {
				if ($jmaData->{'dep'} >= 120) {
					$jmaData->{'深発地震'} = "yes";
				}
			}	
			
			# Hi-net最新震源情報 のデータ取り込み試行
			# Hi-net最新震源情報、Hi-net Aquaから最新地震に関するデータを同時に取り込み
			my $data;
			
			$data = Hinet::GetData("time=$latestEventTime&limit=$hinetLimitTime");
			#"震源地"=>"岩手県東方沖","震源時"=>"2005/11/17 21:27:05.57",
			#"緯度"=>"39.123N","経度"=>"142.614E",
			#"深さ"=>"28.1km", "マグニチュード"=>"2.7"
			
			$data .= HinetAqua::GetData("time=$latestEventTime&limit=$hinetLimitTime");
			# title   AQUA-CMT
			# スリップ角1/スリップ角2 66.0/106.9
			# 発震時刻        2005-12-05 07:20:24
			# マグニチュード  5.2
			# 緯度    37.9N
			# 傾斜1/傾斜2     36.7/56.9
			# 経度    142.7E
			# 使用観測点数    11
			# 深さ    30km
			# 走向1/走向2     184.7/33.7
			# 品質    85.73
			
			
			open (TEST, "> hinet.txt");
			print TEST $data;
			close(TEST);

			if ($data) {
				my @hinetData = split(/<>/, $data);
				my $estimatedMaxIntensity;
				my $intensityVariant;
				my $selectedHinetDataNum = -1;
				# 各Hi-netデータについて、
				for (my $i = 0; $i < $#hinetData + 1; $i++) {
					if ($hinetData[$i] =~ /\t/) {
						my %hinetData;
						my @hinetDataLine = split(/\n/, $hinetData[$i]);
						foreach (@hinetDataLine) {
							my ($key, $value) = split(/\t/, $_);
							$hinetData{$key} = $value;
						}
						# 最短地点との距離の計算
						my $minDistance;
						foreach my $resPoint (@resPoints) {
							my ($resLat, $resLon) = split(/\t/, $resPoint);
							my $distance = &geoCalcDistance($resLat, $resLon, $hinetData{"緯度"}, $hinetData{"経度"});
							if (!$minDistance || $minDistance > $distance) {
								$minDistance = $distance;
							}
						}
						my $hinetMag = $hinetData{"マグニチュード"};
						my $hinetDep;
						if ($hinetData{"深さ"} =~ m!^([\d\.]+)!) {
							$hinetDep = $1;
						}
						# 距離減衰式による震度推定
						# ただし、Hi-netのもともとのデータの誤差を考慮して
						my $estimatedIntensity;
						($estimatedIntensity, $intensityVariant) = &calcSeismicIntensity($hinetMag, $hinetDep, $minDistance);
						$log .= sprintf("\t%.1f\t%.1f\t%.1f\t%.2f", $hinetMag, $hinetDep, ,$minDistance ,$estimatedIntensity);
						# 推定計測震度が0以上でかつ最大になるものを選ぶ
						if ($estimatedIntensity >= 0 && (!$estimatedMaxIntensity || $estimatedMaxIntensity < $estimatedIntensity)) {
							$estimatedMaxIntensity = $estimatedIntensity;
							$selectedHinetDataNum = $i;
						}
					}
				}
				# Hi-net 情報でひとつでも条件を満たすものがあれば、データを準備。
				# そうでなければデータ廃棄	
				if ($selectedHinetDataNum > -1) {
					my @hinetDataLine = split(/\n/, $hinetData[$selectedHinetDataNum]);						
					foreach (@hinetDataLine) {
						my ($key, $value) = split(/\t/, $_);
						$hinetData{$key} = $value;
					}
					
					# 最新震源情報の場合、時間が「震源時」なので、「発震時刻」にコピー
					if ($hinetData{"震源時"}) {
						$hinetData{"発震時刻"} = $hinetData{"震源時"};
					}
					
					unless (exists $hinetData{"震源地"}) {
						$hinetData{"震源地"} = "N/A";
					}
					# 深発地震かどうかチェック
					my $hinetMag = $hinetData{"マグニチュード"};
					my $hinetDep;
					if ($hinetData{"深さ"} =~ m!^([\d\.]+)!) {
						$hinetDep = $1;
					}
					if ($hinetMag >= 4 && $hinetDep >= 120) {
						$hinetData{'深発地震'} = 1;
					}
					$hinetData{'推定最大計測震度'} = sprintf("%.1f", $estimatedMaxIntensity);
					$hinetData{'推定計測震度誤差'} = sprintf("%.1f", $intensityVariant);
					($hinetLat, $hinetLon) = ($hinetData{"緯度"}, $hinetData{"経度"});
					if ($hinetLat =~ m/(\d+(?:\.\d+))/) {
						$hinetLat = $1;
					}
					if ($hinetLon =~ m/(\d+(?:\.\d+))/) {
						$hinetLon = $1;
					}
					# Hi-net の震源情報は世界測地系らしい。
					# http://www.hinet.bosai.go.jp/about_data/?page=p6
					# ($hinetLat_wgs84, $hinetLon_wgs84) = &Tokyo2wgs84($hinetLat, $hinetLon);
					($hinetLat_wgs84, $hinetLon_wgs84) = ($hinetLat, $hinetLon);
					$hinetLat_wgs84 = sprintf("%.3f", $hinetLat_wgs84);
					$hinetLon_wgs84 = sprintf("%.3f", $hinetLon_wgs84);
				}
				else {
					undef %hinetData;
				}
			}
		}
	}
		
	## 最新SVGデータを作成	
	my $latestSvg;      # 最新SVGデータ
	my @latestSvgProto; # 最新SVGデータのプロトタイプ
	open(LATEST_PROTO_SVG, "< $latestSvgProtoFile");
	flock(LATEST_PROTO_SVG, 1);
	@latestSvgProto = <LATEST_PROTO_SVG>;
	close(LATEST_PROTO_SVG);
	
	# 気象庁データがあれば最新イベントSVGプロトタイプに書き込み
	# 気象庁データがなく、Hi-netデータがあれば最新イベントSVGプロトタイプに書き込み
	if ($#jmaData > -1 || keys(%hinetData)) {
		my ($svgX, $svgY);
		my $latestSvgPoint; # 震源地図プロット部分
		my $latestSvgText;  # 震源テキスト部分
		
		if ($#jmaData > -1) {
			my $jmaData = $jmaData[0];
					
			# 震源地図プロット部分作成
			my $x = sprintf("%.2f", (3000 / 30) * ($jmaData->{'lon_Tokyo'} - 120) );
			my $y = sprintf("%.2f", 3000 - (3000 / (37.14318 * 2 / 3) * ($jmaData->{'lat_Tokyo'} - 22)) );
			($svgX, $svgY) = ($x, $y);
			my ($peke_UL, $peke_UR, $peke_DL, $peke_DR);
			my ($peke_ULx, $peke_ULy) = (sprintf("%.2f", $x - 12*cos(pi() / 4)), sprintf("%.2f", $y - 12*cos(pi() / 4)) );
			my ($peke_URx, $peke_URy) = (sprintf("%.2f", $x + 12*cos(pi() / 4)), sprintf("%.2f", $y - 12*cos(pi() / 4)) );
			my ($peke_DLx, $peke_DLy) = (sprintf("%.2f", $x - 12*cos(pi() / 4)), sprintf("%.2f", $y + 12*cos(pi() / 4)) );
			my ($peke_DRx, $peke_DRy) = (sprintf("%.2f", $x + 12*cos(pi() / 4)), sprintf("%.2f", $y + 12*cos(pi() / 4)) );
			my $xlinkTitle = encode("utf-8", decode("euc-jp", "グーグルマップで気象庁発表の震源地を見る"));
			
			$latestSvgPoint = <<HINET;
			<g id="hinet">
				<a xlink:href="http://maps.google.co.jp/maps?q=$jmaData->{'lat_wgs84'}+$jmaData->{'lon_wgs84'}&amp;t=k&amp;iwloc=A&amp;hl=ja" xlink:title="$xlinkTitle">
					<line x1="$peke_ULx" y1="$peke_ULy" x2="$peke_DRx" y2="$peke_DRy" stroke="gray"/>
					<line x1="$peke_URx" y1="$peke_URy" x2="$peke_DLx" y2="$peke_DLy" stroke="gray"/>
					<path d="M${x},${y} l-13,-30 l26,0 L${x},${y}z" stroke-width="1" fill="url(#rGrad_AF)" stroke="#D8FFFF" filter="url(#dropShadow)" />
				</a>
			</g>
HINET
	
			# 気象庁震源テキスト部分作成
			my $date = sprintf("%s/%02d/%02d %02d:%02d", substr($jmaData->{'year'}, -2), $jmaData->{'month'}, $jmaData->{'day'}, $jmaData->{'hour'}, $jmaData->{'minute'});
			if ($jmaData->{'second'}) {
				$date .= sprintf(":%02d", $jmaData->{'second'});
			}
			my $depText = $jmaData->{'dep'};
			if ($depText =~ m/^([0-9０１２３４５６７８９])+$/o) {
				$depText = $depText . "km";
			} 
			$latestSvgText .= <<TEXT;
				<text id="hinet_text" x="0" y="72">[JMA EQ Info.]
					<tspan x="0" dy="14.4">$date
						<tspan x="0" dy="14.4">Place $jmaData->{'place'}
							<tspan x="0" dy="14.4">Mag. M$jmaData->{'mag'}
								<tspan x="0" dy="14.4">Dep. $depText
									<tspan x="0" dy="14.4">最大震度 $jmaData->{'maxI'}
									</tspan>
								</tspan>
							</tspan>
						</tspan>
					</tspan>
				</text>
TEXT
			Encode::from_to($latestSvgText, "euc-jp", "utf-8");
		}
		elsif (keys(%hinetData)) {
			# Hinet地図プロット部分作成
			my ($hinetSvgX, $hinetSvgY);
			my $hinet_x = sprintf("%.2f", (3000 / 30) * ($hinetLon - 120) );
			my $hinet_y = sprintf("%.2f", 3000 - (3000 / (37.14318 * 2 / 3) * ($hinetLat - 22)) );
			($svgX, $svgY) = ($hinet_x, $hinet_y);
			my ($peke_UL, $peke_UR, $peke_DL, $peke_DR);
			my ($peke_ULx, $peke_ULy) = (sprintf("%.2f", $hinet_x - 12*cos(pi() / 4)), sprintf("%.2f", $hinet_y - 12*cos(pi() / 4)) );
			my ($peke_URx, $peke_URy) = (sprintf("%.2f", $hinet_x + 12*cos(pi() / 4)), sprintf("%.2f", $hinet_y - 12*cos(pi() / 4)) );
			my ($peke_DLx, $peke_DLy) = (sprintf("%.2f", $hinet_x - 12*cos(pi() / 4)), sprintf("%.2f", $hinet_y + 12*cos(pi() / 4)) );
			my ($peke_DRx, $peke_DRy) = (sprintf("%.2f", $hinet_x + 12*cos(pi() / 4)), sprintf("%.2f", $hinet_y + 12*cos(pi() / 4)) );
			my $hinetXlinkTitle = encode("utf-8", decode("euc-jp", "グーグルマップでHi-netの震源地を見る"));
			
			$latestSvgPoint = <<HINET;
			<g id="hinet">
				<a xlink:href="http://maps.google.co.jp/maps?q=${hinetLat_wgs84}+${hinetLon_wgs84}&amp;t=k&amp;iwloc=A&amp;hl=ja" xlink:title="$hinetXlinkTitle">
					<line x1="$peke_ULx" y1="$peke_ULy" x2="$peke_DRx" y2="$peke_DRy" stroke="gray"/>
					<line x1="$peke_URx" y1="$peke_URy" x2="$peke_DLx" y2="$peke_DLy" stroke="gray"/>
					<path d="M${hinet_x},${hinet_y} l-13,-30 l26,0 L${hinet_x},${hinet_y}z" stroke-width="1" fill="url(#rGrad_AF)" stroke="#D8FFFF" filter="url(#dropShadow)" />
				</a>
			</g>
HINET
		
			# Hinetテキスト部分作成
			my $hinetIntensityText;
			my $hinetDate;
			if ($hinetData{"深発地震"}) {
				$hinetIntensityText = "(深発地震)"
			}
			else {
				$hinetIntensityText = "(推定最大震度 $hinetData{'推定最大計測震度'}±$hinetData{'推定計測震度誤差'})";
			}
			if ($hinetData{"発震時刻"} =~ m!(\d{2})\D(\d{1,2})\D(\d{1,2})\s+(\d{1,2})\D(\d{1,2})\D(\d{1,2}(?:\.\d+)?)!) {
				$hinetDate = sprintf("%s/%02d/%02d %s:%02d:%.2f", $1, $2, $3, $4, $5, int($6 * 100 + 0.5) / 100);
			}
			$latestSvgText .= <<HINET_TEXT;
				<text id="hinet_text" x="0" y="72">[$hinetData{'title'}]
					<tspan x="0" dy="14.4">$hinetDate
						<tspan x="0" dy="14.4">Place $hinetData{"震源地"}
							<tspan x="0" dy="14.4">Mag. M$hinetData{"マグニチュード"}
								<tspan x="0" dy="14.4">Dep. $hinetData{"深さ"}
									<tspan x="0" dy="14.4">$hinetIntensityText
									</tspan>
								</tspan>
							</tspan>
						</tspan>
					</tspan>
				</text>
HINET_TEXT
			Encode::from_to($latestSvgText, "euc-jp", "utf-8");
		}
		# プロトタイプを読み出して置き換え
		foreach (@latestSvgProto) {
			if ($_ =~ m/<svg id="plot_main"/) {
				# プロット位置がviewBoxからはみださないよう修正
				if ($_ =~ m/^(.+?)viewBox="([^"]+)"(.+)$/) {
					my $tagPart1 = $1;
					my $tagPart2 = $3;
					my $viewBox = $2;
					my ($x, $y, $width, $height) = split(/\s/, $viewBox);
					if ($x > $svgX - 150) {
						my $oldx = $x;
						$x = $svgX - 150;
						if ($x < 0) {$x = 0;}
						$width = $oldx + $width - $x;
					}
					elsif ($x + $width < $svgX + 150) {
						$width = $svgX - $x + 150;
						if ($x + $width > 3000) {
							$width = 3000 - $x;
						}
					}
					if ($y > $svgY - 150) {
						my $oldy = $y;
						$y = $svgY - 150;
						if ($y < 0) {$y = 0;}
						$height = $oldy + $height - $y;
					}
					elsif ($y + $height < $svgY + 150) {
						$height = $svgY - $y + 150;
						if ($y + $height > 3000) {
							$height = 3000 - $y;
						}
					}
					$viewBox = join(" ", ($x, $y, $width, $height));
					$latestSvg .= ($tagPart1 . qq!viewBox="${viewBox}"! . $tagPart2);
				}
				else {
					$latestSvg .= $_;
				}
			}
			elsif ($_ =~ m/<!-- #hinet# -->/i) {
				$latestSvg .= $latestSvgPoint;
			}
			elsif ($_ =~ m!<g id="text_info_g"!) {
				$latestSvg .= sprintf(qq!	<g id="text_info_g" transform="translate(%d, %d)" filter="url(#dropShadow)">\n!, $event_map_width - 165, $event_map_height - 159);
			}
			elsif ($_ =~ m!<[^<]+id="text_info_back"!) {
				$latestSvg .= qq!		<rect id="text_info_back" x="-6" y="-2" width="162" height="153" rx="5" ry="6" fill="white" />\n!;
			}
			elsif ($_ =~ m!<svg id="text_info"!) {
				$latestSvg .= qq!		<svg id="text_info" width="165" height="159">\n!;
			}
			elsif ($_ =~ m/<!-- #hinet_text# -->/i) {
				$latestSvg .= $latestSvgText;
			}
			else {
				$latestSvg .= $_;
			}
		}
	}
	# もし気象庁とHi-netの震源データがなければ、SVGはプロトタイプのまま使う
	else {
		foreach (@latestSvgProto) {
			$latestSvg .= $_;
		}
	}
	# 最新SVGをファイルに書き込み
	open(LATEST_SVG, "+> $latestSvgPhpFile");
	flock(LATEST_SVG, 2);
	truncate(LATEST_SVG, 0);
	seek(LATEST_SVG, 0, 0);
	print LATEST_SVG $latestSvg;
	close(LATEST_SVG);
	
	## 最新PNGを作成
	# PNGプロトタイプ読み込み
	my $mapImage = Image::Magick->new;
	$mapImage->Read("$latest_proto_map_file");
	if (keys(%hinetData)) {
		# Hi-net震源地をプロット
		my $mapHinetLegend = Image::Magick->new;
		$mapHinetLegend->Read("$legendfiles{'Hinet'}");
		my $hinet_x = sprintf("%.2f", ($event_map_width / 30) * ($hinetLon - 120) - $mapHinetLegend->Get('columns') / 2);
		my $hinet_y = sprintf("%.2f", $event_map_height - ($event_map_height / (37.14318 * 2 / 3) * ($hinetLat - 22))  - $mapHinetLegend->Get('height') / 2);
		$mapImage->Composite(image=>$mapHinetLegend, compose=>'over', x=>$hinet_x, y=>$hinet_y);
		$mapHinetLegend = undef;
		# Hi-netテキストの作成
		my $hinetDate;
		if ($hinetData{"発震時刻"} =~ m!(\d{2}\D\d{1,2}\D\d{1,2}\s+\d{1,2}\D\d{1,2}\D)(\d{1,2}(\.\d+)?)!) {
			$hinetDate = $1 . sprintf("%02d", $2 + 0.5);
		}
		my $hinetTextImage = Image::Magick->new;
		$hinetTextImage->Set( size => "294x168" );
		$hinetTextImage->ReadImage( "xc:white" ); 
		my $hinetText = qq![$hinetData{'title'}]\n$hinetDate\n$hinetData{"震源地"}\nMag. M$hinetData{"マグニチュード"}\nDep. $hinetData{"深さ"}\n(推定最大震度 $hinetData{'推定最大計測震度'}±$hinetData{'推定計測震度誤差'})!;
		Encode::from_to($hinetText, 'euc-jp', 'utf-8');
		$hinetTextImage->Annotate(text=>$hinetText,x=>4, y=>(24 + 1), fill=>'black',pointsize=>24, encoding=>'UTF-8', font=>$mapFont);
		$mapImage->Composite(image=>$hinetTextImage, compose=>'over', x=>$event_map_width - (294 + 6), y=>$event_map_height - (6 + 86 + 168));
		undef $hinetTextImage;
	}
	
	# 書き出し
	$mapImage->Write("$latestImgFile");
	$mapImage = undef;

	
	## 出力ページを作成し出力
	
	# 出力ページ用震源テーブル作成
	if ($#jmaData > -1) {
		my $jmaData = $jmaData[0];
		my $jmaDate = sprintf("%s年%02d月%02d日 %02d時%02d分", substr($jmaData->{'year'}, -2), $jmaData->{'month'}, $jmaData->{'day'}, $jmaData->{'hour'}, $jmaData->{'minute'});
		if ($jmaData->{'second'}) {
			$jmaDate .= sprintf("%02d秒", $jmaData->{'second'});
		}
		else {
			$jmaDate .= "頃";
		}
		my $jmaDataLinkHtml;
		if ($jmaData->{'mapLink'} && $jmaData->{'tableLink'}) {
			$jmaDataLinkHtml = qq!（<a href="$jmaData->{'tableLink'}" target="_blank">各地の震度表</a>, <a href="$jmaData->{'mapLink'}" target="_blank">震度分布地図</a>）!;
		}
		elsif ($jmaData->{'link'}) {
			$jmaDataLinkHtml = qq!（<a href="$jmaData->{'link'}" target="_blank">各地の震度</a>）!;
		}
		my $depText = $jmaData->{'dep'};
		if ($depText =~ m/^([0-9０１２３４５６７８９])+$/o) {
			$depText = $depText . "km";
		} 
		$jmaDataHtml = <<JMA;
			<div class="each_content" id="JMAdata">
				<h2>気象庁の有感地震情報${jmaDataLinkHtml}<a href="http://maps.google.co.jp/maps?q=$jmaData->{'lat_wgs84'}+$jmaData->{'lon_wgs84'}&amp;t=k&amp;iwloc=A&amp;hl=ja" title="気象庁の震源地をグーグルマップで見る" target="_blank"><img alt="グーグルマップ" src="./googleMaps.gif" /></a></h2>
				<table summary="気象庁の有感地震情報での該当すると思われる地震">
					<tr><th>発震時刻</th><td>$jmaDate</td><th>マグニチュード</th><td>M$jmaData->{'mag'}</td></tr>
					<tr><th>震源地</th><td>$jmaData->{'place'}</td><th>深さ</th><td>${depText}</td></tr>
					<tr><th>緯度・経度</th><td class="geo"><a href="http://maps.google.co.jp/maps?q=$jmaData->{'lat_wgs84'}+$jmaData->{'lon_wgs84'}&amp;t=k&amp;iwloc=A&amp;hl=ja" title="気象庁の震源地をグーグルマップで見る" target="_blank"><abbr class="latitude" title="$jmaData->{'lat'}">$jmaData->{'lat'}°N</abbr> <abbr class="latitude" title="$jmaData->{'lon'}">$jmaData->{'lon'}°E</abbr></a></td><th>最大震度</th><td>$jmaData->{'maxI'}</td></tr>
				</table>
			</div>
JMA
	}
	if (keys(%hinetData)) {
		my $hinetDate = substr($hinetData{"発震時刻"}, 2);
		my $hinetMag;
		if ($hinetData{'title'} =~ m!AQUA!i) {
			$hinetMag = "Mw" . $hinetData{"マグニチュード"};
		}
		else {
			$hinetMag = "M" . $hinetData{"マグニチュード"};
		}
		
		my $hinetIntensityText;
		if ($hinetData{"深発地震"}) {
			$hinetIntensityText = "(深発地震)"
		}
		else {
			$hinetIntensityText = "$hinetData{'推定最大計測震度'}±$hinetData{'推定計測震度誤差'}";
		}
			
		my ($hinetThTime, $hinetThPlace, $hinetThMag, $hinetThLat, $hinetThLon, $hinetThLatLon, $hinetThDep);
		if ($hinetData{'title'} =~ m!AQUA!i) {
			$hinetThMag = "モーメントマグニチュード";
			if ($hinetData{'title'} =~ m!CMT!i) {
				($hinetThTime, $hinetThPlace, $hinetThLat, $hinetThLon, $hinetThLatLon, $hinetThDep) = 
					("セントロイド時刻", "セントロイド地名", "セントロイド緯度", "セントロイド経度", "セントロイド経度・経度", "セントロイド深さ");
			}
			else {
				($hinetThTime, $hinetThPlace, $hinetThLat, $hinetThLon, $hinetThLatLon, $hinetThDep) = 
					("発震時刻", "震源地", "緯度", "経度", "緯度・経度", "深さ");
			}
		}
		else {
			$hinetThMag = "マグニチュード";
			($hinetThTime, $hinetThPlace, $hinetThLat, $hinetThLon, $hinetThLatLon, $hinetThDep) = 
				("震源時", "震源地", "緯度", "経度", "緯度・経度", "深さ");
		}
		$hinetData = <<HINET;
			<div class="each_content" id="hinet_eq">
				<h2>Hi-net の該当地震（自動決定値＝誤差に注意）<a href="http://maps.google.co.jp/maps?q=${hinetLat_wgs84}+${hinetLon_wgs84}&amp;t=k&amp;iwloc=A&amp;hl=ja" title="Hi-netの震源地をグーグルマップで見る" target="_blank"><img alt="グーグルマップ" src="./googleMaps.gif" /></a></h2>
				<table summary="Hi-netでの該当すると思われる地震">
					<caption>($hinetData{'title'})</caption>
					<tr><th>$hinetThTime</th><td>$hinetDate</td><th>$hinetThMag</th><td>$hinetMag</td></tr>
					<tr><th>$hinetThPlace</th><td>$hinetData{"震源地"}</td><th>$hinetThDep</th><td>$hinetData{"深さ"}</td></tr>
					<tr><th>${hinetThLatLon}</th><td class="geo"><a href="http://maps.google.co.jp/maps?q=${hinetLat_wgs84}+${hinetLon_wgs84}&amp;t=k&amp;iwloc=A&amp;hl=ja" title="Hi-netの震源地をグーグルマップで見る" target="_blank"><abbr class="latitude" title="${hinetLat}">$hinetLat°N</abbr> <abbr class="latitude" title="${hinetLon}">$hinetLon°E</abbr></a></td><th style="font-weight:normal">推定最大震度<span class="kita_metainfo">※</span></th><td>$hinetIntensityText</td></tr>
				</table>
				<span class="kita_metainfo" style="color:gray">※推定最大震度はｷﾀｰ情報独自のものです。速報目的であり、不正確です。（<a href="./test/estimateSeismicIntensity.cgi">詳細</a>）</span>
			</div>
HINET
	}
	
	# 最終アクセス時刻HTML作成
	my $isLastAccessFailed;
	(undef, undef, undef, undef, $isLastAccessFailed, undef) = read_idx();
	my ${lastaccesstime_in_Japanese} = HTTP::Date::time2iso(str2time($lastaccesstime));
	if (${lastaccesstime_in_Japanese} =~ s/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)//) {
		${lastaccesstime_in_Japanese} = sprintf("%d年%d月%d日 %d時%02d分%02d秒", $1, $2, $3, $4, $5, $6);
		if ($isLastAccessFailed) {
			${lastaccesstime_in_Japanese} .= "<span class=\"AA\" style=\"color:red; margin-left:0.5em;\">㌧㌦(´･ω･`)</span>";
		}
	}

	# 出力ページ用イベントリストテーブル読み出し
	my $event_table;
	open(EVENT_TABLE, "< $event_table_file");
	flock(EVENT_TABLE, 1);
	while(<EVENT_TABLE>) {
		$event_table .= $_;
	}
	close(EVENT_TABLE);
	
	# 出力ページ用に内容を置き換えて出力
	open(RD_CACHE, "< $cachename") || die "$!";
	flock(RD_CACHE, 1);
	while (<RD_CACHE>) {
		$_ =~ s#<!-- lastaccesstime_in_Japanese -->#${lastaccesstime_in_Japanese}#;
		$_ =~ s#<!-- JMA_EQ_INFO -->#$jmaDataHtml#;
		$_ =~ s#<!-- Hi-net_EQ_INFO -->#$hinetData#;
		$_ =~ s#<!-- event_list_table -->#$event_table#;
		print;
	}
	close(RD_CACHE);

	print "<!-- LAST_ACCESS_TIME_$lastaccesstime -->\n";
	if ($isToAccessServer) {print "<!-- Server Accessed -->\n";}
	if ($is_use_cache) {print "<!-- Cache Used -->\n";}
	if (defined($server_response_time)) {print "\t<!-- サーバー応答まで:$server_response_time秒 -->\n";}
	if (defined($connection_time)) {print "\t<!-- 応答から通信終了まで:$connection_time秒 -->\n";}
	if (defined($res2geo_time)) {print "\t<!-- 地名抽出:$res2geo_time秒 -->\n";}
	if (defined($geo2xml_time)) {print "\t<!-- キャッシュ作成:$geo2xml_time秒 -->\n";}
	if (defined($request_header)) {print "<!-- REQUEST_HEADER\n$request_header -->\n";}
	if (defined($header)) {print "<!-- RESPONSE_HEADER\n$header -->";}
}
};
if ($@) {
	$log .= "\t$@";
}
#-- ここまで、htmlの出力

# 処理時間記録
$xml2print_time = time() - $starttime - ($geo2xml_time + $res2geo_time + $connection_time + $server_response_time);
$time = time() - $starttime;
my ($userCPUTime, $systemCPUTime) = (sprintf("%.2f", (times())[0]), sprintf("%.2f", (times())[1]));

#-- ログ保存:変数記録
$log = "$version\t$isToAccessServer\t$is_use_cache\t$status_code\t$time\t$server_response_time\t$connection_time\t$res2geo_time\t$geo2xml_time\t$xml2print_time\t$userCPUTime\t$systemCPUTime" . "\t$log" . "\t?$ENV{'QUERY_STRING'}";
&update_log();
#-- ログ保存:変数記録

###--- メインルーチン終了 ----
	
# インデックスファイルを読み込んで、最終アクセス時刻、受け取りバイト数、受け取りレス数を読み込み
sub read_idx {
	my ($lastaccesstime, $received_bytes, $res_num, $cachetime, $isAccessFailed, $etag);	
	if ( -e "$cacheidx" ) {
	  open (RD_IDX, "< $cacheidx") || die "$!";
	  my $line;
	  while ($line = <RD_IDX>) {
		if ($line =~ m/<!-- LAST_ACCESS_TIME_(.*?) --><!-- RECEIVED_BYTES_(\d*) --><!-- RES_NUM_(\d*) -->/) {
	      $lastaccesstime = "$1";
	      $received_bytes = $2;
	      $res_num = $3;
	    }
	    if ($line =~ m/<!-- DAT_MODIFIED_TIME_(.*?) -->/) {
	      $cachetime = $1;
	    }
	    if ($line =~ m/<!-- LAST_ACCESS_FAILED -->/) {
	      $isAccessFailed = 1;
	    }
	    if ($line =~ m/<!-- ETAG_(.*?) -->/) {
	      $etag = $1;
	    }
	  }
	}
	else {
	      $lastaccesstime = "";
	      $received_bytes = 0;
	      $res_num = 0;
	      $cachetime = "";
	      $isAccessFailed = 0;
	      $etag = "";
	}
	return ($lastaccesstime, $received_bytes, $res_num, $cachetime, $isAccessFailed, $etag);
}


# サーバーにアクセスして、datおよびインデックスを保存
sub access_server {
	my ($proxy_host, $proxy_port, $http);
	my ($host, $port, $path, $iaddr, $sockaddr);
	my $buf;
	my $pagecache;
	my $cachetime;
	
	${res_num_updated} = $res_num;
	
	# 最後にキャッシュした時刻を読み出し
	(undef, undef, undef, $cachetime, undef, $etag) = &read_idx();
	
	eval {
		local $SIG{ALRM} = sub { die "server time out" };
		alarm($server_wait_limit);
		
		# 最終アクセストライ時刻を更新
		$lastaccesstime = time2str(time());
		# HTTPプロトコルのバージョン
		$http = '1.1';
		# デフォルトホスト、ポート番号の設定
		$host = 'localhost';
		$port = getservbyname('http', 'tcp');	
		# URL解析
		$pageurl =~ m!(http:)?(//)?([^:/]*)?(:([0-9]+)?)?(/.*)?!;
		if ($3) {$host = $3;}
		if ($5) {$port = $5;}
		if ($6) {$path = $6;}
		# ソケット作成用に変数を変換
		$iaddr = inet_aton($host) || die "No such host.\n";
		$sockaddr = pack_sockaddr_in($port, $iaddr);
		# ソケットの作成
		socket(S, PF_INET, SOCK_STREAM, 0) || die "Can't create socket error.\n";
		connect(S, $sockaddr) || die "Can't connect host '$host' port '$port'.\n";
		binmode(S);
		select(S); $| = 1; select(STDOUT);
		# リクエストヘッダ送信
		$request_header .= "GET $path HTTP/1.1\n";
		$request_header .= "Host: $host\n";
		# 2chでは、レス更新されても、Last-Modified-Time が新しい時刻にならないことがあるので
		# If-Modified-Since の送信はとりやめ（Ver.0.41 2007/11/30)
		# if ($cachetime) {
		#	$request_header .= "If-Modified-Since: $cachetime\n";
		#}
		if ($etag) {
			$request_header .= "If-None-Match: $etag\n";
		}
		if ($received_bytes) {
			$request_header .= sprintf("Range: bytes=%s-\n", $received_bytes - 1);
		}
		$request_header .= "User-Agent: Monazilla/1.00 (kita_map/$version)\n";
		$request_header .= "Connection: close\n\n";
		
		print S "$request_header";
		
		# 受け取り部分
		# もし、規定時間以内に通信が終わらなければ、打ち切ってキャッシュを使う。
		
		$buf = <S>;
		if ($buf =~ m!(\d{3})!) {$status_code = "$1";}
		
		# サーバーレスポンスまでの時間
		$server_response_time = time() - $starttime;
		
		# 200|206未受け取りのレスがあるときは、キャッシュを更新する
		if ($status_code =~ m/200|206/) {
		  my $contentLength;
		  my ($new_datModifiedTime, $new_etag, $new_received_bytes) = ($datModifiedTime, $etag, $received_bytes);
		  
		  $is_use_cache = 0;
		  $header .= $buf;
		  
		  while ($buf=<S>) {
		    $header .= $buf;
		    if ($buf =~ m!^Date: ([^\r\n]+)!) {$lastaccesstime = $1;}
		    if ($buf =~ m!^Last-Modified: ([^\r\n]+)!) {$new_datModifiedTime = $1;}
		    if ($buf =~ m!^ETag: ([^\r\n]+)!) {$new_etag = $1;}
		    if ($buf =~ m!^Content-Length: (\d*)!i) {$contentLength = $1; $new_received_bytes += $contentLength;}
		    if ($buf =~ m!^[\r\n]!) {last;}
		  }
		  # もしcontent-lengthを送っていた場合、本文の第1行が"\n"で無かった場合、削除があったとみなす
		  if ($status_code == "206") {
			  $buf = <S>;
			  if ($buf != "\n") {$is_reload_dat = 1;}
			  # チェック用の1バイト分だけ余計に足しているので、引いておく
			  $new_received_bytes -= 1;
			  $contentLength -= 1;
		  }
	  	  while ($buf=<S>) {
		  	push (@dat, $buf);
		    $pagecache .= $buf;
		    ${res_num_difference}++;
		  }
		  # もし1レスも更新されなければ、キャッシュを使う
		  if (${res_num_difference} == 0) {$is_use_cache = 1;} 
		  alarm(0);
	  	# ローカルのdatfileに保存
	  	# このとき同時にインデックス用の変数を更新
	  	  $log .= "\tCL-PC:" . ($contentLength - length($pagecache)) . "\tCL:" . $contentLength . "\tPC:" . length($pagecache);
		  if ($pagecache && length($pagecache) == $contentLength) {
			open (WR_DAT, ">> $dat_file") || die "$!";
			print WR_DAT $pagecache;
			close(WR_DAT);
		    ${res_num_updated} = $res_num + ${res_num_difference};
		    ($datModifiedTime, $etag, $received_bytes) = ($new_datModifiedTime, $new_etag, $new_received_bytes);
		  }
		  elsif (length($pagecache) == 0) {
			$is_use_cache = 1;
		  }
		  else {
			$log .= "\tserver access error: real content length doesn't match the HTTP header";
			$errorLog .= "＜サーバーアクセス失敗（isFailedToAccess）＞\n";
			$errorLog .= "server access error: real content length doesn't match the HTTP header\n";
			$isFailedToAccess = 1;
			$is_use_cache = 1;
		  }
		}
		# 302移転/dat落ちがあったかものときは、次スレ検索してやり直し。
		elsif ($status_code =~ m/302/) {
		  	alarm(0);
		  	# 次スレ検索
			# 次スレが見つかれば、スレッドを移行してアクセス
			$dat_num = &search_next_thread();
			if ($dat_num) {
				($received_bytes, $res_num) = (0, 0);
				$cachetime = "";
				open(WR_DAT_NUM, "+> $dat_num_file");
				flock(WR_DAT_NUM, 2);
				seek(WR_DAT_NUM, 0, 0);
				print WR_DAT_NUM $dat_num;
				truncate(WR_DAT_NUM, tell(WR_DAT_NUM));
				close(WR_DAT_NUM);
				&dat_num_setting("$dat_num");
				$is_reload_dat = 1;
			}
			# 次スレが見つからなければ、キャッシュを利用
			else {
	    		$isToAccessServer = 0;
				$is_use_cache = 1;
			}
		}
		# 304更新なしのときには、キャッシュを使い、最終アクセス時間のみ更新
		elsif ($status_code =~ m/304/) {
		  $is_use_cache = 1;
		  $header .= $buf;
		  while ($buf=<S>) {
		    $header .= $buf;
		    if ($buf =~ m!^Date: ([^\r\n]+)!) {$lastaccesstime = $1;}
		    if ($buf =~ m!^ETag: ([^\r\n]+)!) {$etag = $1;}
		    if ($buf =~ m!^[\r\n]!) {last;}
		  }
		  if ($cachetime) { 
		  	$datModifiedTime = $cachetime;
		  }
		  alarm(0);
		}
		# 416削除があったかものときは、datキャッシュを破棄して、読み込みなおす
		elsif ($status_code =~ m/416/) {
		  	alarm(0);
			$is_reload_dat = 1;
		}
		# 200|206|302|304|416以外の場合は、サーバーエラーを出力する
		else {
			while ($buf=<S>) {
		    	$header .= $buf;
				$errorLog .= $buf;
		    	if ($buf =~ m!^[\r\n]!) {last;}
			}
			while ($buf=<S>) {
		    	$pagecache .= $buf;
				$errorLog .= $buf;
			}
		    if ($cachetime) { 
		  	  $datModifiedTime = $cachetime;
		    }
			alarm(0);
			$is_use_cache = 1;
			# サーバーアクセスのエラーログ
			$errorLog .= "＜サーバーアクセスエラー＞\n";
			$errorLog .= "サーバーが落ちてる？ or 板が移転？ or 単なるバグ？\n\n";
			$errorLog .= "2chサーバーへのおつかい票\n";
			$errorLog .= $request_header;
			$errorLog .= "2chサーバーからのお返事\n";
			$errorLog .= "STATUS_CODE:$status_code\n";
			$errorLog .= $header;
			$errorLog .= "$pagecache\n";	
		}
	};
	alarm(0);
	if ($@ =~ /server time out/) {
		$log .= "\t$@";
		$errorLog .= "＜サーバーアクセス失敗（isFailedToAccess）＞\n";
		$errorLog .= "$@\n";
		$isFailedToAccess = 1;
		$is_use_cache = 1;
	}
	elsif ($@) { 
		$log .= "\tserver access $@";
		$errorLog .= "＜サーバーアクセス失敗（isFailedToAccess）＞\n";
		$errorLog .= "$@\n";
		$isFailedToAccess = 1;
		$is_use_cache = 1;
	}
	# ソケット破棄
	close(S);
	
	# サーバーアクセス失敗時は、最終アクセス試行時刻以外を更新しない
	if ($isFailedToAccess) {
		(undef, $received_bytes, ${res_num_updated}, $datModifiedTime, undef, $etag) = &read_idx();
		# サーバーアクセスのエラーログ
		$errorLog .= "2chサーバーへのおつかい票\n";
		$errorLog .= $request_header;
		$errorLog .= "2chサーバーからのお返事\n";
		$errorLog .= "STATUS_CODE:$status_code\n";
		$errorLog .= $header;
		$errorLog .= "$pagecache\n";
	}
	
	# 最後にアクセスした時間と受け取ったバイト数、レス数を記録
	open(WR_IDX, "> $cacheidx");
	print WR_IDX "<!-- LAST_ACCESS_TIME_$lastaccesstime --><!-- RECEIVED_BYTES_$received_bytes --><!-- RES_NUM_${res_num_updated} --><!-- DAT_MODIFIED_TIME_$datModifiedTime --><!-- ETAG_$etag -->";
	if ($isFailedToAccess) {
		print WR_IDX "<!-- LAST_ACCESS_FAILED -->";
	}
	close(WR_IDX);
	
	# レスポンスから通信終了までの時間を記録
	$connection_time = time() - $starttime - $server_response_time;
	# 受け取りログ
	open (WR_DAT_ACCESS_CONTENT_LOG, "> $datAccessContentLog_file") || die "$!";
	print WR_DAT_ACCESS_CONTENT_LOG $request_header;
	print WR_DAT_ACCESS_CONTENT_LOG $header;
	if ($pagecache) {print WR_DAT_ACCESS_CONTENT_LOG $pagecache;}
	close(WR_DAT_ACCESS_CONTENT_LOG);
}

# 次スレ検索
sub search_next_thread {
	my %nominated_dat;     # 候補となるスレッド。dat番号=>レス数
	my $chosen_dat_num;    # 選び出した次スレのdat番号
	
	# subject.txtの受け取り
	my @subject = split(/\n/, &get_subject_txt()); # 1120353018.dat<>地震ｷﾀ━━━(((ﾟ∀ﾟ)))━━━!!153  (756)
	
	# 候補となるスレッドの検索
	foreach my $regex (@kita_thread_regex) {
		foreach (@subject) {
			my($dat_num, $thread_title) = split(/<>/, $_);
			$dat_num =~ s/^([^.]+)\.dat$/$1/; 
			# まだ取得していない dat番号のスレッドのみ調べる
			if (! -f "./dat/${dat_num}.dat") {
				# もし、スレッドタイトルが適合すれば、
				if ($thread_title =~ /${regex}.+?\(\d+\)/) {
					# まず、投稿数を調べる
					my $posted_res_num;
					if ($thread_title =~ /\((\d+)\)$/) {
						$posted_res_num = $1;
					}
					# ソート用準備
					$nominated_dat{"$dat_num"} = $posted_res_num;
				}
			}
		}
		if (keys(%nominated_dat)) {last;}
	}
	
	# 候補が見つかれば、その中から一番レスが多いものを選ぶ
	# レスが同数なら、先に立ったほうを選ぶ
	if (keys(%nominated_dat)) {
		my $max_posted_res_num;
		foreach my $dat_num (sort {$nominated_dat{$b} <=> $nominated_dat{$a}} keys(%nominated_dat)) {
			if (!$max_posted_res_num) {
				$max_posted_res_num = $nominated_dat{$dat_num};
			}	
			if ($nominated_dat{$dat_num} == $max_posted_res_num) {
				if (!$chosen_dat_num || $chosen_dat_num > $dat_num) {
					$chosen_dat_num = $dat_num;
				}
			}
			else {
				last;
			}
		}
	}
	if ($chosen_dat_num) {return($chosen_dat_num);}
	else {return("0");}
}

# subject.txtを受信する
sub get_subject_txt {
	my $subject;
	my $pageurl = "http://$board_domain/$board_directory/subject.txt";
	my ($proxy_host, $proxy_port, $http);
	my ($host, $port, $path, $iaddr, $sockaddr);
	my $header;
	my $buf;
	
	# HTTPプロトコルのバージョン
	$http = '1.1';
	# デフォルトホスト、ポート番号の設定
	$host = 'localhost';
	$port = getservbyname('http', 'tcp');	
	# URL解析
	$pageurl =~ m!(http:)?(//)?([^:/]*)?(:([0-9]+)?)?(/.*)?!;
	if ($3) {$host = $3;}
	if ($5) {$port = $5;}
	if ($6) {$path = $6;}
	# ソケット作成用に変数を変換
	$iaddr = inet_aton($host) || die "No such host.\n";
	$sockaddr = pack_sockaddr_in($port, $iaddr);
	# ソケットの作成
	socket(S, PF_INET, SOCK_STREAM, 0) || die "Can't create socket error.\n";
	connect(S, $sockaddr) || die "Can't connect host '$host' port '$port'.\n";
	binmode(S);
	select(S); $| = 1; select(STDOUT);
	# リクエストヘッダ送信
	print S "GET $path HTTP/1.1\n";
	print S "Host: $host\n";
	print S "User-Agent: Monazilla/1.00 (kita_map/$version)\n";
	print S "Connection: close\n\n";
	
	# 受け取り部分
	# もし、規定時間以内に通信が終わらなければ、打ち切ってキャッシュを使う。
	eval {
		local $SIG{ALRM} = sub { die "server time out" };
		alarm($server_wait_limit);
		while ($buf=<S>) {
		    $header .= $buf;
		    if ($buf =~ m!^[\r\n]!) {last;}
		}
		while ($buf=<S>) {
			$subject .= $buf;
		}
		alarm(0);
	};
	alarm(0);
	if ($@ =~ /server time out/) {
		$log .= "get subject.txt $@";
		$is_use_cache = 1;
	}
	elsif ($@) { 
		$log .= "get subject.txt $@";
		$is_use_cache = 1;
	}       
	close(S);
	# 文字コード変換
	Encode::from_to($subject, "shiftjis", "euc-jp");
	return($subject);
}

# 地名抽出キャッシュから、htmlファイルを生成
sub geocache2html {
	# 地名抽出レスのテーブルタグ作成と、画像の生成
	my $geo_table;   # 抽出レスのテーブルタグ
	my $event_table; # イベントレスのテーブルタグ
	my $event_list_rss;   # イベントリストのRSS
	my %event_data;  # イベントデータ
	
	# 地名キャッシュの読み込み
	my @geocache;
	
	opendir(DAT_DIR, "./dat/");
	my @geocache_file = sort {$b cmp $a} grep {/\d+.geocache/ && -f "./dat/$_"} readdir(DAT_DIR);
	closedir(DAT_DIR);
	
	for (my $i = 0; $i < $geocache_use_num && $i < ($#geocache_file + 1) ; $i++) {
		open(RD_GEOCACHE, "./dat/$geocache_file[$i]");
		@_ = <RD_GEOCACHE>;
		push(@geocache, @_);
		close(RD_GEOCACHE);
	}
	# 時間順で地名キャッシュをソートしておく
	@geocache = sort {(split(/\t/, $a))[3] cmp (split(/\t/, $b))[3]} @geocache;
	
	
	## ｷﾀｰ祭りイベントの開始レス番号、終了レス番号を抽出
	# （予定）イベントが最後に終了して以降の抽出レスのみをチェック
    my @res_time;
	my @res_IDs;
	my %event;    # イベント開始行番号\tイベント終了行番号\t継続中どうか(0|1)
	
	for (my $j = 0; $j < ($#geocache + 1); $j++) {
		# キャッシュの中身 : "dat番号\tレス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";	
		if ($geocache[$j] =~ m!(\d+)\t(\d+)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t[^\r\n]+!) {
			($res_time[$j], $res_IDs[$j]) = ($4, $5);
		}
	}
	
	# イベント発生判定の流れ
	# １．ｷﾀｰ!!レスの速度に応じて、重複IDを省きながら、条件にしたがってイベント発生を判定
	# ２．あまりにも離れすぎている地点でのレスを、イベント内容レスから省く
	# ３．２の結果、必要レス数を下回った場合、イベント発生を取り消し
	
	my $last_event_time;
	my $event_extension = 0;
	my $event_extension_time = $event_threshold_time * 2;
	my $event_speed_count_res = $event_res_count;
	for (my $j = 0; $j < ($#geocache + 1); $j++) {
		# まだ終了していないイベントがあれば、
		if ($last_event_time) {
			# もし、直前のイベント発生時刻から、イベント継続時間以上たっていたら、
			if ($res_time[$j] - $last_event_time > $event_duration + $event_extension_time * $event_extension) {
				# イベントを終了するか、継続するか判定する。
				# 継続条件：イベント終了時刻以前の一定時間$event_extension_time内に、
				# 一定$event_speed_count_res以上のｷﾀｰレスが存在し、
				# なおかつ、延長したときに延長時間中にｷﾀｰレスが一つでも存在する場合、イベントを継続する。
				# ただし、延長したときにイベント限界時間$event_duration_limitを超える場合は、終了とする。
				#	printf("%s\n%s\n%s\n%s\n%s\n", $j - $event_speed_count_res, $res_time[$j - $event_speed_count_res] - $last_event_time, $event_duration + $event_extension_time * ($event_extension - 1), $res_time[$j] - $last_event_time, $event_duration + $event_extension_time * ($event_extension + 1));
				if ($j - $event_speed_count_res >= 0 && 
				  $res_time[$j - $event_speed_count_res] - $last_event_time > $event_duration + $event_extension_time * ($event_extension - 1) && 
				  $res_time[$j] - $last_event_time <= $event_duration + $event_extension_time * ($event_extension + 1) &&
				  $event_duration + $event_extension_time * ($event_extension + 1) <= $event_duration_limit) {
					$event_extension++;
				#	print "extension : $event_extension\n";
				}
				else {
				#	print "not extension : $event_extension\n";
					# 終了する場合、一つ前がそのイベントの終了レスなので記録する。
					if ($event{"$last_event_time"} =~ m/^\d+$/) {
						$event{"$last_event_time"} .= sprintf("\t%s\t0", $j);
						$event_extension = 0;
						$last_event_time = 0;
					}				
				}
			}
		}
		# イベントが発生していなければ、イベント開始レスである可能性を調べる。
		if (!$last_event_time && ($j + $event_res_count - 1) < ($#geocache + 1) ) {
			# もし、イベント判定時間内にｷﾀｰ系レスが規定個数以上あれば、イベント発生の可能性がある
			if (($res_time[$j + $event_res_count - 1] - $res_time[$j]) <= $event_threshold_time) {
				# IDの重複を抜いて、IDが規定個数出たときを調べて、それがイベント判定時間内かどうかを調べる
				my %appeared_IDs;
				my $appeared_IDs_num = 0; # 重複を抜いて数えたIDの数
				for (my $k = $j; $k < ($#geocache + 1); $k++) {
					# もし、既出でないIDならば、ハッシュに出現登録して、出現したIDの数に1を加える。
					unless ($appeared_IDs{"$res_IDs[$k]"}) {
						$appeared_IDs{"$res_IDs[$k]"} = 1;
						$appeared_IDs_num++;
					}
					# はじめてIDの数が規定個数出たときに、イベント判定時間内ならば、
					# イベント発生とみなす。そうでなければ、イベントは発生していない。
					if ($appeared_IDs_num == $event_res_count) {
						if (($res_time[$k] - $res_time[$j]) <= $event_threshold_time) {
							$last_event_time = $res_time[$j];
							$event{"$last_event_time"} = sprintf("%s", $j + 1);
						}
						last;
					}
				}
			}
		}
	}
	# もし、最後に発生したイベントが終了していないときには、
	# 発生から イベント継続時間＋イベント継続判定時間$event_extension_time が経っていたら、
	# イベントは最後のｷﾀｰ!!レスで終了したとみなす。
	if ($event{"$last_event_time"} && $event{"$last_event_time"} =~ m/^\d+$/) {
		if ( (str2time($lastaccesstime) - $last_event_time) > ($event_duration + ($event_extension_time * $event_extension) + $event_extension_time) ) {
			$event{"$last_event_time"} .= sprintf("\t%s\t0", $#geocache + 1);
		}
		else {
			$event{"$last_event_time"} .= sprintf("\t%s\t1", $#geocache + 1);
		}
	}
	
	# イベント発生時間が、新たに読み込んだｷﾀｰ!!レスのうち一番早いものよりも
	# イベント限界時間$event_duration_limit以上前ならば、すでにそのイベントは変更がない。（更新しない）。
	# ただし、新たなｷﾀｰ!!レスが無いならば、無条件で変更が無い。
	foreach my $event_time (keys(%event)) {
		my $is_event_fixed;
		# printf("%s\n", HTTP::Date::time2iso($earliest_kita_res_time));
		if (!$earliest_kita_res_time) {
			$is_event_fixed = 1;
		}
		else {
			if ($event_time < $earliest_kita_res_time - $event_duration_limit) {
				$is_event_fixed = 1;
			}
			else {
				$is_event_fixed = 0;
			}
		}
		
		# 過去データを読み込んだdat分全てもう一度作るモードのとき
		if ($isMakePastDataMode) {
			$is_event_fixed = 0;
		}
		$event{$event_time} .= "\t$is_event_fixed";
	}
	
	my $is_event_active;
	my $is_latest_event = 1;
	foreach my ${event_time} (sort {$b <=> $a} keys(%event)) {
		my ($event_start_geocache_line_num, $event_end_geocache_line_num, $is_event_active, $is_event_fixed) = split(/\t/, $event{"${event_time}"});
		# イベントの地方名とｷﾀｰレス数の取得
		my ($event_placename, $event_scale, $event_duplicated_ID_geocache_line_num, $event_far_off_geocache_line_num) = &get_event_info($event_start_geocache_line_num, $event_end_geocache_line_num, @geocache);
		# 離れすぎ判定の結果、イベント開始時間がずれるときを考慮
		my $event_time_fixed = $event_time;
		my @event_far_off_geocache_line_num = split(/,/, $event_far_off_geocache_line_num);
		if ($#event_far_off_geocache_line_num > -1) {
			for (my $i = 1; $i < $#event_far_off_geocache_line_num + 2; $i++) {
				if ($event_far_off_geocache_line_num[$i - 1] == $event_start_geocache_line_num + $i - 1) {
					$event_time_fixed = (split(/\t/, $geocache[$event_start_geocache_line_num + $i]))[3];
					next;
				}
				else {
					last;
				}
			}
		}
		# ｷﾀｰ!!数が閾値を下回っていた場合、イベントはなかったことにする
		if ($event_scale < $event_res_count) {
			delete $event{$event_time};
			next;
		}
		# イベントリストの作成
		# 進行中のイベントであれば、イベントリスト内で強調表示し、リンクもトップCGIにする
		if ($is_event_active) {
			$event_data{"$event_time_fixed"} = $event_data{"$event_time"} . "\t$event_start_geocache_line_num\t$event_end_geocache_line_num\t$event_duplicated_ID_geocache_line_num\t$event_far_off_geocache_line_num\t$event_scale\t$cgi_filename\t$is_event_active\t$is_latest_event\t$is_event_fixed"; # 地方名\t開始行番号\t終了行番号\t重複IDの行番号\t離れすぎな地点の行番号\t規模\t相対パス\tアクティブか\t一番最近か\t確定しているか
		}
		else {
			$event_data{"$event_time_fixed"} = $event_data{"$event_time"} . "\t$event_start_geocache_line_num\t$event_end_geocache_line_num\t$event_duplicated_ID_geocache_line_num\t$event_far_off_geocache_line_num\t$event_scale\tevent?time=${event_time}\t$is_event_active\t$is_latest_event\t$is_event_fixed"; # 地方名\t開始行番号\t終了行番号\t重複IDの行番号\t離れすぎな地点の行番号\t規模\t相対パス\tアクティブか\t一番最近か\t確定しているか
		}
		if ($event_time_fixed != $event_time) {
			delete($event_data{"$event_time"});
		}
		$is_latest_event = 0;
	}
	
	sub get_event_info {
		my ($event_start_geocache_line_num, $event_end_geocache_line_num, @geocache) = @_;
		my @res_IDs;
		my %appeared_IDs;
		my @res_lon;
		my @res_lat;
		my %event_duplicated_ID_geocache_line_num;
		my @event_far_off_geocache_line_num;
		my ($event_placename, $event_scale, $event_duplicated_ID_geocache_line_num, $event_far_off_geocache_line_num,);
		for (my $j = 0; $j < $event_end_geocache_line_num - $event_start_geocache_line_num + 1; $j++) {
			# キャッシュの中身 : "dat番号\レス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";	
			if ($geocache[$j + $event_start_geocache_line_num - 1] =~ m!(\d+)\t(\d+)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t[^\r\n]+!) {
				$res_IDs[$j] = $5;
				$res_lon[$j] = $6 / 36000;
				$res_lat[$j] = $7 / 36000;
			}
			# 既出のIDなら、重複IDの行番号を記録
			if (exists($appeared_IDs{"$res_IDs[$j]"})) {
				$event_duplicated_ID_geocache_line_num{$j + $event_start_geocache_line_num} = 1;
			}
			# 初出のIDなら、IDを記録して、ID数に1を加える
			else {
				$appeared_IDs{"$res_IDs[$j]"} = 1;
			}
		}
		# あまりにも自分以外の全地点からの距離が離れすぎている場合、far_off判定として行番号を記録
		# なお、自分と同一地点は、他に報告があっても「近くに報告がある」と認めない
		for (my $j = 0; $j < $event_end_geocache_line_num - $event_start_geocache_line_num + 1; $j++) {
			if ($event_duplicated_ID_geocache_line_num{$j + $event_start_geocache_line_num}) {next;}
			my $isFarOff = 1;
			for (my $k = 0; $k < $event_end_geocache_line_num - $event_start_geocache_line_num + 1; $k++) {
				my $limitDistance = $limitDistance;
				# 限界距離を、以下の場合伸ばす
				# ・北緯30°以南の場合（離島修正）2倍
				# ・北緯41.5°以北の場合（北海道修正）1.5倍
				if ($res_lat[$j] < 30 || $res_lat[$k] < 30) {
					$limitDistance = $limitDistance * 2;
				}
				elsif ($res_lat[$j] > 41.5 || $res_lat[$k] > 41.5) {
					$limitDistance = $limitDistance * 1.5;
				}
				if ($j == $k) {next;}
				elsif ($event_duplicated_ID_geocache_line_num{$k + $event_start_geocache_line_num}) {next;}
				elsif ($res_lat[$j] == $res_lat[$k] && $res_lon[$j] == $res_lon[$k]) {next;}
				elsif (&geoCalcDistance($res_lat[$j], $res_lon[$j], $res_lat[$k], $res_lon[$k]) < $limitDistance) {
					$isFarOff = 0;
					last;
				}
			}
			if ($isFarOff) {
				push(@event_far_off_geocache_line_num, $j + $event_start_geocache_line_num);
			}
		}
		$event_scale = keys(%appeared_IDs);
		$event_scale -= ($#event_far_off_geocache_line_num + 1);
		$event_placename = "";
		$event_duplicated_ID_geocache_line_num = join(",", keys(%event_duplicated_ID_geocache_line_num));
		$event_far_off_geocache_line_num = join(",", @event_far_off_geocache_line_num);
		return($event_placename, $event_scale, $event_duplicated_ID_geocache_line_num, $event_far_off_geocache_line_num);
	}
	
	### イベントリストXML・テーブルおよびイベントXML・HTML作成 ###

	## イベントRSSとイベントページ・画像を書き出し ##
	
	# イベントRSSは、まだ非確定のものは全て削除しておく
	opendir(DIR, "./");
	my @eventXmlFile = grep {/event_\d{9,10}(?:\.\d+|)\.xml/i && -f "./$_"} readdir(DIR);
	if ($earliest_kita_res_time) {
		foreach my $eventXmlFile (@eventXmlFile) {
			if ($eventXmlFile =~ m/event_(\d{9,10}(?:\.\d+|))\.xml/i) {
				my $eventTime = $1;
				if ($eventTime > $earliest_kita_res_time - $event_duration_limit) {
					unlink("./$eventXmlFile");
				}
			}
		}
	}
	closedir(DIR);
	
	foreach my ${event_time} (keys(%event_data)) {
		my ($event_placename, $event_start_geocache_line_num, $event_end_geocache_line_num, $event_duplicated_ID_geocache_line_num,  $event_far_off_geocache_line_num, $event_scale, $event_relative_path, $is_event_active, $is_latest_event, $is_event_fixed) = split(/\t/, $event_data{"$event_time"});
		my $event_map_file = "./images/event_${event_time}.gif";
		my $event_rss_file = "./event_${event_time}.xml";
		if ($is_latest_event || !$is_event_fixed) {
			&event2html(${event_time}, $event_placename, $event_start_geocache_line_num, $event_end_geocache_line_num, $event_duplicated_ID_geocache_line_num, $event_far_off_geocache_line_num, $event_scale, $event_relative_path, $event_map_file, $event_rss_file, $is_event_active, $is_latest_event, $is_event_fixed, $event_table, @geocache);
		}
	}
	
	## イベントリストRSSと、イベントリストテーブルタグ書き出し
	
	# イベントリストテーブルタグ書き出し
	($event_list_rss, $event_table) = &makeEventListTable(10, undef, undef);

	open(WR_EVENT_TABLE, "+> $event_table_file");
	flock(WR_EVENT_TABLE, 2);
	seek(WR_EVENT_TABLE, 0, 0);
	print WR_EVENT_TABLE $event_table;
	truncate(WR_EVENT_TABLE, tell(WR_EVENT_TABLE));
	close(WR_EVENT_TABLE);
	
	open(WR_EVENT_RSS_CACHE, "+> $event_list_rss_cachename");
	flock(WR_EVENT_RSS_CACHE, 2);
	seek(WR_EVENT_RSS_CACHE, 0, 0);
	print WR_EVENT_RSS_CACHE $event_list_rss;
	truncate(WR_EVENT_RSS_CACHE, tell(WR_EVENT_RSS_CACHE));
	close(WR_EVENT_RSS_CACHE);

	### ここまで・イベントリストXML・テーブルおよびイベントXML・HTML作成 ##
	
# イベントのHTMLを出力する
	sub event2html {
		my (${event_time}, $event_placename, $event_start_geocache_line_num, $event_end_geocache_line_num, $event_duplicated_ID_geocache_line_num, $event_far_off_geocache_line_num, $event_scale, $event_relative_path, $event_map_file, $event_rss_file, $is_event_active, $is_latest_event, $is_event_fixed, $event_table, @geocache) = @_;
		
		## スキップすべき、重複IDや離れすぎな地点を含む行を調べるために、ハッシュ作成
		my %is_event_skip_geocache_line_num; 
		my @is_event_far_off_geocache_line_num;
		foreach my $line_num (split(/,/, $event_duplicated_ID_geocache_line_num)) {
			$is_event_skip_geocache_line_num{$line_num} = 1;
		}
		foreach my $line_num (split(/,/, $event_far_off_geocache_line_num)) {
			$is_event_skip_geocache_line_num{$line_num} = 1;
		}
		
		my $firstReportedPlace; # 第一報告地点
		for (my $j = $event_start_geocache_line_num - 1; $j < $event_end_geocache_line_num; $j++) {
			if (!$is_event_skip_geocache_line_num{sprintf("%s", $j + 1)}) {
		  		$firstReportedPlace = (split(/\t/, $geocache[$j]))[2];
		  		last;
			}
			else {
				next;
			}
		}
		
		my $reportedArea; # 発生範囲
		my %prefScale; # 都道府県別の発生数
		my %districtScale; # 広域行政区別の発生数
		for (my $j = $event_start_geocache_line_num - 1; $j < $event_end_geocache_line_num; $j++) {
			if (!$is_event_skip_geocache_line_num{sprintf("%s", $j + 1)}) {
		  		my $kita_res_placename = (split(/\t/, $geocache[$j]))[2];
		  		my @chars = $kita_res_placename =~ /$ascii|$twoBytes|$threeBytes/og;
		  		my $length = @chars;
		  		my $kita_res_prefID;
		  		if ($length >= 4) {$kita_res_prefID = (split(/\t/, $place_4up{$kita_res_placename}))[3];}
		  		elsif ($length == 3) {$kita_res_prefID = (split(/\t/, $place_3{$kita_res_placename}))[3];}
		  		elsif ($length == 2) {$kita_res_prefID = (split(/\t/, $place_2{$kita_res_placename}))[3];}
		  		elsif ($length == 1) {$kita_res_prefID = (split(/\t/, $place_1{$kita_res_placename}))[3];}
		  		$prefScale{$kita_res_prefID}++;
		  		$districtScale{$prefDistrict{$kita_res_prefID}}++;
			}
		}
		
		my $event_map;  # イベント地図画像
		my $event_map_kita; # プロットのみの画像
		my %event_legends; # 凡例画像たち
		my $eventMapSVG;
		my $eventMapSVG_kita;
		my $eventMapSVG_kita_text;
		my $eventMapSVG_legend;
		# ｷﾀー報告プロットの色分けの境界値（秒）
		# 第一報告地点の報告時刻（＝イベント発生時刻）からの時間ごとに、色分けする
		my @eventMapSVG_kita_class_limit = (30, 60, 120, 240);
		
		my $eventMapSVG_defs  = "\t\t<defs>\n";
		
		$eventMapSVG_defs .= qq!\t\t\t<radialGradient id="rGrad_RB" cx="70%" cy="30%" gradientUnit="objectBoundingBox">\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(0, 0.8, 255) . qq!" offset="0" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(0, 0, 255) . qq!" offset="1" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t</radialGradient>\n!;
		
		$eventMapSVG_defs .= qq!\t\t\t<radialGradient id="rGrad_OB" cx="70%" cy="30%" gradientUnit="objectBoundingBox">\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(30, 0.8, 255) . qq!" offset="0" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(30, 0, 255) . qq!" offset="1" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t</radialGradient>\n!;
		
		$eventMapSVG_defs .= qq!\t\t\t<radialGradient id="rGrad_YB" cx="70%" cy="30%" gradientUnit="objectBoundingBox">\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(60, 0.8, 250) . qq!" offset="0" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(60, 0, 250) . qq!" offset="1" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t</radialGradient>\n!;
				
		$eventMapSVG_defs .= qq!\t\t\t<radialGradient id="rGrad_GB" cx="70%" cy="30%" gradientUnit="objectBoundingBox">\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(120, 0.8, 255) . qq!" offset="0" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(120, 0, 187) . qq!" offset="1" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t</radialGradient>\n!;
		
		$eventMapSVG_defs .= qq!\t\t\t<radialGradient id="rGrad_BB" cx="70%" cy="30%" gradientUnit="objectBoundingBox">\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(240, 0.8, 255) . qq!" offset="0" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t\t<stop stop-color="#! . &getColorCode(240, 0, 255) . qq!" offset="1" />\n!;
		$eventMapSVG_defs .= qq!\t\t\t</radialGradient>\n!;
		
		$eventMapSVG_defs .= <<DEFS;
			<linearGradient id="rGrad_AF" x1="50%" y1="0%" x2="50%" y2="100%" gradientUnit="objectBoundingBox">
				<stop stop-color="#66FFFF" offset="0" />
				<stop stop-color="#0033FF" offset="0.95" />
				<stop stop-color="#FFFFFF" offset="1" />
			</linearGradient>
			<filter id="dropshadow">
				<feGaussianBlur in="SourceAlpha" result="bokasi" stdDeviation="2" />
				<feOffset in="bokasi" result="kage" dx="4" dy="3" />
				<feMerge>
                	<feMergeNode in="kage" />
                    <feMergeNode in="SourceGraphic" />
                </feMerge>
            </filter>
		</defs>
DEFS
		my ($max_svg_x, $min_svg_x, $max_svg_y, $min_svg_y);
		my ($svg_viewbox_x, $svg_viewbox_y, $svg_viewbox_width, $svg_viewbox_height);
		my $eventMapSVGFile = "./images/event_${event_time}.svg.php";
		my $event_res_html;  # イベントの地名抽出レス本文
		my $event_geo_table; # イベントの地名抽出HTMLテーブル
		my $event_far_off_geo_table; # イベントの地名抽出HTMLテーブル
		my ${event_time_in_Japanese};
		my $event_time_fraction = "";
		if ($event_time =~ /(\.\d+)$/) {
			$event_time_fraction = $1;
		}
		
		# イベント用画像に背景読み込み
		$event_map = Image::Magick->new;
		$event_map->Set(size=>"750x750");
		$event_map->Read("$bgmapfile");
		# イベントプロット用画像作成
		$event_map_kita = Image::Magick->new;
		$event_map_kita->Set(size=>"750x750");	
		$event_map_kita->Read('xc:transparent');
		# 凡例の画像読み込み
		foreach my $key (keys(%legendfiles)) {
			my $legend = Image::Magick->new;
			$legend->Read("$legendfiles{$key}");
			$event_legends{"$key"} = $legend;
		}
		
		# SVG用のDEFSを代入
		$eventMapSVG_kita .= $eventMapSVG_defs;

		# イベント中のｷﾀｰ!!レスのHTMLテーブル作成と凡例画像の描画
		my $kita_report_rank = 0; # ｷﾀｰ報告した順番
		for (my $j = $event_start_geocache_line_num - 1; $j < $event_end_geocache_line_num; $j++) {
			# スキップすべき報告地点でなければ
			unless ($is_event_skip_geocache_line_num{sprintf("%s", $j + 1)}) {
				$kita_report_rank++;
				# キャッシュの中身 : "dat番号\tレス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";	
				my ($kita_res_dat_num, $kita_res_num, $kita_res_placename, $kita_res_time, $kita_res_ID, $kita_res_X, $kita_res_Y, $kita_res_content) = split(/\t/, $geocache[$j]);
				my ${kita_res_time_in_Japanese} = HTTP::Date::time2iso($kita_res_time);
				my $kita_res_time_fraction = "";
				if ($kita_res_time =~ /(\.\d+)$/) {
					$kita_res_time_fraction = $1;
				}
				if (${kita_res_time_in_Japanese} =~ s/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)//) {
					${kita_res_time_in_Japanese} = sprintf("%d月%d日 %d時%02d分%s" . $kita_res_time_fraction . "秒", $2, $3, $4, $5, $6);
				}
				if ($kita_res_content =~ m!^(.*?)<>(.*?)<>(.*?)<>(.*?)<>.*?$!) {
					if ($2) {
						$kita_res_content = "$kita_res_num ：<a href=\"mailto:$2\"><b>$1</b></a>：$3<br />$4";
					}
					else {
						$kita_res_content = "$kita_res_num ：<b>$1</b>：$3<br />$4";
					}
				}
				$kita_res_content =~ s!<br>!<br />!g;
				# 地名レス一覧作成
				$event_res_html .= "\t<li>${kita_res_content}</li>\n";
				# 地名レスデータテーブル作成
				$event_geo_table .= "\t<tr><td class=\"dat_num\">$kita_res_dat_num</td><td class=\"res_num\">$kita_res_num</td><td class=\"res_time\">${kita_res_time_in_Japanese}</td><td class=\"res_placename\">$kita_res_placename</td><td class=\"res_ID\">$kita_res_ID</td></tr>\n";
				# 画像に凡例をプロット
				my ($x, $y);
				$x = int(
					(($event_map->Get('columns') / 30) * ($kita_res_X / 36000 - 120))
					 - ($event_legends{'1'}->Get('columns') / 2)
				);
				$y = int(
					($event_map->Get('height')
							- ($event_map->Get('height') / (37.14318 * 2 / 3) * ($kita_res_Y / 36000 - 22)))
					 - ($event_legends{'1'}->Get('height') / 2)
 				);
				$event_map_kita->Composite(image=>$event_legends{'1'}, compose=>'DstOver', x => $x, y => $y);
				
				# SVG画像に凡例をプロット
				$x = sprintf("%.2f", (3000 / 30) * ($kita_res_X / 36000 - 120) );
				$y = sprintf("%.2f", 3000 - (3000 / (37.14318 * 2 / 3) * (($kita_res_Y / 36000) - 22)) );
				# 最大値最小値を記録
				if (!$max_svg_x) {$max_svg_x = $x;} elsif ($max_svg_x < $x) {$max_svg_x = $x;}
				if (!$min_svg_x) {$min_svg_x = $x;} elsif ($min_svg_x > $x) {$min_svg_x = $x;}
				if (!$max_svg_y) {$max_svg_y = $y;} elsif ($max_svg_y < $y) {$max_svg_y = $y;}
				if (!$min_svg_y) {$min_svg_y = $y;} elsif ($min_svg_y > $y) {$min_svg_y = $y;}
				
				# 先にプロットされた点が上になるように、降順で並べる
				
				my $kita_res_duration_time = ${kita_res_time} - ${event_time};
				my $kita_res_base_color_code;
				my $kita_res_stop_color_code;
				my $kita_res_base_color_saturation;
				
				if ($kita_res_duration_time < 60) {
					$kita_res_base_color_saturation = 255;
					$kita_res_base_color_code = &getColorCode($kita_res_duration_time, 0, $kita_res_base_color_saturation);
					$kita_res_stop_color_code = &getColorCode($kita_res_duration_time, 0.8, 255);
				}
				elsif (60 <= $kita_res_duration_time and $kita_res_duration_time < 120) {
					$kita_res_base_color_saturation = 255 - 68 / 60 * ($kita_res_duration_time - 60);
					$kita_res_base_color_code = &getColorCode($kita_res_duration_time, 0, $kita_res_base_color_saturation);
					$kita_res_stop_color_code = &getColorCode($kita_res_duration_time, 0.8, 255);
				}
				elsif (120 <= $kita_res_duration_time and $kita_res_duration_time < 180) {
					$kita_res_base_color_saturation = 255 - 68 / 60 * (180 - $kita_res_duration_time);
					$kita_res_base_color_code = &getColorCode($kita_res_duration_time, 0, $kita_res_base_color_saturation);
					$kita_res_stop_color_code = &getColorCode($kita_res_duration_time, 0.8, 255);
				}
				elsif (180 <= $kita_res_duration_time and $kita_res_duration_time < 240) {
					$kita_res_base_color_saturation = 255;
					$kita_res_base_color_code = &getColorCode($kita_res_duration_time, 0, $kita_res_base_color_saturation);
					$kita_res_stop_color_code = &getColorCode($kita_res_duration_time, 0.8, 255);
				}
				else {
					$kita_res_base_color_saturation = 255;
					$kita_res_base_color_code = &getColorCode(240, 0, $kita_res_base_color_saturation);
					$kita_res_stop_color_code = &getColorCode(240, 0.8, 255);
				}
				
				if ($kita_report_rank == 1) {
					$eventMapSVG_kita = qq!\t\t<circle id="kita_res_$kita_report_rank" cx="$x" cy="$y" r="13"!
									  . qq! stroke-width="2" fill="url(#rGrad_kita_res_$kita_report_rank)" stroke="#FFFFFF" />\n!
									  . $eventMapSVG_kita;
				}
 				else {
					$eventMapSVG_kita = qq!\t\t<circle id="kita_res_$kita_report_rank" cx="$x" cy="$y" r="11"!
									  . qq! stroke-width="0.5" fill="url(#rGrad_kita_res_$kita_report_rank)" stroke="#!
									  . &getColorCode($kita_res_duration_time, 0.8, 255)
									  . qq!" />\n!
									  . $eventMapSVG_kita;
 				}

 				$eventMapSVG_kita = <<SVG;
		<def>
			<radialGradient id="rGrad_kita_res_$kita_report_rank" cx="70%" cy="30%" gradientUnit="objectBoundingBox">
				<stop stop-color="#$kita_res_stop_color_code" offset="0" />
				<stop stop-color="#$kita_res_base_color_code" offset="1" />
			</radialGradient>
		</def>
$eventMapSVG_kita
SVG

 				# 各地点の右上にテキスト
 					$eventMapSVG_kita_text = qq!\t\t<text class="res" visibility="hidden" !
										. sprintf(qq!x="%.2f" y="%.2f">%s\n!, $x + 10, $y - 10, $kita_res_placename)
										. qq!\t\t\t<set attributeName="visibility" to="visible" !
										. qq!begin="kita_res_$kita_report_rank.mouseover" fill="remove" />\n!
										. qq!\t\t\t<set attributeName="visibility" to="hidden" !
										. qq!begin="kita_res_$kita_report_rank.mouseout" fill="remove" />\n!
										. qq!\t\t</text>\n!
										. $eventMapSVG_kita_text;
			}
		}
		
		$eventMapSVG_kita .= <<HINET;
		<!-- #hinet# -->
HINET
		# SVGの表示範囲を決定する
		($svg_viewbox_x, $svg_viewbox_y) = ($min_svg_x - 150, $min_svg_y - 150);
		if ($svg_viewbox_x < 0) {$svg_viewbox_x = 0;}
		if ($svg_viewbox_y < 0) {$svg_viewbox_y = 0;}
		($svg_viewbox_width, $svg_viewbox_height) = ($max_svg_x - $svg_viewbox_x + 150, $max_svg_y - $svg_viewbox_y + 150);
		if ($svg_viewbox_x + $svg_viewbox_width  > 3000) {$svg_viewbox_width  = 3000 - $svg_viewbox_x;}
		if ($svg_viewbox_y + $svg_viewbox_height > 3000) {$svg_viewbox_height = 3000 - $svg_viewbox_y;}
		# SVGのヘッダ書き込み
		$eventMapSVG .= <<SVG_HEAD;
<?php
ob_start("ob_gzhandler");
header("Content-type: image/svg+xml");
print <<<SVG
<?xml version="1.0" encoding="utf-8" ?>
<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<style type="text/css"><![CDATA[
* {
	font-family:Osaka, "MS PGothic", serif;
	font-size:12px;
	letter-spacing:0.5px;
}
.res {
	font-size:36px;
	fill  :black;
	stroke:white;
	stroke-width:1;
}
.AA {
	font-family:"MS PGothic", Mona, Osaka, serif;
}
]]></style>
	<svg id="plot_main" width="$event_map_width" height="$event_map_height" viewBox="$svg_viewbox_x $svg_viewbox_y $svg_viewbox_width $svg_viewbox_height">
	
SVG;

SVG_HEAD

		$eventMapSVG .= "include(\"./bgmap.svg.php\");\n";
		$eventMapSVG .= "print <<<SVG\n";
		$eventMapSVG .= $eventMapSVG_kita;
		$eventMapSVG .= $eventMapSVG_kita_text;
		$eventMapSVG .= "\t</svg>\n";

		# SVGに凡例を付加
		$eventMapSVG_legend = sprintf(qq!\t<g id="legend" transform="translate(%d, %d)">\n!, 12, $event_map_height - 6 - 18);
		$eventMapSVG_legend .= <<SVG_LEGEND;
		<defs>
			<linearGradient id="lGrad_legend" x1="0%" y1="0%" x2="100%" y2="0%" gradientUnit="objectBoundingBox">
				<stop stop-color="#FF0000" offset="0" />
				<stop stop-color="#FFFF00" offset="0.25" />
				<stop stop-color="#00BB00" offset="0.5" />
				<stop stop-color="#00FFFF" offset="0.75" />
				<stop stop-color="#0000FF" offset="1" />
			</linearGradient>
		</defs>
		<rect id="legend_back" x="-6" y="-10" width="416" height="26" rx="5" ry="6" fill="white" />
		<g id="legend_bar">
			<rect x="0" y="-6" width="380" height="6" rx="5" ry="3" fill="url(#lGrad_legend)" stroke-width="0.5" stroke="#000000" />
			<line x1="98"  y1="-5.5" x2="92" y2="-0.5" stroke-width="0.3" stroke="#666666" />
			<line x1="193" y1="-5.5" x2="187" y2="-0.5" stroke-width="0.3" stroke="#666666" />
			<line x1="288" y1="-5.5" x2="282" y2="-0.5" stroke-width="0.3" stroke="#666666" />
			<text x="0"   y="13" color="#CCCCCC">第一報告</text>
			<text x="85"  y="13" color="#CCCCCC">60秒後</text>
			<text x="175" y="13" color="#CCCCCC">120秒後</text>
			<text x="268" y="13" color="#CCCCCC">180秒後</text>
			<text x="356" y="13" color="#CCCCCC">240秒～</text>
		</g>
	</g>
SVG_LEGEND

#		<rect id="legend_back" x="-6" y="-2" width="415" height="16" rx="5" ry="6" fill="white" />
#		<g transform="translate(4, 0)">
#		<circle id="kita_res_legend_report_rank1" cx="6" cy="6" r="6.5" stroke-width="1" fill="url(#rGrad_RB)" stroke="#FFFFFF" />
#		<text x="15.5" y="10.2">第一報告地点</text>
#		<circle id="kita_res_legend_report_rank2" cx="111" cy="6" r="6" stroke-width="0.5" fill="url(#rGrad_OB)" stroke="#FFFFFF" />
#		<text x="119" y="10.2">$eventMapSVG_kita_class_limit[0]秒</text>
#		<circle id="kita_res_legend_report_rank3" cx="184" cy="6" r="6" stroke-width="0.5" fill="url(#rGrad_YB)" stroke="#FFFFFF" />
#		<text x="192" y="10.2">$eventMapSVG_kita_class_limit[1]秒</text>
#		<circle id="kita_res_legend_report_rank4" cx="256" cy="6" r="6" stroke-width="0.5" fill="url(#rGrad_GB)" stroke="#FFFFFF" />
#		<text x="264" y="10.2">$eventMapSVG_kita_class_limit[2]秒</text>
#		<circle id="kita_res_legend_report_rank5" cx="336" cy="6" r="6" stroke-width="0.5" fill="url(#rGrad_BB)" stroke="#FFFFFF" />
#		<text x="344" y="10.2">$eventMapSVG_kita_class_limit[3]秒～</text>
#		</g>
		
		$eventMapSVG .= $eventMapSVG_legend;
		
		# SVGに概要情報を付加
		# SVGのテキスト用に日付フォーマット変換
		my $event_svg_date = HTTP::Date::time2iso($event_time);
		if ($event_svg_date =~ s/\d{2}(\d{2})-(\d+)-(\d+) (\d+):(\d+):(\d+)//) {
			$event_svg_date = sprintf("%02d/%02d/%02d %02d:%02d:%02d" . $event_time_fraction, $1, $2, $3, $4, $5, $6);
		}
		$eventMapSVG .= sprintf(qq!\t<g id="text_info_g" transform="translate(%d, %d)" filter="url(#dropShadow)">\n!, $event_map_width - 165, $event_map_height - 60);
		$eventMapSVG .= <<SVG_TEXT;
		<rect id="text_info_back" x="-6" y="-2" width="162" height="52" rx="5" ry="6" fill="white" />
		<svg id="text_info" width="165" height="60">
			<text x="0" y="14.4">[EQ <tspan class="AA">ｷﾀ━(((ﾟ∀ﾟ)))━!!</tspan> Info.]
				<tspan x="0" dy="14.4">${event_svg_date}
					<tspan x="0" dy="14.4">Scale : ${event_scale}${event_scale_unit}
SVG_TEXT
		if ($is_event_active) {$eventMapSVG .= "<!-- #IS_ACTIVE# -->";} 
		$eventMapSVG .= <<SVG_TEXT;
					</tspan>
				</tspan>
			</text>
			<!-- #hinet_text# -->
		</svg>
	</g>
SVG_TEXT

		$eventMapSVG .= "</svg>\n";
		$eventMapSVG .= "SVG;\n";
		
		# イベント地図にプロット画像を重ねる
		$event_map->Composite(image=>$event_map_kita, compose=>"over", x => 0, y => 0);
		# サイズ圧縮
		$event_map->Scale(width=>"${event_map_width}", height=>"${event_map_height}");
		# テキスト画像を重ねる
		my $eventMapTextImage = Image::Magick->new;
		$eventMapTextImage->Set( size => "294x86" );
		$eventMapTextImage->ReadImage( "xc:white" ); 
		my $eventMapText = qq%[EQ ｷﾀ━(((ﾟ∀ﾟ)))━!! Info.]\n${event_svg_date}\nScale : ${event_scale}${event_scale_unit}%;
		Encode::from_to($eventMapText, 'euc-jp', 'utf-8');
		$eventMapTextImage->Annotate(text=>$eventMapText,x=>4, y=>(24 + 1), fill=>'black',pointsize=>24, encoding=>'UTF-8', font=>$mapFont);
		$event_map->Composite(image=>$eventMapTextImage, compose=>'over', x=>$event_map_width - (294 + 6), y=>$event_map_height - (86 + 6));
		undef $eventMapTextImage;
		# できた画像をファイルに出力
		$event_map->Write(filename=>"$event_map_file");
		$event_map_kita = undef;
		
		# できたSVGをファイル出力
		Encode::from_to($eventMapSVG, "euc-jp", "utf-8");
		open(WR_SVG, "> ${eventMapSVGFile}") or die "can't open ${eventMapSVGFile}";
		print WR_SVG $eventMapSVG;
		close(WR_SVG);
		if (-e "./images/event_${event_time}.svg") {unlink("./images/event_${event_time}.svg");}
		
		# 地名レス一覧の完成
		$event_res_html = <<RES_HTML;
<ul class="bbs_res">
	$event_res_html
</ul>
RES_HTML

		# 地名テーブルの完成
		$event_geo_table = <<GEO_TABLE;
<table summary="地名抽出されたｷﾀ━!!レス" class="geo_table">
	<tr><th class="dat_num">dat番号</th><th class="res_num">レス番</th><th abbr="時刻" class="res_time">ｷﾀ━!!報告時刻</th><th class="res_placename">地名</th><th abbr="ID" class="res_ID">レスID</th></tr>
	$event_geo_table
</table>
GEO_TABLE
		
		# 離れすぎ地名テーブル作成
		foreach my $line_num (sort(split(/,/, $event_far_off_geocache_line_num))) {
			# キャッシュの中身 : "dat番号\tレス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";	
			my ($kita_res_dat_num, $kita_res_num, $kita_res_placename, $kita_res_time, $kita_res_ID, $kita_res_X, $kita_res_Y, $kita_res_content) = split(/\t/, $geocache[$line_num - 1]);
			my ${kita_res_time_in_Japanese} = HTTP::Date::time2iso($kita_res_time);
			my $kita_res_time_fraction = "";
			if ($kita_res_time =~ /(\.\d+)$/) {
				$kita_res_time_fraction = $1;
			}
			if (${kita_res_time_in_Japanese} =~ s/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+(?:\.\d+|))//) {
				${kita_res_time_in_Japanese} = sprintf("%d月%d日 %d時%02d分%02d" . $kita_res_time_fraction . "秒", $2, $3, $4, $5, $6);
			}
			# 地名レス一覧作成
			$event_far_off_geo_table .= qq!\t<tr>!;
			$event_far_off_geo_table .= qq!<td class="dat_num">$kita_res_dat_num</td>!;
			$event_far_off_geo_table .= qq!<td class="res_num">$kita_res_num</td>!;
			$event_far_off_geo_table .= qq!<td class="res_time">${kita_res_time_in_Japanese}</td>!;
			$event_far_off_geo_table .= qq!<td class="res_placename">$kita_res_placename</td>!;
			$event_far_off_geo_table .= qq!<td class="res_ID">$kita_res_ID</td>!;
			$event_far_off_geo_table .= qq!</tr>\n!;
		}
		# 地名テーブルの完成
		if ($event_far_off_geo_table) {
			$event_far_off_geo_table = <<GEO_TABLE;
<table summary="他の地点よりも離れすぎなｷﾀ━!!レス" class="geo_table">
	<tr><th class="dat_num">dat番号</th><th class="res_num">レス番</th><th abbr="時刻" class="res_time">ｷﾀ━!!報告時刻</th><th class="res_placename">地名</th><th abbr="ID" class="res_ID">レスID</th></tr>
	$event_far_off_geo_table
</table>
GEO_TABLE
		}
		
		### イベント発生RSSを作成
		my $event_rss;
		# RSS date用に時間を変換
		my $event_rss_date = HTTP::Date::time2iso($event_time);
		$event_rss_date =~ s/\s/T/;
		if ($event_time =~ /(\.\d+)$/) {
			$event_rss_date .= $1;
		}
		$event_rss_date .= "+09:00";
		# 日本語表示用に時間を変換
		${event_time_in_Japanese} = HTTP::Date::time2iso($event_time);
		if (${event_time_in_Japanese} =~ s/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)//) {
			${event_time_in_Japanese} = sprintf("%d年%d月%d日 %d時%02d分%02d" . $event_time_fraction . "秒", $1, $2, $3, $4, $5, $6);
		}
		
		$event_rss .= <<EVENT_RSS;
<?xml version="1.0" encoding="utf-8" ?>
<?xml-stylesheet type="text/xsl" href="$event_xslt" ?>
<rdf:RDF
  xmlns="http://purl.org/rss/1.0/"
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xmlns:content="http://purl.org/rss/1.0/modules/content/"
  xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#"
  xml:lang="ja">
	<channel rdf:about="$cgi_directory_URL$event_rss_file">
		<title>地震ｷﾀｰ!!情報 (${event_time_in_Japanese} ${event_scale}${event_scale_unit})</title>
		<link>$cgi_directory_URL$event_relative_path</link>
		<description>２ちゃんねる臨時地震板での、体感による地震発生報告情報です。</description>
		<dc:language>ja</dc:language>
		<dc:contributor>地震ｷﾀ━!!プロジェクト＠２ちゃんねる地震板</dc:contributor>
		<dc:date>$event_rss_date</dc:date>
	<items>
		<rdf:Seq>
EVENT_RSS

		for (my $j = $event_start_geocache_line_num - 1; $j < $event_end_geocache_line_num; $j++) {
			# スキップすべき点でなければ
			unless ($is_event_skip_geocache_line_num{sprintf("%s", $j + 1)}) {
				# キャッシュの中身 : "dat番号\tレス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";	
				my ($kita_res_dat_num, $kita_res_num, $kita_res_placename, $kita_res_time, $kita_res_ID, $kita_res_X, $kita_res_Y, $kita_res_content) = split(/\t/, $geocache[$j]);
				$event_rss .= "\t\t\t<rdf:li rdf:resource=\"http://$board_domain/test/read.cgi/$board_directory/$kita_res_dat_num/$kita_res_num\"/>\n";
			}
		}
		
		$event_rss .= <<EVENT_RSS;
		</rdf:Seq>
	</items>
	</channel>
EVENT_RSS

		for (my $j = $event_start_geocache_line_num - 1; $j < $event_end_geocache_line_num; $j++) {
			# スキップすべき点でなければ
			unless ($is_event_skip_geocache_line_num{sprintf("%s", $j + 1)}) {
				# キャッシュの中身 : "dat番号\tレス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";
				my ($kita_res_dat_num, $kita_res_num, $kita_res_placename, $kita_res_time, $kita_res_ID, $kita_res_X, $kita_res_Y, $kita_res_content) = split(/\t/, $geocache[$j]);
				my $kita_res_URL = "http://$board_domain/test/read.cgi/$board_directory/$kita_res_dat_num/$kita_res_num";
				# RSS date用に時間を変換
				my $kita_res_rss_date = HTTP::Date::time2iso($kita_res_time);
				$kita_res_rss_date =~ s!\s!T!;
				if ($kita_res_time =~ /(\.\d+)$/) {
					$kita_res_rss_date .= $1;
				}
				$kita_res_rss_date .= "+09:00";
				# RSS content:encoded用に中身をread.cgiと似た書式にする
				# html形式と違い、タグを閉じなければいけない。
				# 名前<>メール欄<>日付、ID<>本文<>スレタイトル(1行目のみ存在する)\n
				# レス番号 ：<b>名前</b>：日付、ID<dd>本文
				# レス番号 ：<a href="mailto:メール欄"><b>名前</b></a>：日付、ID<dd>本文
				my $kita_res_rss_content;
				if ($kita_res_content =~ m!^(.*?)<>(.*?)<>(.*?)<>(.*?)<>.*?$!) {
					if ($2) {
						$kita_res_rss_content = "$kita_res_num ：<a href=\"mailto:$2\"><b>$1</b></a>：$3<br />$4";
					}
					else {
						$kita_res_rss_content = "$kita_res_num ：<b>$1</b>：$3<br />$4";
					}
				}
				$kita_res_rss_content =~ s!<br>!<br />!g;
				$event_rss .= <<EVENT_RSS;
		<item rdf:about="$kita_res_URL">
			<title>地震ｷﾀ━!!＠$kita_res_placename</title>
			<link>$kita_res_URL</link>
			<description />
			<content:encoded><![CDATA[$kita_res_rss_content]]></content:encoded>
			<dc:date>$kita_res_rss_date</dc:date>
EVENT_RSS
				$event_rss .= sprintf("			<geo:lat>%.7f</geo:lat>\n", (&Tokyo2wgs84($kita_res_Y / 36000, $kita_res_X / 36000))[0]);
				$event_rss .= sprintf("			<geo:long>%.7f</geo:long>\n", (&Tokyo2wgs84($kita_res_Y / 36000, $kita_res_X / 36000))[1]);
				$event_rss .= <<EVENT_RSS;
		</item>
EVENT_RSS
			}
		}
		
	$event_rss .= <<EVENT_RSS;
</rdf:RDF>
EVENT_RSS
		
		Encode::from_to($event_rss , "euc-jp", "utf8");

		open(EVENT_RSS, "+> $event_rss_file") or $errorLog .= "Can't open    : $!\t";
		flock(EVENT_RSS, 2) or $errorLog .= "Can't flock    : $!\t";
		seek(EVENT_RSS, 0, 0) or $errorLog .= "Can't seek    : $!\t";
		print EVENT_RSS $event_rss or $errorLog .= "Can't print    : $!\t";
		truncate(EVENT_RSS, tell(EVENT_RSS)) or $errorLog .= "Can't truncate    : $!\t";
		close(EVENT_RSS);
		
		### イベントHTMLを作成
		## ver.0.21からイベントページの表示はevent.phpに移行したので、この処理は不要。
		
#		# 日本語表示用に時間を変換
#		${event_time_in_Japanese} = HTTP::Date::time2iso($event_time);
#		if (${event_time_in_Japanese} =~ s/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)//) {
#			${event_time_in_Japanese} = sprintf("%d年%d月%d日 %d時%02d分%02d秒", $1, $2, $3, $4, $5, $6);
#		}
#		# イベント発生URLを列挙
#		my @event_threadURL;
#		my %event_thread_dat_num;
#		for (my $j = $event_start_geocache_line_num - 1; $j < $event_end_geocache_line_num; $j++) {
#			# スキップすべき点でなければ
#			unless ($is_event_skip_geocache_line_num{sprintf("%s", $j + 1)}) {
#				# キャッシュの中身 : "dat番号\tレス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";	
#				my ($kita_res_dat_num, $kita_res_num, $kita_res_placename, $kita_res_time, $kita_res_ID, $kita_res_X, $kita_res_Y, $kita_res_content) = split(/\t/, $geocache[$j]);
#				$event_thread_dat_num{$kita_res_dat_num} = 1;
#			}
#		}
#		@event_threadURL = keys(%event_thread_dat_num);
#		foreach (@event_threadURL) {
#			$_ =~ s!(.+)!http://$board_domain/test/read.cgi/$board_directory/$1/!;
#		}
#		
#		
#		open(EVENT_HTML, "> $event_relative_path");
#		print EVENT_HTML <<HTML;
#<?php echo('<?xml version="1.0" encoding="euc-jp"?>\n'); ?>
#<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
#<html xmlns="http://www.w3.org/1999/xhtml" lang="ja" xml:lang="ja">
#	<head>
#		<meta http-equiv="Content-Type" content="text/html; charset=euc-jp" />
#		<link rel="stylesheet" type="text/css" href="./kita.css" />
#		<link rel="alternate" type="application/rss+xml" title="地震ｷﾀｰ!!情報 (${event_time_in_Japanese} ${event_scale}${event_scale_unit})のRSS" href="$event_rss_file" />
#		<link rev="made" href="mailto:$mailAddress" />
#		<title>地震ｷﾀｰ!!情報 (${event_time_in_Japanese} ${event_scale}${event_scale_unit})</title>
#	</head>
#	<!-- DAT_MODIFIED_TIME_$datModifiedTime -->
#	<body>
#	<div class="contents">
#		<div class="sidebar_l" id="kita_left">
#			<div class="each_content">
#				<?php include("${event_table_file}"); ?>
#				<a href="./$cgi_filename?mode=list_rss"><img alt="イベントリストのRSS" title="イベントリストのRSS" src="./RSS.png" width="39" height="20" /></a>
#			</div>
#				<?php include("${link_div_file}"); ?>
#		</div>
#		<div class="main_contents" id="kita_main">
#			<h1>地震ｷﾀ━!!情報<span class="kita_metainfo">＠２ちゃんねる臨時地震板</span> <span class="kita_metainfo">${event_time_in_Japanese}発表</span></h1>
#			<div class="each_content">
#				<table id="event_elements" summary="地震ｷﾀ━!!報告情報">
#				<tr><th>発生時刻</th><td>${event_time_in_Japanese}</td></tr>
#				<!-- <tr><th>発生地</th><td></td></tr> -->
#				<tr><th>規模</th><td>${event_scale}${event_scale_unit}</td></tr>
#				</table>
#				<object data="$eventMapSVGFile" type="image/svg+xml" width="${event_map_width}" height="${event_map_height}">
#					<img alt="地震ｷﾀ━!!報告分布地図" src="$event_map_file" width="${event_map_width}" height="${event_map_height}" />		
#				</object>
#			</div>
#			<div class="each_content">
#				<h2><span class="AA">ｷﾀ━━━(((ﾟ∀ﾟ)))━━━!!</span>レス一覧<a href="$event_rss_file" title="このイベントにおけるｷﾀ━!!レスのRSS"><img alt="このイベントのｷﾀ━!!レスのRSS" src="./RSS.png" width="39" height="20" /></a></h2>
#				$event_geo_table
#			</div>
#HTML
#		if ($event_far_off_geo_table) {
#			print EVENT_HTML <<HTML;
#			<div class="each_content">
#				<h2>他より離れすぎな地点のレス一覧</h2>
#				$event_far_off_geo_table
#			</div>
#HTML
#		}
#			
#		print EVENT_HTML <<HTML;
#			<div class="each_content">
#				<h2>イベント発生スレッド</h2>
#				<ul>
#HTML
#		foreach (@event_threadURL) {
#			print EVENT_HTML "<li><a href=\"${_}l100\" target=\"_blank\">$_</a></li>\n";
#		}
#		print EVENT_HTML <<HTML;
#				</ul>
#			</div>	
#		</div>
#	</div>
#	<div class="footer">
#		<p>【地震ｷﾀ━!!プロジェクト】地震ｷﾀ━!!情報CGI Ver.$version<br />
#		背景地図には、<strong><a href="http://www5b.biglobe.ne.jp/~t-kamada/CBuilder/mapmap.htm" target="_blank">白地図 MapMap 6.0</a></strong> で作成した地図画像を使用しています。
#		</p>
#	</div>
#	</body>
#</html>
#HTML
#		close(EVENT_HTML);	
#		
		### 一番最近のイベントのRSSキャッシュを作成	
		if ($is_latest_event) {
			my $event_rss;
			# RSS date用に時間を変換
			my $event_rss_date = HTTP::Date::time2iso($event_time);
			$event_rss_date =~ s/\s/T/;
			$event_rss_date .= "+09:00";
			# 日本語表示用に時間を変換
			${event_time_in_Japanese} = HTTP::Date::time2iso($event_time);
			if ($event_time =~ /(\.\d+)$/) {
				$event_time_fraction = $1;
			}
			if (${event_time_in_Japanese} =~ s/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)//) {
				${event_time_in_Japanese} = sprintf("%d年%d月%d日 %d時%02d分%02d" . $event_time_fraction . "秒", $1, $2, $3, $4, $5, $6);
			}
			
			$event_rss .= <<EVENT_RSS;
<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type="text/xsl" href="./event.xsl"?>
<rdf:RDF
  xmlns="http://purl.org/rss/1.0/"
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xmlns:content="http://purl.org/rss/1.0/modules/content/"
  xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#"
  xml:lang="ja">
	<channel rdf:about="$cgi_directory_URL$cgi_filename?mode=rss">
EVENT_RSS
			$event_rss .= qq%\t\t<title>最新地震ｷﾀｰ!!情報 (${event_time_in_Japanese} ${event_scale}${event_scale_unit})%;
			if ($is_event_active) {
				$event_rss .= " (イベント発生中！)";
			}
			$event_rss .= "</title>\n";
			$event_rss .= <<EVENT_RSS;
		<link>$cgi_directory_URL$cgi_filename</link>
		<description>２ちゃんねる臨時地震板での、体感による最新の地震発生報告イベントの情報です。</description>
		<dc:language>ja</dc:language>
		<dc:contributor>地震ｷﾀ━!!プロジェクト＠２ちゃんねる地震板</dc:contributor>
		<dc:date>$event_rss_date</dc:date>
	<items>
		<rdf:Seq>
EVENT_RSS
			for (my $j = $event_start_geocache_line_num - 1; $j < $event_end_geocache_line_num; $j++) {
				# スキップすべき点でなければ
				unless ($is_event_skip_geocache_line_num{sprintf("%s", $j + 1)}) {
					# キャッシュの中身 : "dat番号\tレス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";	
					my ($kita_res_dat_num, $kita_res_num, $kita_res_placename, $kita_res_time, $kita_res_ID, $kita_res_X, $kita_res_Y, $kita_res_content) = split(/\t/, $geocache[$j]);
					$event_rss .= "\t\t\t<rdf:li rdf:resource=\"http://$board_domain/test/read.cgi/$board_directory/$kita_res_dat_num/$kita_res_num\"/>\n";
				}
			}
			$event_rss .= <<EVENT_RSS;
		</rdf:Seq>
	</items>
	</channel>
EVENT_RSS

			for (my $j = $event_start_geocache_line_num - 1; $j < $event_end_geocache_line_num; $j++) {
				# スキップすべき点でなければ
				unless ($is_event_skip_geocache_line_num{sprintf("%s", $j + 1)}) {
					# キャッシュの中身 : "dat番号\tレス番号\t地名\tレス時間\tレスID\tX座標\tY座標\tレス内容\n";
					my ($kita_res_dat_num, $kita_res_num, $kita_res_placename, $kita_res_time, $kita_res_ID, $kita_res_X, $kita_res_Y, $kita_res_content) = split(/\t/, $geocache[$j]);
					my $kita_res_URL = "http://$board_domain/test/read.cgi/$board_directory/$kita_res_dat_num/$kita_res_num";
					# RSS date用に時間を変換
					my $kita_res_rss_date = HTTP::Date::time2iso($kita_res_time);
					$kita_res_rss_date =~ s!\s!T!;
					if ($kita_res_time =~ /(\.\d+)$/) {
						$kita_res_rss_date .= $1
					}
					$kita_res_rss_date .= "+09:00";
					# RSS content:encoded用に中身をread.cgiと似た書式にする
					# html形式と違い、タグを閉じなければいけない。
					# 名前<>メール欄<>日付、ID<>本文<>スレタイトル(1行目のみ存在する)\n
					# レス番号 ：<b>名前</b>：日付、ID<dd>本文
					# レス番号 ：<a href="mailto:メール欄"><b>名前</b></a>：日付、ID<dd>本文
					my $kita_res_rss_content;
					if ($kita_res_content =~ m!^(.*?)<>(.*?)<>(.*?)<>(.*?)<>.*?$!) {
						if ($2) {
							$kita_res_rss_content = "$kita_res_num ：<a href=\"mailto:$2\"><b>$1</b></a>：$3<br />$4";
						}
						else {
							$kita_res_rss_content = "$kita_res_num ：<b>$1</b>：$3<br />$4";
						}
					}
					$kita_res_rss_content =~ s!<br>!<br />!g;
					$event_rss .= <<EVENT_RSS;
			<item rdf:about="$kita_res_URL">
				<title>地震ｷﾀ━!!＠$kita_res_placename</title>
				<link>$kita_res_URL</link>
				<description />
				<content:encoded><![CDATA[$kita_res_rss_content]]><\/content:encoded>
				<dc:date>$kita_res_rss_date</dc:date>
EVENT_RSS
					$event_rss .= sprintf("			<geo:lat>%.7f</geo:lat>\n", (&Tokyo2wgs84($kita_res_Y / 36000, $kita_res_X / 36000))[0]);
					$event_rss .= sprintf("			<geo:long>%.7f</geo:long>\n", (&Tokyo2wgs84($kita_res_Y / 36000, $kita_res_X / 36000))[1]);
					$event_rss .= <<EVENT_RSS;
			</item>
EVENT_RSS
				}
			}	
			$event_rss .= "</rdf:RDF>";
			
			Encode::from_to($event_rss , "euc-jp", "utf8");
			
			open(LATEST_RSS, "+> $event_latest_rss_file");
			flock(LATEST_RSS, 2);
			seek(LATEST_RSS, 0, 0);
			print LATEST_RSS $event_rss;
			truncate(LATEST_RSS, tell(LATEST_RSS));
			close(LATEST_RSS);
			
			### HTMLキャッシュを作成	
			# HTML用に変数をフォーマット変換
			my ${datModifiedTime_in_Japanese} = HTTP::Date::time2iso(str2time($datModifiedTime));
			if (${datModifiedTime_in_Japanese} =~ s/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)//) {
				${datModifiedTime_in_Japanese} = sprintf("%d年%d月%d日 %d時%02d分%02d秒", $1, $2, $3, $4, $5, $6);
			}

			my $latestHtml .= <<HTML;
<?xml version="1.0" encoding="euc-jp"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="ja" xml:lang="ja">
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=euc-jp" />
		<meta http-equiv="content-style-type" content="text/css" />
		<meta http-equiv="content-script-type" content="text/javascript" />
		<meta name="description" content="２ちゃんねる地震板の地震ｷﾀｰ!!スレの力を結集し、体感による高速地震速報をお伝えしています。" />
		<link rel="stylesheet" type="text/css" href="./kita2.css" />
		<link rel="alternate" type="application/rss+xml" title="最新イベントのRDFデータ" href="./${cgi_filename}?mode=rss" />
		<link rel="alternate" type="application/rss+xml" title="最近のイベントリストのRDFデータ" href="./${cgi_filename}?mode=list_rss" />
		<link rev="made" href="mailto:$mailAddress" />
HTML
			if ($foafFile) {
				$latestHtml .= qq!		<link rel="meta" type="application/rdf+xml" title="FOAF" href="$foafFile" />\n!;
			}
		
$latestHtml .= <<HTML;
		<link rel='schema.CC' href='http://web.resource.org/cc/' />
		<meta name='CC.license' content='http://creativecommons.org/licenses/by/2.1/jp/' />
		<title>地震ｷﾀｰ!!情報</title>
	</head>
	<!-- DAT_MODIFIED_TIME_$datModifiedTime -->
	<body>
	<div class="contents">
		<div class="main_contents" id="kita_main">
			<h1>最新地震ｷﾀ━!!情報<span class="kita_metainfo">＠２ちゃんねる地震板</span></h1>
			<p class="kita_metainfo">
				<span>最終更新チェック時刻：<!-- lastaccesstime_in_Japanese --></span>
				<a href="./$cgi_filename?mode=rss" title="最新イベントのRDFデータ"><img alt="最新イベントのRDFデータ" src="./RDF.png" width="38" height="18" /></a>
				<a href="./$cgi_filename?mode=kml" title="最新イベントのKML(Google Earth)データ"><img alt="最新イベントのKML(Google Earth)データ" src="./KML.png" width="38" height="18" /></a>
				<object id="svg_ok" data="./svg_ok.svg" type="image/svg+xml" width="50" height="18">
					<br /><span>SVGが見られる環境を推奨します =&gt; <a target="_blank" href="http://dhr.at.infoseek.co.jp/svg1000.htm">準備方法</a></span>
				</object>
			</p>
			<div class="each_content">
HTML

			if ($is_event_active) {
				$latestHtml .= "<span class=\"active\"> (イベント発生中！）</span>";
			}
			
			$latestHtml .= <<HTML;
				<table summary="地震発生情報">
				<tr><th>発生時刻</th><td>${event_time_in_Japanese}</td><th>第一報告地点</th><td>$firstReportedPlace</td></tr>
				<tr>
HTML
			$latestHtml .= "<th>発生地方</th><td>";
			$latestHtml .= join("・", sort {$districtOrder{$a} <=> $districtOrder{$b}} grep {$_ ne ""} keys(%districtScale));
			$latestHtml .= "</td>";
			
			$latestHtml .= <<HTML;
				<th>規模</th><td>${event_scale}${event_scale_unit}</td></tr>
							</table>
				<div id="kita_map">
					<object data="$latestSvgFile" type="image/svg+xml" width="${event_map_width}" height="${event_map_height}">
						<img alt="地震ｷﾀ━!!報告分布地図" src="$latestImgFile" width="${event_map_width}" height="${event_map_width}" />		
					</object>
				</div>
			</div>
<!-- JMA_EQ_INFO -->
<!-- Hi-net_EQ_INFO -->
<!--
			<div class="each_content" id="jma_recent_eq">
				<h2>最近の有感地震</h2>
				<script type="text/javascript" src="http://www.guragura.net/eqlist/1_05_s_e.js"></script>
			</div>
-->
			<div class="each_content">
				<h2><span class="AA">ｷﾀ━━━(((ﾟ∀ﾟ)))━━━!!</span>レス一覧</h2>
				$event_res_html
			</div>
			
			<div class="each_content">
				<h2>地名抽出された<span class="AA">ｷﾀ━━━(((ﾟ∀ﾟ)))━━━!!</span>レスデータ</h2>
				$event_geo_table
			</div>
HTML
			if ($event_far_off_geo_table) {
				$latestHtml .= <<HTML;
				<div class="each_content">
					<h2>他より離れすぎな地点のレスデータ</h2>
					$event_far_off_geo_table
				</div>
HTML
		}
			
			$latestHtml .= <<HTML;
			<div class="each_content">
				<h2>現在の更新対象スレッド</h2>
				<ul>
					<li>現行対象スレッド：<a href="${threadURL}l100" target="_blank">$threadURL</a></li>
					<li>最終レス時刻：${datModifiedTime_in_Japanese}</li>
					<li>更新したレス数：${res_num_difference}個(レス番号${res_num_updated}まで更新)</li>
				</ul>
			</div>	
		</div>
		<div class="sidebar" id="kita_sidebar">
			<div class="each_content">
				<!-- event_list_table -->
				<p>
					<a href="./$cgi_filename?mode=list_rss" title="最近のイベントリストのRDFデータ"><img alt="RSS" title="最近のイベントリストのRDFデータ" src="./RDF.png" width="38" height="18" /></a>
					<span class="follow"><a href="./event">過去のイベントを見る</a></span>
				</p>
			</div>
HTML

			# リンク（each_contentクラスのdivタグ）挿入
			open(LINK_DIV, "$link_div_file");
			while (<LINK_DIV>) {
				$latestHtml .= $_;
			}
			close(LINK_DIV);
			
			$latestHtml .= <<HTML;
		</div>
	</div>
	<div class="footer">
		<p>
		【地震ｷﾀ━!!プロジェクト】地震ｷﾀ━!!情報CGI Ver.$version <a href="./$cgi_filename?mode=source">ソース表示</a><br />
		背景地図には、<strong><a href="http://www5b.biglobe.ne.jp/~t-kamada/CBuilder/mapmap.htm" target="_blank">白地図 MapMap 6.0</a></strong> で作成した地図画像を使用しています(SVGはトレースしています)。<br />
		CGI の編集には <strong><a href="http://www.w-frontier.com/" title="Product by Web Frontier" target="_blank">ez-HTML</a></strong> を使用しています。
		</p>
		<address>管理人 : 12歳\@1995年 ◆12at95.4iI <a href="$profilePage">プロフィールを見る</a> <a title="(at)は@に変えてくださいね" href="mailto:$mailAddress">メールする</a> <a href="$foafFile">FOAF</a></address>
since 2004/07/02 hit 
<a href="http://ct1.xrea.com/cgi-bin/link.cgi?site=age12at95"><img id="access_counter" name="access_counter" src="http://ct1.xrea.com/cgi-bin/pngcount.fcg?site=age12at95&amp;img=02010&amp;ovlp=1&amp;max=7&amp;day=0&amp;tp=1" width="49" height="9" alt="アクセスカウンタ" /></a>
 Today: <a href="http://ct1.xrea.com/cgi-bin/link.cgi?site=age12at95"><img id="access_counter_today" name="access_counter_today" src="http://ct1.xrea.com/cgi-bin/pngcount.fcg?site=age12at95&amp;img=02010&amp;ovlp=2&amp;max=5&amp;day=2&amp;tp=1" width="35" height="9" alt="アクセスカウンタ" /></a>
 Yesterday: <a href="http://ct1.xrea.com/cgi-bin/link.cgi?site=age12at95"><img id="access_counter_yesterday" name="access_counter_yesterday" src="http://ct1.xrea.com/cgi-bin/pngcount.fcg?site=age12at95&amp;img=02010&amp;ovlp=2&amp;max=5&amp;day=1&amp;tp=1" width="35" height="9" alt="アクセスカウンタ" /></a>
	</div>
	</body>
</html>
HTML
			open(LATEST_HTML, "+> $cachename") or die "Can't open    : $!";
			flock(LATEST_HTML, 2);
			seek(LATEST_HTML, 0, 0);
			print LATEST_HTML $latestHtml;
			truncate(LATEST_HTML, tell(LATEST_HTML));
			close(LATEST_HTML);
		
			### SVGプロトタイプキャッシュの作成
			my $latestMapSVG = $eventMapSVG;
			my $strUtf8 = encode("utf-8", decode("euc-jp","(発生中)"));
			$latestMapSVG =~ s/<!-- #IS_ACTIVE# -->/${strUtf8}/;
			open(WR_LATEST_PROTO_SVG, "+> $latestSvgProtoFile") or die "Can't open $latestSvgProtoFile: $!";
			flock(WR_LATEST_PROTO_SVG, 2);
			seek(WR_LATEST_PROTO_SVG, 0, 0);
			print WR_LATEST_PROTO_SVG $latestMapSVG;
			truncate(WR_LATEST_PROTO_SVG, tell(WR_LATEST_PROTO_SVG));
			close(WR_LATEST_PROTO_SVG);
			
			### PNGプロトタイプキャッシュの作成
			$event_map->Write(filename=>"$latest_proto_map_file");

		}
	} #(sub event2html)
}

# イベントリストテーブルの作成
sub makeEventListTable {
	my ($num, $startTime, $endTime) = ($_[0], $_[1], $_[2]);
	my $event_list_rss;
	my $event_table; 
	
	# 該当イベント時間を取り出す
	my @eventTime;
	opendir(DIR, "./");
	my @eventXmlFile = sort grep {/^event_\d{9,10}(?:\.\d+|)\.xml$/i && -f "./$_"} readdir(DIR);
	closedir(DIR);
	
	foreach my $eventXmlFile (@eventXmlFile) {
		if ($eventXmlFile =~ m/^event_(\d{9,10}(?:\.\d+|))\.xml$/) {
			push(@eventTime, $1);
		}
	}
	
	# 指定があれば、$startTime以上$endTime以下の範囲のイベントをリストアップ
	if ($startTime) {
		@eventTime = grep {$_ >= $startTime} (@eventTime);
	}
	if ($endTime) {
		@eventTime = grep {$_ <= $endTime} (@eventTime);
	}
	# 最大$num個の最新イベントをリストアップ
	# 指定がないときは全部リストアップする
	@eventTime = sort {$b <=> $a} (@eventTime);
	if ($num) {
		if ($#eventTime + 1 > $num) {
			$#eventTime = $num - 1;
		}
	}
	
	# イベントデータを作っておく
	my (@is_event_active, @event_relative_path, @event_URL, @{event_time_in_Japanese}, @event_list_rss_date, @event_scale);
	for (my $i = 0; $i < $#eventTime + 1; $i++) {
		$event_relative_path[$i] = "event?time=$eventTime[$i]";
		$event_URL[$i] = "$cgi_directory_URL$event_relative_path[$i]";
		
		open(RD_XML, "< ./event_$eventTime[$i].xml");
		flock(RD_XML, 1);
		while (<RD_XML>) {
			my $line = $_;
			Encode::from_to($line, "utf-8", "euc-jp");
			if ($line =~ m%(\d+)ｷﾀ━!!%) {			
				$event_scale[$i] = $1;
				if ($line =~ m%発生中%) {
					$is_event_active[$i] = 1;
				}
			last;
			}
		}
		close(RD_XML);
		
		# 日本語表示用に時間を変換
		${event_time_in_Japanese}[$i] = HTTP::Date::time2iso($eventTime[$i]);
		if (${event_time_in_Japanese}[$i] =~ s/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)//) {
			${event_time_in_Japanese}[$i] = sprintf("%d月%d日 %02d時%02d分%02d秒", $2, $3, $4, $5, $6);
		}
		# RSS用に時間を変換
		$event_list_rss_date[$i] = HTTP::Date::time2iso($eventTime[$i]); # YYYY-MM-DD hh:mm:ss
		$event_list_rss_date[$i] =~ s/\s/T/;
		if ($eventTime[$i] =~ /(\.\d+)$/) {
			$event_list_rss_date[$i] .= $1;
		}
		$event_list_rss_date[$i] .= "+09:00";
	}	

	# イベントリストRSS作成

	# RSSのページdate用に変換
	my $event_list_rss_page_date = HTTP::Date::time2iso(str2time($datModifiedTime)); # YYYY-MM-DD hh:mm:ss
	$event_list_rss_page_date =~ s/\s/T/;
	$event_list_rss_page_date .= "+09:00";
		
	$event_list_rss .= <<EVENT_LIST_RSS;
<?xml version="1.0" encoding="utf-8" ?> 
<?xml-stylesheet type="text/xsl" href="$event_list_xslt" ?>
<rdf:RDF
	xmlns="http://purl.org/rss/1.0/"
	xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xml:lang="ja">
	<channel rdf:about="$cgi_directory_URL$cgi_filename?mode=list_rss">
		<title>最新イベントリスト - 地震ｷﾀ━!!情報＠２ちゃんねる地震板</title>
		<link>$cgi_directory_URL$cgi_filename</link>
		<description>２ちゃんねる臨時地震板での、体感による地震発生報告情報のリストです。</description>
		<dc:language>ja</dc:language>
		<dc:contributor>地震ｷﾀ━!!プロジェクト＠２ちゃんねる地震板</dc:contributor>
		<dc:date>$event_list_rss_page_date</dc:date>
	<items>
		<rdf:Seq>
EVENT_LIST_RSS

	for (my $i = 0; $i < $#eventTime + 1; $i++) {
		$event_list_rss .= "\t\t\t<rdf:li rdf:resource=\"$event_URL[$i]\"/>\n";
	}

	$event_list_rss .= <<EVENT_LIST_RSS;
		</rdf:Seq>
	</items>
	</channel>
EVENT_LIST_RSS

	for (my $i = 0; $i < $#eventTime + 1; $i++) {		
		$event_list_rss .= <<EVENT_LIST_RSS;
	<item rdf:about="$event_URL[$i]">
EVENT_LIST_RSS
		$event_list_rss .= "\t\t<title>$event_time_in_Japanese[$i]　$event_scale[$i]${event_scale_unit}";
		if ($is_event_active[$i]) {$event_list_rss .= "(途中経過) (イベント発生中！)";}
		$event_list_rss .= "</title>\n";
		
		$event_list_rss .= <<EVENT_LIST_RSS;
		<link>$event_URL[$i]</link>
		<description></description>
		<dc:date>$event_list_rss_date[$i]</dc:date>
	</item>
EVENT_LIST_RSS
	}
	
	$event_list_rss .= <<EVENT_LIST_RSS;
</rdf:RDF>
EVENT_LIST_RSS
		
	Encode::from_to($event_list_rss , "euc-jp", "utf8");
	
	# イベントリストテーブルの作成
	$event_table .= <<EVENT_TABLE;
<h1>イベントリスト<span class="renewal"><a href="./$cgi_filename">最新情報／更新</a></span></h1>
<div id="kita_event_list">
	<table summary="ｷﾀｰ!!イベントリスト">
		<tr><th abbr="時刻">イベント発生時刻</th><th>規模</th></tr>
EVENT_TABLE

	for (my $i = 0; $i < $#eventTime + 1; $i++) {
		if ($is_event_active[$i]) {
			$event_table .= "\t\t<tr class=\"active\"><td class=\"kita_time\"><a href=\"./$cgi_filename\">$event_time_in_Japanese[$i]</a></td><td class=\"kita_scale\">$event_scale[$i]${event_scale_unit}</td></tr>\n";
		}
		else {
			$event_table .= "\t\t<tr><td class=\"kita_time\"><a href=\"./$event_relative_path[$i]\">$event_time_in_Japanese[$i]</a></td><td class=\"kita_scale\">$event_scale[$i]${event_scale_unit}</td></tr>\n";
		}
	}	
	$event_table .= "\t</table>\n";
	$event_table .= "</div>";
		
	return($event_list_rss, $event_table);
}

# ログファイルを書き込む
sub update_log {
	$log =~ s/[\r\n]//g;
	open(WR_LOG ,">> $logfile") || die "$!";
	flock(WR_LOG, 2);
	seek(WR_LOG, 0, 2);
	print WR_LOG "$log\n";
	close(WR_LOG);
	if ($errorLog) {
		open(WR_ERROR_LOG ,">> $errorLogFile") || die "$!";
		flock(WR_ERROR_LOG, 2);
		print WR_ERROR_LOG "$errorLog\n\n";
		close(WR_ERROR_LOG);
	}
}

# xml用のサニタイジング
sub sanitize {
	my $str = shift;
	$str =~ s/&(?!(?:amp|lt|gt|quot);)/&amp;/g;
	$str =~ s/</&lt;/g;
	$str =~ s/>/&gt;/g;
	$str =~ s/"/&quot;/g;
	return $str;
}

# カラーコード取得
# 0：赤、60：黄、120：緑、180：水色、240：青、300：紫
#   0:FF0000
#  60:FFFF00
# 120:00FF00
# 180:00FFFF
# 240:0000FF
# 300:FF00FF
sub getColorCode {
	my $radiant = shift;
	my $brightness = shift;
	if (!$brightness) {
		$brightness = 0;
	}
	my $saturation = shift;
	if (!$saturation) {
		$saturation = 255;
	}
	
	my ($red, $green, $blue) = (0, 0, 0);
	my $color_code;
	
	$radiant = $radiant % 360;
	if (0 <= $radiant and $radiant < 60) {
		$red   = $saturation;
		$green = int($saturation * $radiant / 60 * (1 - $brightness) + $saturation * $brightness);
		$blue  = int($saturation * $brightness);
	}
	elsif (60 <= $radiant and $radiant < 120) {
		$red   = int($saturation * (120 - $radiant) / 60 * (1 - $brightness) + $saturation * $brightness);
		$green = $saturation;
		$blue  = int($saturation * $brightness);
	}
	elsif (120 <= $radiant and $radiant < 180) {
		$red   = int($saturation * $brightness);
		$green = $saturation;
		$blue  = int($saturation * ($radiant - 120) / 60 * (1 - $brightness) + $saturation * $brightness);
	}
	elsif (180 <= $radiant and $radiant < 240) {
		$red   = int($saturation * $brightness);
		$green = int($saturation * (240 - $radiant) / 60 * (1 - $brightness) + $saturation * $brightness);
		$blue  = $saturation;
	}
	elsif (240 <= $radiant and $radiant < 300) {
		$red   = int($saturation * ($radiant - 240) / 60 * (1 - $brightness) + $saturation * $brightness);
		$green = int($saturation * $brightness);
		$blue  = $saturation;
	}
	elsif (300 <= $radiant and $radiant < 360) {
		$red   = $saturation;
		$green = int($saturation * $brightness);
		$blue  = int($saturation * (360 - $radiant) / 60 * (1 - $brightness) + $saturation * $brightness);
	}
	else {
		return;
	}
	
	$color_code = sprintf("%02X", $red) . sprintf("%02X", $green) . sprintf("%02X", $blue);
	
	return $color_code;
}


# 簡易測地系変換 Tokyo(4301) -> wgs84(4326)
# 参考URL：http://homepage3.nifty.com/Nowral/02_DATUM/02_DATUM.html
sub Tokyo2wgs84 {
	my ($Tokyo_lat, $Tokyo_lon) = ($_[0], $_[1]);
	my ($wgs84_lat, $wgs84_lon);
	if (-90 <= $Tokyo_lat && $Tokyo_lat <= 90 && -180 <= $Tokyo_lon && $Tokyo_lon <= 180) {
		$wgs84_lat = $Tokyo_lat - 0.00010695 * $Tokyo_lat + 0.000017464 * $Tokyo_lon + 0.0046017;
		$wgs84_lon = $Tokyo_lon - 0.000046038 * $Tokyo_lat - 0.000083043 * $Tokyo_lon + 0.010040;
		return($wgs84_lat, $wgs84_lon);
	}
	else {
		return(undef, undef);
	}
}

# 日本測地系Tokyoでの緯度経度→距離の簡易計算
# 単位はKmで返す
sub geoCalcDistance {
	my $r = 40000 / (2 * pi);
	my ($lat1, $lon1, $lat2, $lon2) = ($_[0], $_[1], $_[2], $_[3]);
	
	# ラジアン変換
	my ($a, $b, $c ,$d);
	$a = $lat1 / 180 * pi;
	$b = $lon1 / 180 * pi;
	$c = $lat2 / 180 * pi;
	$d = $lon2 / 180 * pi;
	
	my $c1 = cos($a);
	my $c2 = cos($c);
	my $ac = acos(cos($a)*cos($b) * cos($c)*cos($d) + sin($b)*cos($a) * sin($d)*cos($c) + sin($a)*sin($c));
	return $r * $ac;
}

# マグニチュード・深さ・震央からの距離を用いて、推定震度を計算する。
# 確率論的地震動予測地図で使われた距離減衰式を簡略化して使う。
# http://www.j-map.bosai.go.jp/j-map/result/tn_275/html/html/2-7.html
# ・工学的基盤（S波速度400m/s相当層）での最大速度の距離減衰式は司・翠川 (1999) 
# 　断層最短距離式を使い、地震のタイプ別係数dは一律に0とする。
# ・基準地盤（S波速度600m/s相当層）から工学的基盤（S波速度400m/s相当層）までの最大速度の増幅率は、
# 　松岡・翠川 (1994) による表層地盤の速度増幅度算定式
# ・気象庁マグニチュードからモーメントマグニチュードへの変換は、両者は等しいとして計算
# ・太平洋プレート内地震による異常震域補正はしない
# ・地表面における最大速度は、工学的基盤での最大速度値に対して、一律に1倍とする
# ・地表面における計測震度は、翠川・他 (1999) が示している最大速度と計測震度との関係式を用いる 
# ・距離減衰式のばらつきとして、司・翠川 (1999) に記載の値（常用対数標準偏差で0.23、自然対数標準偏差で0.53）を用いる
sub calcSeismicIntensity {
	my ($mag, $dep, $dist) = ($_[0], $_[1], $_[2]);
	$dist = sqrt($dep**2 + $dist**2);
	if ($dist < 0.1) {$dist = 0.1;}
	my $PGVb600 = 10**(0.58*$mag + 0.0038*$dep + 0 - 1.29 - (log($dist + 0.0028*(10**(0.50*$mag))) / log(10)) - 0.002*$dist);
	my $PGVb400 = $PGVb600 * 1.31;
	my $PGV = $PGVb400 * 1;
	my $estimatedIntensity = 2.68 + 1.72*(log($PGV) / log(10));
	# 推定震度は、地表増幅が0.7～1.8倍とすれば、計算上この値-0.25～+0.45
	# さらに、もとの司・翠川(1999)に記載の誤差から log($PGV)/log(10) が±0.23なので、±0.4程度
	# 一応、+0.1±0.7と計算上なる。
	# しかし、運用上の結果から、経験的に±1.0としておく。
	$estimatedIntensity += 0.1;
	my $intensityVariant = 1.0;
	return ($estimatedIntensity, $intensityVariant);
}