X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/92240b0d1e4434e0981b3326ca4d7ad8673dbf71..5ff4b1c1b790314cd654d32ca6d72368d1748283:/charset.plp?ds=sidebyside diff --git a/charset.plp b/charset.plp index d3ddea7..501e26c 100644 --- a/charset.plp +++ b/charset.plp @@ -4,7 +4,7 @@ use strict; use warnings; use open IO => ':utf8'; -our $VERSION = '1.0'; +our $VERSION = 'v1.0'; $header{content_type} = 'text/html; charset=utf-8'; @@ -13,8 +13,8 @@ $header{content_type} = 'text/html; charset=utf-8';
+Encoding $input unknown
\n"; + } + \%row; + } + else { + (); + } +} map { defined $ALIAS{$_} ? @{ $ALIAS{$_} } : $_ } + $ENV{PATH_INFO} =~ /\w/ ? split(m{[/+\s]}, $ENV{PATH_INFO}) : 'default'; my $NOCHAR = chr 0xFFFD; +for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) { + substr($request[$cp437]->{table}, 237, 1) = pack 'U*', 0x3D5; # phi sign + substr($request[$cp437]->{table}, 0, 32) = pack 'U*', map {hex} qw( + 2007 263A 263B 2665 2666 2663 2660 2022 25D8 25CB 25D9 2642 2640 266A 266B 263C + 25BA 25C4 2195 203C 00B6 00A7 25AC 21A8 2191 2193 2192 2190 221F 2194 25B2 25BC + ); +} + sub quote { local $_ = shift; s/"/"/g; @@ -41,27 +109,42 @@ sub quote { return $_; } +print "â³";
+for my $row (@request) {
+ printf '
+ +
+
+
+
+
+
|
---|