summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
b4ce208)
Convert GeoNames' AN to our AA to fix styling.
while (<>) {
/^#/ and next; # skip comments
my ($iso, $name, $cont) = (split /\t/)[0, 4, 8];
while (<>) {
/^#/ and next; # skip comments
my ($iso, $name, $cont) = (split /\t/)[0, 4, 8];
+ $cont =~ s/\AAN\z/aa/; # different antarctica abbreviation
my $class = "c-\L$cont";
$cc{ lc $iso } = [ $name, $class ];
}
my $class = "c-\L$cont";
$cc{ lc $iso } = [ $name, $class ];
}