Jcode::Nihongo.3pm

Langue: en

Autres versions - même langue

Version: 2005-02-19 (debian - 07/07/09)

Section: 3 (Bibliothèques de fonctions)

Sommaire

ÌŸÁ°

Jcode - ÆüËÜžìÊž»úœž¹ç¥Ï¥ó¥É¥é

³µÍ×

  use Jcode;
  # 
  # žÅŒ°€æ€«€·€¯
  Jcode::convert($str, $ocode, $icode, "z");
  # €â€·€¯€Ï¥ª¥Ö¥ž¥§¥¯¥È»Øžþ€Ç¡ª
  print Jcode->new($str)->h2z->tr($from, $to)->utf8;

ÀâÌÀ

Jcode.pm€Ï¥ª¥Ö¥ž¥§¥¯¥ÈŪ€Ê¥¢¥×¥í¡Œ¥Á€ÈœŸÍ耫€é€Î¥¢¥×¥í¡Œ¥Á€ÎΟÊý€ò ¥µ¥Ý¡Œ¥È€·€Æ€€€Þ€¹¡£¥ª¥Ö¥ž¥§¥¯¥ÈŪ€Ê¥¢¥×¥í¡Œ¥Á€ò»È€š€Ð€³€ó€ÊŽ¶€ž€Ç¡š 
   $iso_2022_jp = Jcode->new($str)->h2z->jis;

€³€Á€é€è€ê¥š¥ì¥¬¥ó¥È€Ç€·€ç€Š¡§

   $iso_2022_jp = $str;
   &jcode::convert(\$iso_2022_jp, 'jis', &jcode::getcode(\$str), "z");

¥ª¥Ö¥ž¥§¥¯¥È€ËÆëÀ÷€ß€Î̵€€¿Í€Î€¿€á€Ë¡¢Jcode.pm€Ï€Þ€À"getcode()"€È "convert()"€ò¥µ¥Ý¡Œ¥È€·€Æ€€€Þ€¹¡£

Perl€Î¥Ð¡Œ¥ž¥ç¥ó€¬5.8.1°ÊŸå€Ê€é¡¢Jcode€Ï¡¢Perl 5.8°Ê¹ß€ÎÉžœàŪ€ÊÊž»úœž¹ç ¥Ï¥ó¥É¥é¥â¥ž¥å¡Œ¥ë€Ç€¢€ëEncode€Î¥é¥Ã¥Ñ¡Œ€È€·€Æ¿¶€ëÉñ€€€Þ€¹¡£

¥á¥œ¥Ã¥É

ÆÀ˞ÀµÚ€·€Ê€€žÂ€ê¡¢€³€³€Çµó€²€ë¥á¥œ¥Ã¥É€ÏÁŽ€ÆJcode¥ª¥Ö¥ž¥§¥¯¥È€òÊÖ€·€Þ€¹¡£

¥³¥ó¥¹¥È¥é¥¯¥¿

$j = Jcode->new($str [, $icode])
$str€«€éJcode¥ª¥Ö¥ž¥§¥¯¥È$j€òÀžÀ®€·€Þ€¹¡£ÌÀŒšÅª€Ë$icode€ò¥»¥Ã¥È€·€Ê€±€ì€Ð¡¢ ÆþÎÏ¥³¡Œ¥É€ÏŒ«Æ°Åª€ËÈœÄꀵ€ì€Þ€¹¡£ÍøÍѲÄÇœ€ÊÊž»úœž¹ç€Ë€Ä€€€Æ€Ï¡¢²Œ€Î getcode€ò»²ŸÈ€·€Æ€¯€À€µ€€¡£

Perl 5.8.1°Ê¹ß€Ç€Ï¡¢$icode€Ë€ÏEncode€¬Íý²ò€Ç€­€ë €É€ó€Ê¥š¥ó¥³¡Œ¥Ç¥£¥ó¥°ÌŸ€â»È€š€Þ€¹¡£

   $j = Jcode->new($european, 'iso-latin1');

¥ª¥Ö¥ž¥§¥¯¥È€òÊž»úÎ󲜀¹€ë€È¡¢EUC€ËÊÑŽ¹€µ€ì€¿Êž»úÎó€¬ÊÖ€ê€Þ€¹¡£€Ç€¹€«€é "print $j->euc"€È€¹€ëÂå€ï€ê€Ë¡¢"print $j"€È€Ç€­€Þ€¹¡£

¥ê¥Õ¥¡¥ì¥ó¥¹ÅÏ€·
¥¹¥«¥é¡ŒÃÍ€ÎÂå€ï€ê€Ë¡¢°Ê²Œ€Î€è€Š€Ë¥ê¥Õ¥¡¥ì¥ó¥¹€òÅÏ€»€Þ€¹¡£ 
  Jcode->new(\$str);

€³€ì€Ï€Û€ó€ÎŸ¯€·»þŽÖ€òÀáÌó€·€Þ€¹¡£€œ€ÎÂåœþ€È€·€Æ¡¢$str€ÎÃÍ€œ€Î€â€Î€¬ ÊÑŽ¹€µ€ì€Þ€¹¡Ê€¢€ë°ÕÌ£¡¢$str€Ïjcode¥ª¥Ö¥ž¥§¥¯¥È€Ë``tie€µ€ì€ë''€Î€Ç€¹¡Ë¡£

$j->set($str [, $icode])
$j€ÎÆâÉôÊž»úÎó€Ë$str€ò¥»¥Ã¥È€·€Þ€¹¡£·«€êÊÖ€·Jcode¥ª¥Ö¥ž¥§¥¯¥È€ò»È€Š€È€­€Ë ÊØÍø€Ç€¹¡Ê¥ª¥Ö¥ž¥§¥¯¥È€òÀžÀ®€¹€ë»þŽÖ€È¥á¥â¥ê€ÎÀáÌó€Ë€Ê€ê€Þ€¹¡Ë¡£ 
  # mailbox€òSJIS·ÁŒ°€ËÊÑŽ¹
  my $jconv = new Jcode;
  $/ = 00;
  while(<>){
      print $jconv->set(\$_)->mime_decode->sjis;
  }
$j->append($str [, $icode]);
$j€ÎÆâÉôÊž»úÎó€Ë$str€ò²Ã€š€Þ€¹¡£
$j = jcode($str [, $icode]);
Jcode->new() €ÎûœÌ·Á¡£°Ê²Œ€Î€è€Š€Ë€Ç€­€Þ€¹¡š 
  $sjis = jcode($str)->sjis;

Êž»úÎó€Î¥š¥ó¥³¡Œ¥É

°ìÈ̀ˡ¢$j->encoded€È€¹€ë€³€È€Çencoded€ËÊÑŽ¹€µ€ì€¿Êž»úÎó€òÆÀ€Þ€¹¡£

$sjis = $j->sjis
$euc = $j->euc
$jis = $j->jis
$sjis = $j->sjis
$ucs2 = $j->ucs2
$utf8 = $j->utf8
Œ«ÌÀ€Ç€·€ç€Š¡£ WYCIWYG = What you code is what you get :)
$iso_2022_jp = $j->iso_2022_jp
"$j->h2z->jis"€ÈƱ€ž€Ç€¹¡£ ÈŸ³Ñ¥«¥Ê€Ï¶¯À©Åª€ËÁŽ³Ñ€ËÊÑŽ¹€µ€ì€Þ€¹¡£

Perl 5.8.1°Ê¹ß€Ç€Ï¡¢Encode€¬¥µ¥Ý¡Œ¥È€¹€ë€É€ó€Ê¥š¥ó¥³¡Œ¥Ç¥£¥ó¥°ÌŸ€È ¥š¥€¥ê¥¢¥¹€Ç€âÍøÍрǀ­€Þ€¹¡£Î〚€Ð¡§

   $european = $j->iso_latin1; # ¥á¥œ¥Ã¥ÉÌŸÍÑ€Ë'-'€Ï'_'€ËÃÖ€­Ž¹€š€Þ€¹

»²¹Í¡§Encode::Encoder€¬€³€ì€ÈƱ€žŸ®µ»€ò»È€Ã€Æ€€€Þ€¹¡£

$j->fallback($fallback)
Perl 5.8.1°Ê¹ß€Ç€Ï¡¢Jcode€ÏÆâÉô€ÎÊž»úÎó€òUTF-8€ÇÊÝ»ý€·€Þ€¹¡£ ->encoding€Ë¥Þ¥Ã¥×€Ç€­€Ê€€Êž»ú€Ï'?'€ËÃÖ€­Ž¹€š€é€ì€Þ€¹€¬¡¢ €³€ì€ÏEncode€Ç€ÎÉžœàÆ°ºî€Ç€¹¡£ 
   my $unistr = "\x{262f}"; # ±¢ÍÛ¥Þ¡Œ¥¯
   my $j = jcode($unistr);  # $j->euc €Î·ë²Ì€Ï '?' €Ë

€³€Î¿¶€ëÉñ€€€Ï¡¢EncodeƱÍÍ¡¢¥Õ¥©¡Œ¥ë¥Ð¥Ã¥¯€ò»ØÄꀹ€ë€³€È€ÇÊѹ¹€Ç€­€Þ€¹¡£ ÃÍ€ÏEncode€Î€â€Î€È°ìœï€Ç€¹¡£Êص¹€Î€¿€á¡¢"Jcode::FB_PERLQQ"¡¢ "Jcode::FB_XMLCREF"¡¢"Jcode::FB_HTMLCREF"€¬Encode€Î€œ€ì€é€Ø€Î ¥š¥€¥ê¥¢¥¹€Ë€Ê€Ã€Æ€€€Þ€¹¡£

   print $j->fallback(Jcode::FB_PERLQQ)->euc;   # '\x{262f}'
   print $j->fallback(Jcode::FB_XMLCREF)->euc;  # '&#x262f;'
   print $j->fallback(Jcode::FB_HTMLCREF)->euc; # '&#9775;'

¥°¥í¡Œ¥Ð¥ëÊÑ¿ô$Jcode::FALLBACK€Ë¥Ç¥Õ¥©¥ë¥È€Î¥Õ¥©¡Œ¥ë¥Ð¥Ã¥¯€¬ÊÝ»ý €µ€ì€Æ€€€Þ€¹€Î€Ç¡¢€³€ÎÃÍ€òÂåÆþ€¹€ë€³€È€Ç¥ª¡Œ¥Ð¡Œ¥é¥€¥É€Ç€­€Þ€¹¡£

   $Jcode::FALLBACK = Jcode::FB_PERLQQ; # ¥Ç¥Õ¥©¥ë¥È€Î¥Õ¥©¡Œ¥ë¥Ð¥Ã¥¯¥¹¥­¡Œ¥Þ€òÀßÄê
[@lines =] $jcode->jfold([$width, $newline_str, $kref])
$width¡Ê¥Ç¥Õ¥©¥ë¥È¡§72¡ËËè€ËjcodeÊž»úÎóÆâ€Î¹Ô€òÀÞ€êÊÖ€·€Þ€¹¡£ $width€Ï¡ÉÈŸ³Ñ¡ÉÊž»ú€Î¿ô€Ç€¹¡£ÁŽ³ÑÊž»ú€Ï2Êž»ú€È€·€Æ¥«¥Š¥ó¥È€·€Þ€¹¡£

$newline_str¡Ê¥Ç¥Õ¥©¥ë¥È€Ï``\n''¡Ë€Ç»ØÄꀵ€ì€¿²þ¹ÔÊž»ú€¬²Ã€ï€ê€Þ€¹¡£ ÀÞ€êÊÖ€µ€ì€¿ÁŽ¹Ô€ò¥ê¥¹¥È€ÇÊÖ€·€Þ€¹¡£

Perl 5.8.1°Ê¹ß€Ï3ÈÖÌ܀ΰú¿ô$kref€ËEUC€ÎÊž»úÎó€ÎÇÛÎó¥ê¥Õ¥¡¥ì¥ó¥¹€ò ÅÏ€¹€³€È€Ç¡¢ŽÊ°×Ū€Ê¹ÔƬ¶Ø§œèÍý¡Ê€Ö€é²Œ€¬€ê¡Ë€ò¹Ô€š€Þ€¹¡£

$length = $jcode->jlength();
¥Ð¥€¥ÈĹ€Ç€Ï€Ê€¯¡¢ÁŽ³ÑÊž»ú€â°ìÊž»ú€È€·€Æ¿ô€š€¿Ÿì¹ç€ÎÊž»ú¿ô€òÊÖ€·€Þ€¹¡£

MIME::Base64€ò»È€Š¥á¥œ¥Ã¥É

²Œµ­€Î¥á¥œ¥Ã¥É€ò»È€Š€Ë€Ï¡¢MIME::Base64€¬É¬Í׀ǀ¹¡£¥€¥ó¥¹¥È¡Œ¥ë€Ïñœã€Ë

    perl -MCPAN -e 'CPAN::Shell->install("MIME::Base64")'

€È€·€Þ€¹¡£€ª»È€€€ÎPerl€¬5.6°Ê¹ß€Ç€¢€ë€Ê€é¡¢MIME::Base64€Ï ¥Ð¥ó¥É¥ë€µ€ì€Æ€€€ë€Î€Ç¡¢¥€¥ó¥¹¥È¡Œ¥ë€ÎɬÍ׀π¢€ê€Þ€»€ó¡£

$mime_header = $j->mime_encode([$lf, $bpl])
$str€òRFC1522€Ë€¢€ëMIME-Header€ËÊÑŽ¹€·€Þ€¹¡£$lf€ò»ØÄꀹ€ë€È¡¢ ¹Ô€ÎÀÞ€êÊÖ€·€Ë$lf€¬»È€ï€ì€Þ€¹¡Ê¥Ç¥Õ¥©¥ë¥È¡§\n¡Ë¡£ $bpl€ò»ØÄꀹ€ë€È¡¢ÀÞ€êÊÖ€¹¥Ð¥€¥È¿ô€Ë$bpl€¬»È€ï€ì€Þ€¹¡Ê¥Ç¥Õ¥©¥ë¥È¡§76¡š €³€Î¿ôÃÍ€Ï76°Ê²Œ€Ç€Ê€±€ì€Ð€Ê€ê€Þ€»€ó¡Ë¡£

Perl 5.8.1°Ê¹ß€Ç€Ï¡¢°Ê²Œ€Î€è€Š€Ë€·€Æ€âMIME Header¥š¥ó¥³¡Œ¥É€¬€Ç€­€Þ€¹¡§

   $mime_header = $j->MIME_Header;

€³€ÎŸì¹ç$mime_header€ÎÌá€êÃÍ€ÏMIME-B-encoded UTF-8€Ë€Ê€ê€Þ€¹¡£ °ìÊý¡¢"$j->mime_encode()"€ÏMIME-B-encoded ISO-2022-JP€òÊÖ€·€Þ€¹¡£ ºÇ¶á€Î€Û€È€ó€É€Î¥á¡Œ¥é¡Œ€Ï€É€Á€é€â¥µ¥Ý¡Œ¥È€·€Æ€€€Þ€¹¡£

$j->mime_decode;
Jcode¥ª¥Ö¥ž¥§¥¯¥È€ÎÆâÉôÊž»úÎó€òMIME-Header¥Ç¥³¡Œ¥É€·€Þ€¹¡£Perl 5.8.1 °Ê¹ß€Ê€é¡¢°Ê²Œ€Î€è€Š€Ë€·€ÆƱ€ž€³€È€¬€Ç€­€Þ€¹¡§ 
   Jcode->new($str, 'MIME-Header');

€³€Á€é€ÎŸì¹ç¡¢ISO-2022-JP€À€±€Ç€Ï€Ê€¯UTF-8€Ê€É€Ë€âÂбþ€·€Æ€ª€ê¡¢ €µ€é€ËMIME B Encoding€Î€ß€Ê€é€ºMIME Q Encoding€Ë€âÂбþ€·€Æ€€€ë €Î€Ç¡¢Perl 5.8.1°Ê¹ß€Ç€¢€ì€Ð€³€Á€é€ò»È€Š€Ù€­€Ç€·€ç€Š¡£

ÈŸ³Ñ ¢«¢ª ÁŽ³Ñ

$j->h2z([$keep_dakuten])
X201¥«¥Ê¡ÊÈŸ³Ñ¡Ë€òX208¥«¥Ê¡ÊÁŽ³Ñ¡Ë€ËÊÑŽ¹€·€Þ€¹¡£ $keep_dakuten€Ë¿¿ÃÍ€ò¥»¥Ã¥È€¹€ë€È¡¢ÂùÅÀ€ò€œ€Î€Þ€Þ€Ë€·€Þ€¹ (€³€ì€Ï€Ä€Þ€ê¡¢¡Ö¥«¡Ü¡«¡×€Ï¡Ö¥¬¡×€ËÊÑŽ¹€µ€ì€º€Ë€œ€Î€Þ€Þ €Ë€Ê€ë€È€€€Š€³€È€Ç€¹)

$j->nmatch€òÄÌ€ž€Æ¥Þ¥Ã¥Á€·€¿¿ô€òŒèÆÀ€Ç€­€Þ€¹¡£

$j->z2h
X208¥«¥Ê¡ÊÁŽ³Ñ¡Ë€òX201¥«¥Ê¡ÊÈŸ³Ñ¡Ë€ËÊÑŽ¹€·€Þ€¹¡£

$j->nmatch€òÄÌ€ž€Æ¥Þ¥Ã¥Á€·€¿¿ô€òŒèÆÀ€Ç€­€Þ€¹¡£

Àµµ¬Éœžœ¥š¥ß¥å¥ì¡Œ¥¿

"->m()"€È"->s()"€ò»È€Š€Ë€Ï¡¢Perl 5.8.1°Ê¹ß€¬ ɬÍ׀ǀ¹¡£

$j->tr($from, $to, $opt);
Jcode¥ª¥Ö¥ž¥§¥¯¥È€Ë"tr/$from/$to/"€òŬÍÑ€·€Þ€¹¡£$from€È$to€Ï EUC-JP€ÎÊž»úÎó€Ç€¹¡£Perl 5.8.1°Ê¹ß€Ç€Ï¡¢flagÉÕ€­€ÎUTF-8Êž»úÎó €âŒõ€±ÉÕ€±€Þ€¹¡£

$opt€ò¥»¥Ã¥È€¹€ë€È¡¢"tr/$from/$to/$opt"€¬Å¬ÍÑ€µ€ì€Þ€¹¡£$opt€Ï 'c'¡¢'d'€¢€ë€€€Ï€œ€ì€é€ÎÁȀ߹ç€ï€»€Ç€Ê€±€ì€Ð€Ê€ê€Þ€»€ó¡£

$j->nmatch€òÄÌ€ž€Æ¥Þ¥Ã¥Á€·€¿¿ô€òŒèÆÀ€Ç€­€Þ€¹¡£

Perl 5.8.1°Ê¹ß€Ç€Ï¡¢tr€Î·ÁŒ°€Ëží€ê€Î€¢€Ã€¿Ÿì¹ç€Ë->error_tr€òÄÌ€ž€Æ¡¢ $@€òŒèÆÀ€Ç€­€Þ€¹¡£

°Ê²Œ€Î¥á¥œ¥Ã¥É€ÏPerl 5.8.1°Ê¹ß€Ç€Î€ßÍøÍѲÄÇœ€Ç€¹¡£

$j->s($patter, $replace, $opt);
žÄ¡¹€Ë"s/$pattern/$replace/$opt"€òŬÍÑ€·€Þ€¹¡£$opt€ÏÀµµ¬Éœžœ¥ª¥×¥·¥ç¥ó€È Ʊ€ž€Ç€¹¡£Àµµ¬Éœžœ€Î¥ª¥×¥·¥ç¥ó€Ë€Ä€€€Æ€Ïperlre€ò»²ŸÈ€¯€À€µ€€¡£

"$j->tr()"¡¢"$j->s()"€Ï€œ€Î¥ª¥Ö¥ž¥§¥¯¥ÈŒ«¿È€òÊÖ€¹€Î€Ç¡¢ °Ê²Œ€Î€è€Š€ËÁàºî€òÏ¢·ë€Ç€­€Þ€¹¡£

   $j->tr("A-Z", "a-z")->s("foo", "bar");
[@match = ] $j->m($pattern, $opt);
"m/$patter/$opt"€òŬÍÑ€·€Þ€¹¡£€³€Î¥á¥œ¥Ã¥É€Ï¡É¥ª¥Ö¥ž¥§¥¯¥È€òÊÖ€µ€Ê€€¡É €Î€Ç¡¢"$j->s()"€Î€è€Š€Ë¥á¥œ¥Ã¥É€òÏ¢·ë€Ç€­€Ê€€€³€È€ËÃí°Õ€·€Æ€¯€À€µ€€¡£

Àµµ¬Éœžœ€Î·ÁŒ°€Ëží€ê€Î€¢€Ã€¿Ÿì¹ç¡¢->error_m¡¢->error_s€òÄÌ€ž€Æ $@€òŒèÆÀ€Ç€­€Þ€¹¡£

¥€¥ó¥¹¥¿¥ó¥¹ÊÑ¿ô

€â€·Jcode¥ª¥Ö¥ž¥§¥¯¥È€Î¥€¥ó¥¹¥¿¥ó¥¹ÊÑ¿ô€Ë¥¢¥¯¥»¥¹€·€¿€€€Ê€é¡¢ÄŸÀÜ€œ€ì€é €Ë¥¢¥¯¥»¥¹€¹€ë€Î€Ç€Ï€Ê€¯¡¢¥¢¥¯¥»¥¹¥á¥œ¥Ã¥É€òÍøÍÑ€·€Þ€·€ç€Š¡Ê€³€ì€ŸOOP €Ç€¹¡Ë¡£

»²¹Í€Þ€Ç€Ë¡¢Jcode€Ï¡Ê°ìÈÌŪ€ÊÊýË¡€Ç€¢€ë¡Ë¥Ï¥Ã¥·¥å¥ê¥Õ¥¡¥ì¥ó¥¹€ÎÂå€ï€ê€Ë¡¢ ÇÛÎó¥ê¥Õ¥¡¥ì¥ó¥¹€ò»È€Š€³€È€Ç¡¢¥¹¥Ô¡Œ¥É€òºÇŬ²œ€·€Æ€€€Þ€¹¡ÊŒÂºÝ€Î€È€³€í¡¢ ¥¢¥¯¥»¥¹¥á¥œ¥Ã¥É€ò»È€ŠžÂ€ê€³€Î€³€È€òÃ΀ëɬÍ׀π¢€ê€Þ€»€ó¡š €â€Š°ìÅÙ €€€€€Þ€¹€¬¡¢€³€ì€ÏOOP€Ê€Î€Ç€¹¡Ë¡£

Perl 5.8.1°Ê¹ß€Ç€Ï¡¢¥Ï¥Ã¥·¥å¥ê¥Õ¥¡¥ì¥ó¥¹€ò»È€Š€è€Š€ËÊѹ¹€µ€ì€Þ€·€¿¡£ €³€ì€Ë€è€ê¡¢Jcode€Î³ÈÄ¥€Ï€â€Î€¹€Ž€¯ŽÊñ€Ë€Ê€ê€Þ€¹¡£

$j->r_str
EUCÊž»úÎó€Ø€Î¥ê¥Õ¥¡¥ì¥ó¥¹¡£

Perl 5.8.1°Ê¹ß€Ç€ÏUTF-8¥Õ¥é¥°€ÎΩ€Ã€¿UTF-8Êž»úÎó€Ø€Î¥ê¥Õ¥¡¥ì¥ó¥¹€Ç€¹¡£

$j->icode
ÄŸ¶á€ÎÁàºî€Ë€ª€±€ëÆþÎÏÊž»ú¥³¡Œ¥É¡£
$j->nmatch
¥Þ¥Ã¥Á€·€¿¿ô¡Ê$j->trÅù€ò»È€Ã€¿€È€­¡Ë¡£

¥µ¥Ö¥ë¡Œ¥Á¥ó

($code, [$nmatch]) = getcode($str)
$str€ÎÊž»ú¥³¡Œ¥É€òÊÖ€·€Þ€¹¡£Êր륳¡Œ¥É€Ï°Ê²Œ€ÎÄÌ€ê€Ç€¹¡£ 
  ascii   Ascii ¡ÊÆüËܞ쥳¡Œ¥É€òŽÞ€Þ€Ê€€¡Ë
  binary  Binary ¡Ê¥Æ¥­¥¹¥È¥Õ¥¡¥€¥ë€Ç€Ï€Ê€€¡Ë
  euc     EUC-JP
  sjis    SHIFT_JIS
  jis     JIS (ISO-2022-JP)
  ucs2    UCS2 (Raw Unicode)
  utf8    UTF8

¥¹¥«¥é¡Œ¥³¥ó¥Æ¥­¥¹¥È€ÎÂå€ï€ê€ËÇÛÎó¥³¥ó¥Æ¥­¥¹¥È€ò»È€Š€È¡¢²¿Êž»úʬ€Î ¥³¡Œ¥É€¬ž«€Ä€«€Ã€¿€Î€«€âÊÖ€·€Þ€¹¡£Ÿå€ÎÊý€ÇœÒ€Ù€¿€è€Š€Ë¡¢$str€Ï\$str €Ç€â¹œ€€€Þ€»€ó¡£

jcode.pl ÍøÍьԀÎÊý€Ø¡§ €³€ÎŽØ¿ô€Ïjcode::getcode()€È100%Ÿå°ÌžßŽ¹€¬ €¢€ê€Þ€¹¡£¡œ¡œ€Þ€¢¡¢€Û€Ü100%¡š

  * Ìá€êÃÍ€¬ÇÛÎó€Î€È€­¡¢€œ€ÎœçÈրϵՀȀʀê€Þ€¹¡š
    jcode::getcode()€Ï$nmatch€òºÇœé€ËÊÖ€·€Þ€¹¡£
 
 

  * jcode::getcode()€Ï¡¢EUCÊž»ú€ÈSJISÊž»ú€Î¿ô€¬Åù€·€€€È€­¡¢'undef'€ò
    ÊÖ€·€Þ€¹¡£ Jcode::getcode()€ÏEUC€òÊÖ€·€Þ€¹¡£€³€ì€ÏJcode.pm€Ë€Ï
    ÃæŽÖ€¬€Ê€€€¿€á€Ç€¹¡£
Jcode::convert($str, [$ocode, $icode, $opt])
$str€ò$ocode€Ç»ØÄꀷ€¿Êž»ú¥³¡Œ¥É€ËÊÑŽ¹€·€Þ€¹¡£$icode€â»ØÄꀹ€ë€È¡¢ ÆþÎÏÊž»úÎó€ògetcode()€Ç¥Á¥§¥Ã¥¯€¹€ëÂå€ï€ê€Ë¡¢$icode€È²ŸÄꀷ€Þ€¹¡£ Ÿå€ÎÊý€ÇœÒ€Ù€¿€è€Š€Ë¡¢$str€Ï\$str€Ç€â¹œ€€€Þ€»€ó¡£

jcode.pl ÍøÍьԀÎÊý€Ø¡§ €³€ÎŽØ¿ô€Ïjcode::convert()€È100%Ÿå°ÌžßŽ¹€¬ €¢€ê€Þ€¹¡ª

¥Ð¥°

Perl€¬5.8.1°Ê¹ß€ÎŸì¹ç¡¢Jcode€ÏEncode€Î¥é¥Ã¥Ñ¡Œ€È€·€Æ¿¶€ëÉñ€€€Þ€¹¡£ €Ä€Þ€ê¡¢Jcode€ÏEncodeÆâ€Î¥Ð¥°€Î±Æ¶Á€òŒõ€±€Þ€¹¡£

ŒÕŒ­

€³€Î¥Ñ¥Ã¥±¡Œ¥ž€Ï¡¢Æ°µ¡¡¢¥Ç¥¶¥€¥ó€œ€·€Æ¥³¡Œ¥É€Î¿€¯€ÎÅÀ€Ç¡¢ ²ÎÂå ÏÂÀµ <utashiro@iij.ad.jp>»á€ÎPerl4¥é¥€¥Ö¥é¥êjcode.pl€ËÉé€Ã€Æ€€€Þ€¹¡£

Âçºê ÇîŽð <ohzaki@iod.ricoh.co.jp>»á€Ï¡¢³«È¯€ÎÈóŸï€ËœéŽü€ÎÃʳ¬€«€é Àµµ¬Éœžœ€òËိ€¢€²€ëŒêœõ€±€ò€·€Æ€¯€ì€Þ€·€¿¡£

makamaka@donzoko.net €Î JEncode €Ë€Ï¡¢Jcode€ÈEncode€ò€É€ŠÍ»¹ç€µ€»€ì€Ð €€€€€«ÂçÊÑÂ瀭€Ê·ŒŒš€òŒõ€±€Þ€·€¿¡£€Þ€¿¡¢ËÜÆüËÜžì¥Þ¥Ë¥å¥¢¥ë€âŽó£€·€Æ €€€¿€À€­€Þ€·€¿¡£

€œ€·€ÆJcode ML <jcode5@ring.gr.jp>€Î³§€µ€ó¡£€³€ÎÊýã€Ê€·€Ë€Ï¡¢ €³€³€Þ€ÇŽ°À®€·€Ê€«€Ã€¿€³€È€Ç€·€ç€Š¡£

»²¹Í

Encode

<http://www.iana.org/assignments/character-sets>

Ãøºîž¢

Copyright 1999-2005 Dan Kogai <dankogai@dan.co.jp>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.