diff options
| author | itojun <itojun@FreeBSD.org> | 1997-11-12 13:12:18 +0800 |
|---|---|---|
| committer | itojun <itojun@FreeBSD.org> | 1997-11-12 13:12:18 +0800 |
| commit | dc9c3c2706648a4509bd4621421a5281be1e4be4 (patch) | |
| tree | 81e18b7f35127aca5e2b4b60257ebec12c60eccb /japanese/zipcodes/scripts/gennew.pl | |
| parent | c7e0508b5510a3819129028bc7e6aaf3d9d8f258 (diff) | |
| download | freebsd-ports-graphics-dc9c3c2706648a4509bd4621421a5281be1e4be4.tar.gz freebsd-ports-graphics-dc9c3c2706648a4509bd4621421a5281be1e4be4.tar.zst freebsd-ports-graphics-dc9c3c2706648a4509bd4621421a5281be1e4be4.zip | |
japanese zipcode tables. includes both 3/5 digits form and 7 digits form.
just like /usr/share/misc/zipcodes.
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"; +} |