', $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;
$name .= " → $ref" if $ref;
$ref ||= $code;
my $cell;
if (exists $get{show}) {
sub showflag {
my ($cc) = @_;
my $img = "data/flag/$cc.png";
return -e $img &&
sprintf '', $img, $cc;
}
$cell = showflag($code) // join(' ',
map { showflag($_) || $_ } split(/ /, $ref)
);
}
else {
$cell = EscapeHTML($short || $name);
}
printf "\n".' | %s',
$cell ? 'X '.$class : '', EscapeHTML("$code: $name"), $cell;
}
print "\n";
}
say ' |
---|