(common.inc.plp)><: Html({ title => 'country code cheat sheet', version => 'v1.1', description => "Table of ISO-3166-1 country codes with the names of reserved territories.", keywords => [qw'country code cc tld cctld continent territory land table'], stylesheet => [qw'light dark circus mono red'], }); :>
↳"; print ' | ', $_ for 'a' .. 'z'; print "\n"; } print ' | ||
---|---|---|---|
', $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; local $_ = $ref; if (exists $get{show}) { my $img = "data/flag/$ref.png"; $_ = sprintf '', $img, $ref if -e $img; } else { $_ = EscapeHTML($short || $name); } printf "\n".' | %s', $_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_; } print "\n"; } print " |
africa | europe | asia | antarctica | oceania | south america | north america | reserved | org | free | user-assigned |