#経度をハッシュで定義 my %KDO=( "oowa"=> "133,41,38", "sira"=> "140,10, 4", "syak"=> "130,53,28", "taka"=> "140,35,29", "kuni"=> "131,00,56", "hiji"=> "138, 0, 2", "miya"=> "135,22,48", "raka"=> "132,04,16", ); #条件をreplaceで入れ替え my …