1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-15 23:50:44 +00:00
freebsd-ports/japanese/zipcodes/scripts/gennew.pl

17 lines
418 B
Perl
Raw Normal View History

while (<>) {
s/"//g;
split(/,/, $_);
$_[2] =~ s/[ \t]//g;
$_[8] = '' if ($_[8] eq '<27>ʲ<EFBFBD><CAB2>˷Ǻܤ<C7BA><DCA4>ʤ<EFBFBD><CAA4><EFBFBD><EFBFBD><EFBFBD>');
$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";
}