ShiftJIS-CP932-MapUTF
view release on metacpan or search on metacpan
MapUTF/Japanese.pod view on Meta::CPAN
R[ht@XÌݪg¦Ü·B
»ÌR[ht@XÌÔèlª
}bsOÌÈ¢¶ÌãíèÉ}ü³êÜ·B
R[ht@X C<UNICODE_CALLBACK> ÍA
êÂÈãÌøÆÆàÉÄÑo³êÜ·B}bsOÌÈ¢¶ª
ªI¶is³ÈoCgjÌêAæêøÍ¢è`liC<undef>jÉÈèA
æñøÍoCgð\·Èµ®lÉÈèÜ·B
ª¶ÅȯêÎAæêøÍAUnicode¶ÌÊuð\·
ȵ®lÉÈèÜ·B
á¦ÎACP-932 ÖÌΪȢ¶ð HTML 4.01 Ìl¶QÆÉ
Ï··éû@ð¦µÜ·B
sub toHexNCR {
my ($char, $byte) = @_;
return sprintf("&#x%x;", $char) if defined $char;
die sprintf "illegal byte 0x%02x was found", $byte;
}
$cp932 = utf8_to_cp932 (\&toHexNCR, $utf8_string);
$cp932 = unicode_to_cp932(\&toHexNCR, $unicode_string);
$cp932 = utf16le_to_cp932(\&toHexNCR, $utf16le_string);
C<UNICODE_CALLBACK> ÌÔèlÍ CP-932 Ƶijµ éKvª èÜ·B
C<UNICODE_OPTION> ð C<STRING> Ìãɨ±ÆªÅ«Ü·B
±êçÍ C<'fg'> â C<'gsf'> Ìæ¤ÉgÝí¹é±Æà
ūܷiÍCÓÅ·jB
'g' CP-932 Oi[Uè`¶j[0xF040`0xF9FC (95`114æ)] É
Unicode Ì PUA [0xE000`0xE757] ©çÏ·µÜ·i1880 ¶jB
's' CP-932 ¢è`ÌêoCg¶ÌÎt¯ðÇÁµÜ·B
U+0080 => 0x80, U+F8F0 => 0xA0,
U+F8F1 => 0xFD, U+F8F2 => 0xFE, U+F8F3 => 0xFF.
'f' Unicode ©ç CP-932 ÖÌô©ÌãpIÈÏ· (fallbacks) ð
ÇÁµÜ·B}bsOªÇÁ³êé¶ÍAlatin-1 Ìæ
[U+00A0..U+00FF] ̤¿Ìô©̶ÆA½¼¼Ì [U+3094,
м¼Ì (0x8394) ÉÈèÜ·] Å·B
=over 4
=item C<utf8_to_cp932([UNICODE_CALLBACK,] STRING [, UNICODE_OPTION])>
UTF-8 ð CP-932 ÉÏ·µÜ·B
=item C<unicode_to_cp932([UNICODE_CALLBACK,] STRING [, UNICODE_OPTION])>
Unicode ð CP-932 ÉÏ·µÜ·B
±Ì B<Unicode> ÍAPerl Ìà`®iF<perlunicode> QÆjB
C<SVf_UTF8> tOt«ÅÈ¢êAISO 8859-1 (latin1) ¶ñƵÄ
Unicode É upgrade ³êÜ·B
B<±ÌÖÍ Perl 5.6.1 È~A©Â XS ÅÅÌÝñ³êÜ·B>
=item C<utf16_to_cp932([UNICODE_CALLBACK,] STRING [, UNICODE_OPTION])>
UTF-16 (C<BOM> t«Ü½Í³µ) ð CP-932 ÉÏ·µÜ·B
=item C<utf16le_to_cp932([UNICODE_CALLBACK,] STRING [, UNICODE_OPTION])>
UTF-16LE ð CP-932 ÉÏ·µÜ·B
=item C<utf16be_to_cp932([UNICODE_CALLBACK,] STRING [, UNICODE_OPTION])>
UTF-16BE ð CP-932 ÉÏ·µÜ·B
=item C<utf32_to_cp932([UNICODE_CALLBACK,] STRING [, UNICODE_OPTION])>
UTF-32 (C<BOM> t«Ü½Í³µ) ð CP-932 ÉÏ·µÜ·B
=item C<utf32le_to_cp932([UNICODE_CALLBACK,] STRING [, UNICODE_OPTION])>
UTF-32LE ð CP-932 ÉÏ·µÜ·B
=item C<utf32be_to_cp932([UNICODE_CALLBACK,] STRING [, UNICODE_OPTION])>
UTF-32BE ð CP-932 ÉÏ·µÜ·B
=back
=head2 Ao
B<ftHg:>
cp932_to_utf8 utf8_to_cp932
cp932_to_utf16le utf16le_to_cp932
cp932_to_utf16be utf16be_to_cp932
cp932_to_unicode unicode_to_cp932 (XS ÌÝÅñ³êÜ·)
B<v³êêÎ:>
cp932_to_utf32le utf32le_to_cp932
cp932_to_utf32be utf32be_to_cp932
utf16_to_cp932 [*]
utf32_to_cp932 [*]
[*] ±êçÆÎ·×« C<cp932_to_utf16()> ¨æÑ C<cp932_to_utf32()>
Í¢ÀÅ·Bܾ C<SJIS_CALLBACK> ÌÔèlÉ¢Äव¢ª
KvÆl¦Ä¢Ü·B
i¶ñÌAÉ C<BOM> ÌF¯ÆªKvÆÈéŵå¤Bj
=head1 Ó
±ÌW
[Ì Pure Perl ÅÍCh¶iF<perlunicode> ðQÆjð
ðūܹñBKvÈçAPerl 5.7 È~Ì
C<utf8::decode>/C<utf8::encode>iF<utf8> ðQÆjðgÁľ³¢B
=head1 ìÒ
SADAHIRO Tomoyuki <SADAHIRO@cpan.org> iåA msj
Copyright(C) 2001-2007, SADAHIRO Tomoyuki. Japan. All rights reserved.
This module is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
=head1 Ql¿
=over 4
=item Microsoft PRB, Article ID: Q170559
Conversion Problem Between Shift-JIS and Unicode
=item cp932 to Unicode table
http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP932.TXT
http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WindowsBestFit/bestfit932.txt
http://www.microsoft.com/globaldev/reference/dbcs/932.htm
=back
=cut
( run in 0.387 second using v1.01-cache-2.11-cpan-39bf76dae61 )