X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9d27cde5f8972684a5740f0adf070dd12d13269d..18a6f92cf7a37023188712560bbb12bc96c24b2c:/cc.plp diff --git a/cc.plp b/cc.plp deleted file mode 100644 index 7d1b0d8..0000000 --- a/cc.plp +++ /dev/null @@ -1,109 +0,0 @@ -<(common.inc.plp)><: - our $VERSION = 'v1.0'; - -:> - - - - -country code cheat sheet - - -<:= stylesheet(qw'light dark mono red') :> - - - - -

Country codes

- -<: -my $cc = do 'cc.inc.pl'; - -{ - printf ''; - print ''; - for my $section (qw{thead}) { - print "<$section>'; - for my $row ('a' .. 'z') { - print '

â³"; - 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; - s/,.//; - s/(?<=.)$.$\s*//; - s/ republic\b//gi; - s/ islands?\b//gi; - s/\bthe //g; - s/ and / & /g and s/(?<=.)[a-z ]+//g; - s/\bsaint /st /gi; - s/South(?:ern)? /S-/g; - s/North(?:ern)? /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', - $_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_; - } - print "\n"; - } - print "

\n"; -} - -:> -

- -

africa -

europe -

asia -

antarctica -

oceania -

south america -

north america -

reserved -

user-assigned -

- -

show - <:= exists $get{show} ? 'flag images' : 'english names' :><:= - !exists $get{show} && ' by default' :> -
default style is - <:= defined $get{style} && 'set to ' :><:= $style :> -

- - - -