ACIL FM

Nama	Ukuran	Aksi
CN	-	Open
JP	-	Open
KR	-	Open
MIME	-	Open
Unicode	-	Open
Alias.pm	12.25 MB	View DL Edit
Byte.pm	2.37 MB	View DL Edit
Changes.e2x	179 B	View DL Edit
CJKConstants.pm	1.64 MB	View DL Edit
CN.pm	1.99 MB	View DL Edit
Config.pm	5.92 MB	View DL Edit
ConfigLocal_PM.e2x	184 B	View DL Edit
EBCDIC.pm	865 B	View DL Edit
encode.h	48.15 MB	View DL Edit
Encoder.pm	6.17 MB	View DL Edit
Encoding.pm	8.85 MB	View DL Edit
GSM0338.pm	12.56 MB	View DL Edit
Guess.pm	9.88 MB	View DL Edit
JP.pm	2.62 MB	View DL Edit
KR.pm	1.91 MB	View DL Edit
Makefile_PL.e2x	5.05 MB	View DL Edit
PerlIO.pod	5.92 MB	View DL Edit
README.e2x	553 B	View DL Edit
Supported.pod	28.06 MB	View DL Edit
Symbol.pm	847 B	View DL Edit
TW.pm	2.24 MB	View DL Edit
Unicode.pm	8.72 MB	View DL Edit
_PM.e2x	250 B	View DL Edit
_T.e2x	151 B	View DL Edit

Edit file: /usr/lib64/perl5/vendor_perl/Encode/JP.pm

package Encode::JP;
BEGIN {
    if ( ord("A") == 193 ) {
        die "Encode::JP not supported on EBCDIC\n";
    }
}
use strict;
use warnings;
use Encode;
our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };

use XSLoader;
XSLoader::load( __PACKAGE__, $VERSION );

use Encode::JP::JIS7;

1;
__END__

=head1 NAME

Encode::JP - Japanese Encodings

=head1 SYNOPSIS

use Encode qw/encode decode/; 
    $euc_jp = encode("euc-jp", $utf8);   # loads Encode::JP implicitly
    $utf8   = decode("euc-jp", $euc_jp); # ditto

=head1 ABSTRACT

This module implements Japanese charset encodings.  Encodings
supported are as follows.

Canonical   Alias		Description
  --------------------------------------------------------------------
  euc-jp      /\beuc.*jp$/i	EUC (Extended Unix Character)
              /\bjp.*euc/i   
          /\bujis$/i
  shiftjis    /\bshift.*jis$/i	Shift JIS (aka MS Kanji)
          /\bsjis$/i
  7bit-jis    /\bjis$/i		7bit JIS
  iso-2022-jp			ISO-2022-JP                  [RFC1468]
                = 7bit JIS with all Halfwidth Kana 
                  converted to Fullwidth
  iso-2022-jp-1			ISO-2022-JP-1                [RFC2237]
                                = ISO-2022-JP with JIS X 0212-1990
                  support.  See below
  MacJapanese	                Shift JIS + Apple vendor mappings
  cp932       /\bwindows-31j$/i Code Page 932
                                = Shift JIS + MS/IBM vendor mappings
  jis0201-raw                   JIS0201, raw format
  jis0208-raw                   JIS0201, raw format
  jis0212-raw                   JIS0201, raw format
  --------------------------------------------------------------------

=head1 DESCRIPTION

To find out how to use this module in detail, see L<Encode>.

=head1 Note on ISO-2022-JP(-1)?

ISO-2022-JP-1 (RFC2237) is a superset of ISO-2022-JP (RFC1468) which
adds support for JIS X 0212-1990.  That means you can use the same
code to decode to utf8 but not vice versa.

$utf8 = decode('iso-2022-jp-1', $stream);

and

$utf8 = decode('iso-2022-jp',   $stream);

yield the same result but

$with_0212 = encode('iso-2022-jp-1', $utf8);

is now different from

$without_0212 = encode('iso-2022-jp', $utf8 );

In the latter case, characters that map to 0212 are first converted
to U+3013 (0xA2AE in EUC-JP; a white square also known as 'Tofu' or
'geta mark') then fed to the decoding engine.  U+FFFD is not used,
in order to preserve text layout as much as possible.

=head1 BUGS

The ASCII region (0x00-0x7f) is preserved for all encodings, even
though this conflicts with mappings by the Unicode Consortium.

=head1 SEE ALSO

L<Encode>

=cut

Batal