File Manager

X7ROOT File Manager

Current Path: /lib64/perl5/vendor_perl/Encode

?? ..
?? Alias.pm(12.25 KB)
?? Byte.pm(2.37 KB)
?? CJKConstants.pm(1.64 KB)
?? CN
?? CN.pm(1.99 KB)
?? Changes.e2x(179 B)
?? Config.pm(5.92 KB)
?? ConfigLocal_PM.e2x(184 B)
?? EBCDIC.pm(865 B)
?? Encoder.pm(6.17 KB)
?? Encoding.pm(8.85 KB)
?? GSM0338.pm(11.6 KB)
?? Guess.pm(9.88 KB)
?? JP
?? JP.pm(2.62 KB)
?? KR
?? KR.pm(1.91 KB)
?? MIME
?? Makefile_PL.e2x(5.05 KB)
?? PerlIO.pod(5.92 KB)
?? README.e2x(553 B)
?? Supported.pod(28.06 KB)
?? Symbol.pm(847 B)
?? TW.pm(2.24 KB)
?? Unicode
?? Unicode.pm(8.72 KB)
?? _PM.e2x(250 B)
?? _T.e2x(151 B)
?? encode.h(4.05 KB)

Editing: 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

X7ROOT File Manager

Editing: JP.pm

Upload File

Create Folder