charset: utf-8 byte function table

[sheet.git] / rfc1345convert

diff --git a/rfc1345convert b/rfc1345convert
index f6f0ab8a2f88a5230fa2e6f2ee127143a3423ec3..f93275348360e0970948d38a731513efc64dea17 100755 (executable)
--- a/rfc1345convert
+++ b/rfc1345convert
@@ -3,6 +3,7 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

+use open OUT => ':utf8', ':std';

 use Data::Dumper;
 
 our $VERSION = '1.01';
 use Data::Dumper;
 
 our $VERSION = '1.01';


@@ -116,6 +117,9 @@ if (-r 'shiar.inc.txt') {
 }
 warn $@ if $@;
 
 }
 warn $@ if $@;
 

+$di{chr $_} = $_ for 32 .. 126;
+$di{'\\'.$_} = delete $di{$_} for '{', '}', '\\';
+

 # optionally get unicode character information
 my %info = eval {
        require Unicode::UCD;
 # optionally get unicode character information
 my %info = eval {
        require Unicode::UCD;