mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-14 23:46:10 +00:00
17 lines
418 B
Perl
17 lines
418 B
Perl
|
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";
|
|||
|
|
}
|