#! /usr/local/bin/perl
# $Id: makedata,v 1.1.1.1 1999/03/02 02:28:05 t-ishii Exp $

open(POSTAL,">./postal.data") || die "Can't open postal\n"; 
open(PREF,">./prefecture.data") || die "Can't open prefecture\n"; 
$pid = 0;
while (<>) {
        s/\r\n$/\n/;
        s/,/\t/g;
        s/\"//g;
        m/^\d+\t(\d+)\s*\t(\d+)\t([^\t]+)\t([^\t]+)\t([^\t]+)\t([^\t]+)\t([^\t]+)\t([^\t]+).*$/;
	if (!defined($kanaPref{$3})) {
		$kanaPref{$3} = $pid;
		$kanjiPref{$6} = $pid;
		$pid++;
	}
	$thePid = $kanaPref{$3};
	printf POSTAL "$1\t$2\t$thePid\t$4\t$5\t$7\t$8\n";
}
foreach $i (keys(%kanaPref)) {
	$pid = $kanaPref{$i};
	foreach $j (keys(%kanjiPref)) {
		$kanji = $j, last if ($kanjiPref{$j} == $pid);
	}
	printf PREF "$pid\t$kanji\t$i\n";
}

close POSTAL;
close PREF;
