', $row;
for my $col ('a' .. 'z') {
my $code = $row . $col;
my $country = $cc->{$code} or do {
print $code =~ /^x|^q[m-z]|^aa|^zz/ ? ' | ' : ' | ';
next;
};
my ($name, $class, $short, $ref) = @$country;
$ref ||= $code;
local $_ = $ref;
if (exists $get{show}) {
my $img = "flag/$ref.png";
$_ = sprintf '', $img, $ref if -e $img;
}
else {
$_ = $short || $name;
s/,.*//;
s/(?<=.)\(.*\)\s*//;
s/ republic\b//gi;
s/ islands?\b//gi;
s/\bthe //g;
s/ and / & /g;
s/\bsaint /st /gi;
s/South /S-/g;
s/North /N-/g;
s/New /n./g;
s/(\S)(\S+)-/$1-/g; # strip most chars preceding dash
s/(\S{4}[b-df-hj-np-tv-xz])(\S{2,})/$1./g; # abbreviate (at consonant)
$_ = quote($_);
}
$name =~ s/([^,]*), (.*)/$2 $1/;
printf "\n".' | %s',
$_ ? 'X '.$class : '', quote("$code: $name"), $_;
}
print "\n";
}
print " |
---|