', $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 = "data/flag/$ref.png";
$_ = sprintf '', $img, $ref if -e $img;
}
else {
$_ = EscapeHTML($short || $name);
$name .= " → $ref" if $ref and $ref ne $code;
}
printf "\n".' | %s',
$_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_;
}
print "\n";
}
print " |
---|