The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

=pod

=encoding Shift_JIS

=head1 –¼Ì

ShiftJIS::CP932::Correct - Windows CP-932‚Ì•¶Žš—ñ‚𐳂µ‚¢‚à‚Ì‚É‚·‚é

=head1 ŠT—v

    use ShiftJIS::CP932::Correct;

    $corrected_cp932 = correct_cp932($cp932_string);

=head1 à–¾

Microsoft Code Page 932 (CP-932) ‚̃e[ƒuƒ‹‚́AŽŸ‚Ì7915•¶Žš‚©‚ç‚È‚è‚Ü‚·B

  JIS X 0201 ˆêƒoƒCƒg•¶Žš (191•¶Žš),
  JIS X 0208 “ñƒoƒCƒg•¶Žš (6879•¶Žš),
  NEC“ÁŽê•¶Žš (SJIS 13‹æ‚©‚ç 83•¶Žš),
  NEC‘I’èIBMŠg’£•¶Žš (SJIS 89`92‹æ‚©‚ç 374•¶Žš),
  ‚»‚µ‚Ä IBMŠg’£•¶Žš (SJIS 115`119‹æ‚©‚ç 388•¶Žš).

‚±‚̃e[ƒuƒ‹‚ɂ́A“¯‚¶•¶Žš‚ª“ñdiŽáŠ±‚Ì‚à‚Ì‚ÍŽOdj‚É’è‹`‚³‚ê‚Ä‚¢‚邽‚߂ɁA
Unicode‚Ƃ̉•œ•ÏŠ·‚ª‚Å‚«‚È‚¢•¶Žš‚ª‚ ‚è‚Ü‚·B‚±‚ê‚Í NEC ‚¨‚æ‚Ñ
IBM ‚̃xƒ“ƒ_’è‹`•¶Žš‚Ì‚½‚ß‚Å‚·B

—Ⴆ‚΁AUnicode ‚Ì C<U+2252> ‚ɑΉž‚·‚é CP-932 ‚Ì•¶Žš‚́A
JIS X 0208 ‚Ì C<0x81e0> ‚Æ NEC“ÁŽê•¶Žš‚Ì C<0x8790> ‚Ì
‚Q‚‚ª‚ ‚è‚Ü‚·B
‚»‚Ì‚½‚߁AUnicode ‚©‚ç CP-932 ‚Ö‚Ì•ÏŠ·ƒvƒƒOƒ‰ƒ€‚Ì’†‚ɂ́A
C<U+2252> ‚ðA•s’ˆÓ‚Ì‚½‚ß C<0x81e0> ‚Å‚Í‚È‚­A
C<0x8790> ‚É•ÏŠ·‚·‚é‚à‚Ì‚ª‚ ‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñB

‚±‚̂悤‚È‹““®‚͍D‚Ü‚µ‚­‚ ‚è‚Ü‚¹‚ñB‚È‚º‚È‚çA
NEC“ÁŽê•¶Žši‚Ü‚½‚Í‘¼‚̃xƒ“ƒ_’è‹`•¶Žšj‚͌݊·«‚ª’á‚¢‚©‚ç‚Å‚·B

‚±‚̃‚ƒWƒ…[ƒ‹‚́A‚»‚̂悤‚ȁi³‚µ‚¢‚±‚Ƃ͐³‚µ‚¢‚Ì‚¾‚ª‚â‚Í‚èj
uŠÔˆá‚Á‚Ä‚¢‚évCP-932 •¶Žš—ñ‚𐳂µ‚¢‚à‚Ì‚É‚µ‚Ü‚·B

‚±‚̃‚ƒWƒ…[ƒ‹‚́A
"Microsoft PRB: Conversion Problem Between Shift-JIS and Unicode (Article ID: Q170559)"
‚Å’ñ‹Ÿ‚³‚ꂽƒ}ƒbƒv‚ðŽg—p‚µ‚Ä‚¢‚Ü‚·B

=over 4

=item C<correct_cp932(STRING)>

CP-932 •¶Žš—ñ‚𐳂µ‚¢‚à‚Ì‚É‚µ‚Ä•Ô‚µ‚Ü‚·B
‚·‚È‚í‚¿A‘½d’è‹`•¶Žš‚̍D‚Ü‚µ‚­‚È‚¢‹æ“_‚ðD‚Ü‚µ‚¢‹æ“_‚É•ÏŠ·‚µ‚Ü‚·B
Unicode‚Ƃ̉•œ•ÏŠ·‚ª‰Â”\‚È•¶Žš‚Í‚»‚Ì‚Ü‚ÜŽc‚³‚ê‚Ü‚·B
CP-932‚Å’è‹`‚³‚ê‚È‚¢‹æ“_‚Ì•¶Žš‚͍폜‚³‚ê‚Ü‚·B
—Ⴆ‚΁CC<"\x87\x90"> ‚Í C<"\x81\xe0"> ‚É•ÏŠ·‚³‚ê‚Ü‚·B

=item C<is_corrected_cp932(STRING)>

•¶Žš—ñ‚ªu³‚µ‚­‚³‚ꂽvCP-932 •¶Žš—ñ‚ª‚Ç‚¤‚©‚̐^‹U’l‚ð•Ô‚µ‚Ü‚·B

=item C<is_cp932(STRING)>

•¶Žš—ñ‚ª CP-932 •¶Žš—ñ‚ª‚Ç‚¤‚©‚̐^‹U’l‚ð•Ô‚µ‚Ü‚·B

=back

=head2 —Ao

  correct_cp932 ‚Æ is_corrected_cp932 ‚̓fƒtƒHƒ‹ƒg‚Å—Ao‚³‚ê‚Ü‚·B
  is_cp932 ‚Í—v‹‚É‚æ‚è—Ao‚Å‚«‚Ü‚·B

=head1 ’ˆÓŽ–€

u³‚µ‚­‚³‚ꂽvCP-932 ‚Æ‚¢‚Á‚Ä‚àAƒxƒ“ƒ_’è‹`•¶Žš‚ðŠÜ‚Ý“¾‚é‚à‚Ì‚Å‚·B

CP-932‚́AShift_JIS‚Ƃ͈Ⴂ‚Ü‚·B

=head1 ìŽÒ

SADAHIRO Tomoyuki <SADAHIRO@cpan.org> ’åœA ’ms

Copyright(C) 2001-2002, 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 ŽQl

=over 4

=item 1

Microsoft PRB: Conversion Problem Between Shift-JIS and Unicode
(Article ID: Q170559)

=item 2

L<ShiftJIS::CP932::MapUTF>

=back

=cut