X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0ec1918e9ea19466404dd204c30dea88af25bea7..c11640facf0c976140547ef1b58971ec8a661dd3:/cc.plp diff --git a/cc.plp b/cc.plp index 08a2341..7138c3b 100644 --- a/cc.plp +++ b/cc.plp @@ -1,12 +1,5 @@ -<: -use utf8; -use strict; -use warnings; -use open IO => ':utf8'; - -our $VERSION = 'v1.0'; - -$header{content_type} = 'text/html; charset=utf-8'; +<(common.inc.plp)><: + our $VERSION = 'v1.0'; :> @@ -15,7 +8,7 @@ $header{content_type} = 'text/html; charset=utf-8';
â±"; + print "<$section> | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
â³"; print ' | ', $_ for 'a' .. 'z'; print "\n"; } @@ -63,18 +48,18 @@ sub quote { s/ republic\b//gi; s/ islands?\b//gi; s/\bthe //g; - s/ and / & /g; + s/ and / & /g and s/(?<=.)[a-z ]+//g; s/\bsaint /st /gi; - s/South /S-/g; - s/North /N-/g; + 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{2,})/$1./g; # abbreviate (at consonant) - $_ = quote($_); + s/(\S{4}[b-df-hj-np-tv-xz])((?%s', - $_ ? 'X '.$class : '', quote("$code: $name"), $_; + $_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_; } print "\n"; } @@ -89,21 +74,33 @@ sub quote { | africa | europe | asia - | oceania | antarctica + | oceania | south america | north america - | reserved + | reserved | user-assigned |