1N/A if (
ord(
"A") ==
193) {
1N/A die "Encode::KR not supported on EBCDIC\n";
1N/Aour $
VERSION =
do {
my @r = (q$
Revision:
1.23 $ =~ /\d+/g);
sprintf "%d.".
"%02d" x $
#r, @r }; 1N/AEncode::KR - Korean Encodings 1N/A $euc_kr = encode("euc-kr", $utf8); # loads Encode::KR implicitly 1N/A $utf8 = decode("euc-kr", $euc_kr); # ditto 1N/AThis module implements Korean charset encodings. Encodings supported 1N/A Canonical Alias Description 1N/A -------------------------------------------------------------------- 1N/A euc-kr /\beuc.*kr$/i EUC (Extended Unix Character) 1N/A ksc5601-raw Korean standard code set (as is) 1N/A cp949 /(?:x-)?uhc$/i 1N/A /(?:x-)?windows-949$/i 1N/A /\bks_c_5601-1987$/i 1N/A Code Page 949 (EUC-KR + 8,822 1N/A (additional Hangul syllables) 1N/A MacKorean EUC-KR + Apple Vendor Mappings 1N/A johab JOHAB A supplementary encoding defined in 1N/A Annex 3 of KS X 1001:1998 1N/A iso-2022-kr iso-2022-kr [RFC1557] 1N/A -------------------------------------------------------------------- 1N/ATo find how to use this module in detail, see L<Encode>. 1N/AWhen you see C<charset=ks_c_5601-1987> on mails and web pages, they really 1N/Amean "cp949" encodings. To fix that, the following aliases are set; 1N/A qr/(?:x-)?uhc$/i => '"cp949"' 1N/A qr/(?:x-)?windows-949$/i => '"cp949"' 1N/AThe ASCII region (0x00-0x7f) is preserved for all encodings, even 1N/Athough this conflicts with mappings by the Unicode Consortium. See 1N/Ato find out why it is implemented that way.