Encode::BOCU1 -- encodes / decodes BOCU-1 string, works as part of Encode.pm

use Encode::BOCU1;

$string = 'Some text to convert... in UTF-8' Encode::from_to($string,'utf8','bocu1'); Encode::from_to($string,'bocu1','shiftjis');

BOCU-1 is a MIME-compatible application of the Binary Ordered Compression for Unicode [BOCU] base algorithm.

Encode::BOCU1 enables to convert any encoding systems supported by Encode.pm from/to BOCU-1 through UTF-8.

http://www.unicode.org/notes/tn6/ http://icu.sourceforge.net/docs/papers/binary_ordered_compression_for_unicode.html

Based on pure-perl port of "Sample C Code" on http://www.unicode.org/notes/tn6/, written by Markus W. Scherer on 2002jan24 and is

Copyright (C) 2002, International Business Machines Corporation and others. All Rights Reserved.

The "Sample C Code" is under the X license (ICU version). ICU License : http://dev.icu-project.org/cgi-bin/viewcvs.cgi/*checkout*/icu/license.html

BOCU "Binary-Ordered Compression For Unicode" is a patent-protected technology of IBM. (US Patent 6737994)

Ported and modified by Naoya Tozuka <naoyat@naochan.com> As with the original C code, this port is licensed under the X license (ICU version).