japanese/zipcodes/scripts/gennew.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

while (<>) {
	s/"//g;
	split(/,/, $_);
	$_[2] =~ s/[ \t]//g;
	$_[8] = '' if ($_[8] eq '以下に掲載がない場合');
	$zipstr = $_[6] . ' ' . $_[7] . ' ' . $_[8];	# uniq
	$zipstr =~ s/[ \t]+$//;
	$zip{$zipstr} = $_[2];
}

print "# Zip code:location\n";
print "# 7 digits zipcode for japan, used since feb98.\n";
foreach $i (sort {$zip{$a} cmp $zip{$b}} keys %zip) {
	next if ($i eq '');
	print $zip{$i} . ':' . $i . "\n";
}