Return to unicode-to-nginx.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / nginx / contrib / unicode2nginx

Annotation of embedaddon/nginx/contrib/unicode2nginx/unicode-to-nginx.pl, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl -w
                      2: 
                      3: # Convert unicode mappings to nginx configuration file format.
                      4: 
                      5: # You may find useful mappings in various places, including
                      6: # unicode.org official site:
                      7: #
                      8: # http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1251.TXT
                      9: # http://www.unicode.org/Public/MAPPINGS/VENDORS/MISC/KOI8-R.TXT
                     10: 
                     11: # Needs perl 5.6 or later.
                     12: 
                     13: # Written by Maxim Dounin, mdounin@rambler-co.ru
                     14: 
                     15: ###############################################################################
                     16: 
                     17: require 5.006;
                     18: 
                     19: while (<>) {
                     20:        # Skip comments and empty lines
                     21: 
                     22:        next if /^#/;
                     23:        next if /^\s*$/;
                     24:        chomp;
                     25: 
                     26:        # Convert mappings
                     27: 
                     28:        if (/^\s*0x(..)\s*0x(....)\s*(#.*)/) {
                     29:                # Mapping <from-code> <unicode-code> "#" <unicode-name>
                     30:                my $cs_code = $1;
                     31:                my $un_code = $2;
                     32:                my $un_name = $3;
                     33: 
                     34:                # Produce UTF-8 sequence from character code;
                     35: 
                     36:                my $un_utf8 = join('', map { sprintf("%02X", $_) } unpack("C*", pack("U", hex($un_code))));
                     37: 
                     38:                print "    $cs_code  $un_utf8 ; $un_name\n";
                     39: 
                     40:        } else {
                     41:                warn "Unrecognized line: '$_'";
                     42:        }
                     43: }
                     44: 
                     45: ###############################################################################