イイ!! プログラミング Blog

日本郵政の郵便番号データをXML形式に変換したものを用意する機会があったので、公開してみます。
文字コードはUTF-8です。

jp_zipcode (1.8MB)

フォーマットは以下のような形式になっています。

元データは日本郵政のサイトにおいてある、CSVファイルです。Perlで書いた変換スクリプトでXMLに変換しました。

郵便番号CSVデータをXMLに変換するスクリプト

#!/usr/bin/perl

use strict;
use XML::Simple;

my $hash;
my %tmp_hash;
my $i;

$hash->{'Prefecture'} = [];

my $current_pref;
my $current_city;
my $pref_prefix = -1;
my $city_prefix = -1;

while (<>) {
        chomp;
        s/"//g;
        my ($idnum, $zip5, $zip7, $pref_kana, $city_kana, $area_kana, $pref, $city, $area) = split(/,/);

        if ($area eq '以下に掲載がない場合') {
                next;
        }

        if ($current_pref ne $pref) {
                $pref_prefix++;
                $city_prefix = -1;

                $current_pref = $pref;
                $current_city = "";

                push(@{$hash->{'Prefecture'}}, { 'PrefectureName' => $pref, 'PrefectureKana' => $pref_kana, 'City' => [] });
        }

        if ($current_city ne $city) {
                $city_prefix++;
                $current_city = $city;

                push(@{$hash->{'Prefecture'}[$pref_prefix]->{'City'}}, { 'CityName' => $city, 'CityNameKana' => $city_kana, 'Area' => [] });
        }
        push(@{$hash->{'Prefecture'}[$pref_prefix]->{'City'}[$city_prefix]->{'Area'}}, { 'ZipCode' => $zip7, 'AreaName' => $area, 'AreaKana' => $area_kana });
}

print XMLout($hash,  NoAttr => 1, RootName => 'JapanAreaData');

タグ: XML

この投稿は 2009 年 3 月 30 日 月曜日 9:00 AM に perl カテゴリーに公開されました。 この投稿へのコメントは RSS 2.0 フィードで購読することができます。 コメントを残すか、ご自分のサイトからトラックバックすることができます。