lf => ["Libya Fezzan", "c-af Xr", "Fezzan", 'ly'],
pi => ["(Philippines)", "c-as Xr", undef, 'ph'],
ra => ["(Argentina)", "c-sa Xr", undef, 'ar'],
- rb => ["Bolivia/Botswana", "c-xx Xr"],
+ rb => ["(Botswana, Bolivia)", "c-sa Xr", "(Bots...)"],
rc => ["(RoC)", "c-as Xr", undef, 'tw'],
rh => ["(Haiti)", "c-na Xr",undef, 'ht'],
ri => ["(Indonesia)", "c-as Xr", undef, 'id'],
$cc{um}->[2] = "U.S. isl.";
for (values %cc) {
- for ($_->[2] //= $_->[0]) {
+ my $abbr = do {
+ local $_ = $_->[2] // $_->[0];
s/,.*//;
s/(?<=.)\(.*\)\s*//;
s/ republic\b//gi;
s/New /n./g;
s/(\S)(\S+)-/$1-/g; # strip most chars preceding dash
s/(\S{4}[b-df-hj-np-tv-xz])((?<!Austr)(?!land)\w{2,})/$1./g; # abbreviate (at consonant)
- }
+ $_;
+ };
+ $_->[2] = $abbr if $abbr ne $_->[0]; # short name if different
}
say "# automatically generated by $0";