| 1 |
package Encode::JP; |
| 2 |
BEGIN { |
| 3 |
if (ord("A") == 193) { |
| 4 |
die "Encode::JP not supported on EBCDIC\n"; |
| 5 |
} |
| 6 |
} |
| 7 |
use Encode; |
| 8 |
our $VERSION = do { my @r = (q$Revision: 2.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; |
| 9 |
|
| 10 |
use XSLoader; |
| 11 |
XSLoader::load(__PACKAGE__,$VERSION); |
| 12 |
|
| 13 |
use Encode::JP::JIS7; |
| 14 |
|
| 15 |
1; |
| 16 |
__END__ |
| 17 |
|
| 18 |
=head1 NAME |
| 19 |
|
| 20 |
Encode::JP - Japanese Encodings |
| 21 |
|
| 22 |
=head1 SYNOPSIS |
| 23 |
|
| 24 |
use Encode qw/encode decode/; |
| 25 |
$euc_jp = encode("euc-jp", $utf8); # loads Encode::JP implicitly |
| 26 |
$utf8 = decode("euc-jp", $euc_jp); # ditto |
| 27 |
|
| 28 |
=head1 ABSTRACT |
| 29 |
|
| 30 |
This module implements Japanese charset encodings. Encodings |
| 31 |
supported are as follows. |
| 32 |
|
| 33 |
Canonical Alias Description |
| 34 |
-------------------------------------------------------------------- |
| 35 |
euc-jp /\beuc.*jp$/i EUC (Extended Unix Character) |
| 36 |
/\bjp.*euc/i |
| 37 |
/\bujis$/i |
| 38 |
shiftjis /\bshift.*jis$/i Shift JIS (aka MS Kanji) |
| 39 |
/\bsjis$/i |
| 40 |
7bit-jis /\bjis$/i 7bit JIS |
| 41 |
iso-2022-jp ISO-2022-JP [RFC1468] |
| 42 |
= 7bit JIS with all Halfwidth Kana |
| 43 |
converted to Fullwidth |
| 44 |
iso-2022-jp-1 ISO-2022-JP-1 [RFC2237] |
| 45 |
= ISO-2022-JP with JIS X 0212-1990 |
| 46 |
support. See below |
| 47 |
MacJapanese Shift JIS + Apple vendor mappings |
| 48 |
cp932 /\bwindows-31j$/i Code Page 932 |
| 49 |
= Shift JIS + MS/IBM vendor mappings |
| 50 |
jis0201-raw JIS0201, raw format |
| 51 |
jis0208-raw JIS0201, raw format |
| 52 |
jis0212-raw JIS0201, raw format |
| 53 |
-------------------------------------------------------------------- |
| 54 |
|
| 55 |
=head1 DESCRIPTION |
| 56 |
|
| 57 |
To find out how to use this module in detail, see L<Encode>. |
| 58 |
|
| 59 |
=head1 Note on ISO-2022-JP(-1)? |
| 60 |
|
| 61 |
ISO-2022-JP-1 (RFC2237) is a superset of ISO-2022-JP (RFC1468) which |
| 62 |
adds support for JIS X 0212-1990. That means you can use the same |
| 63 |
code to decode to utf8 but not vice versa. |
| 64 |
|
| 65 |
$utf8 = decode('iso-2022-jp-1', $stream); |
| 66 |
|
| 67 |
and |
| 68 |
|
| 69 |
$utf8 = decode('iso-2022-jp', $stream); |
| 70 |
|
| 71 |
yield the same result but |
| 72 |
|
| 73 |
$with_0212 = encode('iso-2022-jp-1', $utf8); |
| 74 |
|
| 75 |
is now different from |
| 76 |
|
| 77 |
$without_0212 = encode('iso-2022-jp', $utf8 ); |
| 78 |
|
| 79 |
In the latter case, characters that map to 0212 are first converted |
| 80 |
to U+3013 (0xA2AE in EUC-JP; a white square also known as 'Tofu' or |
| 81 |
'geta mark') then fed to the decoding engine. U+FFFD is not used, |
| 82 |
in order to preserve text layout as much as possible. |
| 83 |
|
| 84 |
=head1 BUGS |
| 85 |
|
| 86 |
The ASCII region (0x00-0x7f) is preserved for all encodings, even |
| 87 |
though this conflicts with mappings by the Unicode Consortium. See |
| 88 |
|
| 89 |
L<http://www.debian.or.jp/~kubota/unicode-symbols.html.en> |
| 90 |
|
| 91 |
to find out why it is implemented that way. |
| 92 |
|
| 93 |
=head1 SEE ALSO |
| 94 |
|
| 95 |
L<Encode> |
| 96 |
|
| 97 |
=cut |
