diff options
Diffstat (limited to 'japanese/zipcodes/scripts/gennew.pl')
| -rw-r--r-- | japanese/zipcodes/scripts/gennew.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/japanese/zipcodes/scripts/gennew.pl b/japanese/zipcodes/scripts/gennew.pl new file mode 100644 index 00000000000..a7f1b87dbe8 --- /dev/null +++ b/japanese/zipcodes/scripts/gennew.pl @@ -0,0 +1,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"; +} |