blob: 9e2e1d3d773ebe3eb66917a0e3189c443cf63bff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
package Encode::KR;
BEGIN {
if (ord("A") == 193) {
die "Encode::KR not supported on EBCDIC\n";
}
}
our $VERSION = do { my @r = (q$Revision: 0.98 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use Encode;
use XSLoader;
XSLoader::load('Encode::KR',$VERSION);
1;
__END__
=head1 NAME
Encode::KR - Korean Encodings
=head1 SYNOPSIS
use Encode qw/encode decode/;
$euc_kr = encode("euc-kr", $utf8); # loads Encode::KR implicitly
$utf8 = decode("euc-kr", $euc_kr); # ditto
=head1 DESCRIPTION
This module implements Korean charset encodings. Encodings supported
are as follows.
Canonical Alias Description
--------------------------------------------------------------------
euc-kr /euc.*kr$/i EUC (Extended Unix Character)
/kr.*euc/i
ksc5601 Korean standard code set
cp949 Code Page 949
(EUC-KR + Unified Hangul Code)
--------------------------------------------------------------------
To find how to use this module in detail, see L<Encode>.
=head1 BUGS
The C<Johab> (two-byte combination code) encoding is not supported.
ASCII part (0x00-0x7f) is preserved for all encodings, even though it
conflicts with mappings by the Unicode Consortium. See
L<http://www.debian.or.jp/~kubota/unicode-symbols.html.en>
to find why it is implemented that way.
=head1 SEE ALSO
L<Encode>
=cut
|
