(common.inc.plp)><: Html({ title => 'country code cheat sheet', version => 'v1.0', description => "Table of ISO-3166-2 country codes with the names of reserved territories.", keywords => [qw'country code cc tld 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; $ref ||= $code; local $_ = $ref; if (exists $get{show}) { my $img = "flag/$ref.png"; $_ = sprintf '', $img, $ref if -e $img; } else { $_ = $short || $name; } $name =~ s/([^,]*), (.*)/$2 $1/; printf "\n".' | %s', $_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_; } print "\n"; } print " |
africa | europe | asia | antarctica | oceania | south america | north america | reserved | user-assigned |