Cari di Perl 
    Perl User Manual
Daftar Isi
(Sebelumnya) The CPANPLUS distribution creatorTranslate find command lines t ... (Berikutnya)
Utilities

Perl Encode Module Generator

Daftar Isi

NAME

enc2xs -- Perl Encode Module Generator

SYNOPSIS

  1. enc2xs -[options]
  2. enc2xs -M ModName mapfiles...
  3. enc2xs -C

DESCRIPTION

enc2xs builds a Perl extension for use by Encode from eitherUnicode Character Mapping files (.ucm) or Tcl Encoding Files (.enc).Besides being used internally during the build process of the Encodemodule, you can use enc2xs to add your own encoding to perl.No knowledge of XS is necessary.

Quick Guide

If you want to know as little about Perl as possible but need toadd a new encoding, just read this chapter and forget the rest.

0.

Have a .ucm file ready. You can get it from somewhere or you can writeyour own from scratch or you can grab one from the Encode distributionand customize it. For the UCM format, see the next Chapter. In theexample below, I'll call my theoretical encoding myascii, definedin my.ucm. $ is a shell prompt.

  1. $ ls -F
  2. my.ucm
1.

Issue a command as follows;

  1. $ enc2xs -M My my.ucm
  2. generating Makefile.PL
  3. generating My.pm
  4. generating README
  5. generating Changes

Now take a look at your current directory. It should look like this.

  1. $ ls -F
  2. Makefile.PL My.pm my.ucm t/

The following files were created.

  1. Makefile.PL - MakeMaker script
  2. My.pm - Encode submodule
  3. t/My.t - test file
1.
1.

If you want *.ucm installed together with the modules, do as follows;

  1. $ mkdir Encode
  2. $ mv *.ucm Encode
  3. $ enc2xs -M My Encode/*ucm
2.

Edit the files generated. You don't have to if you have no time AND nointention to give it to someone else. But it is a good idea to editthe pod and to add more tests.

3.

Now issue a command all Perl Mongers love:

  1. $ perl Makefile.PL
  2. Writing Makefile for Encode::My
4.

Now all you have to do is make.

  1. $ make
  2. cp My.pm blib/lib/Encode/My.pm
  3. /usr/local/bin/perl /usr/local/bin/enc2xs -Q -O \
  4. -o encode_t.c -f encode_t.fnm
  5. Reading myascii (myascii)
  6. Writing compiled form
  7. 128 bytes in string tables
  8. 384 bytes (75%) saved spotting duplicates
  9. 1 bytes (0.775%) saved using substrings
  10. ....
  11. chmod 644 blib/arch/auto/Encode/My/My.bs
  12. $

The time it takes varies depending on how fast your machine is andhow large your encoding is. Unless you are working on something biglike euc-tw, it won't take too long.

5.

You can "make install" already but you should test first.

  1. $ make test
  2. PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib \
  3. -e 'use Test::Harness qw(&runtests $verbose); \
  4. $verbose=0; runtests @ARGV;' t/*.t
  5. t/My....ok
  6. All tests successful.
  7. Files=1, Tests=2, 0 wallclock secs
  8. ( 0.09 cusr + 0.01 csys = 0.09 CPU)
6.

If you are content with the test result, just "make install"

7.

If you want to add your encoding to Encode's demand-loading list(so you don't have to "use Encode::YourEncoding"), run

  1. enc2xs -C

to update Encode::ConfigLocal, a module that controls local settings.After that, "use Encode;" is enough to load your encodings on demand.

The Unicode Character Map

Encode uses the Unicode Character Map (UCM) format for source charactermappings. This format is used by IBM's ICU package and was adoptedby Nick Ing-Simmons for use with the Encode module. Since UCM ismore flexible than Tcl's Encoding Map and far more user-friendly,this is the recommended format for Encode now.

A UCM file looks like this.

  1. #
  2. # Comments
  3. #
  4. <code_set_name> "US-ascii" # Required
  5. <code_set_alias> "ascii" # Optional
  6. <mb_cur_min> 1 # Required; usually 1
  7. <mb_cur_max> 1 # Max. # of bytes/char
  8. <subchar> \x3F # Substitution char
  9. #
  10. CHARMAP
  11. <U0000> \x00 |0 # <control>
  12. <U0001> \x01 |0 # <control>
  13. <U0002> \x02 |0 # <control>
  14. ....
  15. <U007C> \x7C |0 # VERTICAL LINE
  16. <U007D> \x7D |0 # RIGHT CURLY BRACKET
  17. <U007E> \x7E |0 # TILDE
  18. <U007F> \x7F |0 # <control>
  19. END CHARMAP
  • Anything that follows # is treated as a comment.

  • The header section continues until a line containing the wordCHARMAP. This section has a form of <keyword> value, onepair per line. Strings used as values must be quoted. Barewords aretreated as numbers. \xXX represents a byte.

    Most of the keywords are self-explanatory. subchar meanssubstitution character, not subcharacter. When you decode a Unicodesequence to this encoding but no matching character is found, the bytesequence defined here will be used. For most cases, the value here is\x3F; in ASCII, this is a question mark.

  • CHARMAP starts the character map section. Each line has a form asfollows:

    1. <UXXXX> \xXX.. |0 # comment
    2. ^ ^ ^
    3. | | +- Fallback flag
    4. | +-------- Encoded byte sequence
    5. +-------------- Unicode Character ID in hex

    The format is roughly the same as a header section except for thefallback flag: | followed by 0..3. The meaning of the possiblevalues is as follows:

    • |0

      Round trip safe. A character decoded to Unicode encodes back to thesame byte sequence. Most characters have this flag.

    • |1

      Fallback for unicode -> encoding. When seen, enc2xs adds thischaracter for the encode map only.

    • |2

      Skip sub-char mapping should there be no code point.

    • |3

      Fallback for encoding -> unicode. When seen, enc2xs adds thischaracter for the decode map only.

  • And finally, END OF CHARMAP ends the section.

When you are manually creating a UCM file, you should copy ascii.ucmor an existing encoding which is close to yours, rather than writeyour own from scratch.

When you do so, make sure you leave at least U0000 to U0020 asis, unless your environment is EBCDIC.

CAVEAT: not all features in UCM are implemented. For example,icu:state is not used. Because of that, you need to write a perlmodule if you want to support algorithmical encodings, notablythe ISO-2022 series. Such modules include Encode::JP::2022_JP,Encode::KR::2022_KR, and Encode::TW::HZ.

Coping with duplicate mappings

When you create a map, you SHOULD make your mappings round-trip safe.That is, encode('your-encoding', decode('your-encoding', $data)) eq$data stands for all characters that are marked as |0. Here ishow to make sure:

  • Sort your map in Unicode order.

  • When you have a duplicate entry, mark either one with '|1' or '|3'.

  • And make sure the '|1' or '|3' entry FOLLOWS the '|0' entry.

Here is an example from big5-eten.

  1. <U2550> \xF9\xF9 |0
  2. <U2550> \xA2\xA4 |3

Internally Encoding -> Unicode and Unicode -> Encoding Map looks likethis;

  1. E to U U to E
  2. --------------------------------------
  3. \xF9\xF9 => U2550 U2550 => \xF9\xF9
  4. \xA2\xA4 => U2550

So it is round-trip safe for \xF9\xF9. But if the line above is upsidedown, here is what happens.

  1. E to U U to E
  2. --------------------------------------
  3. \xA2\xA4 => U2550 U2550 => \xF9\xF9
  4. (\xF9\xF9 => U2550 is now overwritten!)

The Encode package comes with ucmlint, a crude but sufficientutility to check the integrity of a UCM file. Check under theEncode/bin directory for this.

When in doubt, you can use ucmsort, yet another utility underEncode/bin directory.

Bookmarks

SEE ALSO

Encode,perlmod,perlpod

 
Source : perldoc.perl.org - Official documentation for the Perl programming language
Site maintained by Jon Allen (JJ)     See the project page for more details
Documentation maintained by the Perl 5 Porters
(Sebelumnya) The CPANPLUS distribution creatorTranslate find command lines t ... (Berikutnya)