.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Jcode::Nihongo 3pm"
.TH Jcode::Nihongo 3pm "2005-02-19" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "̾Á°"
.IX Header "̾Á°"
Jcode \- ÆüËܸìʸ»ú½¸¹ç¥Ï¥ó¥É¥é
.SH "³µÍ×"
.IX Header "³µÍ×"
.Vb 6
\& use Jcode;
\& # 
\& # ¸Å¼°¤æ¤«¤·¤¯
\& Jcode::convert($str, $ocode, $icode, "z");
\& # ¤â¤·¤¯¤Ï¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤Ç¡ª
\& print Jcode\->new($str)\->h2z\->tr($from, $to)\->utf8;
.Ve
.SH "ÀâÌÀ"
.IX Header "ÀâÌÀ"
Jcode.pm¤Ï¥ª¥Ö¥¸¥§¥¯¥ÈŪ¤Ê¥¢¥×¥í¡¼¥Á¤È½¾Í褫¤é¤Î¥¢¥×¥í¡¼¥Á¤ÎξÊý¤ò
¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£¥ª¥Ö¥¸¥§¥¯¥ÈŪ¤Ê¥¢¥×¥í¡¼¥Á¤ò»È¤¨¤Ð¤³¤ó¤Ê´¶¤¸¤Ç¡¨
.PP
.Vb 1
\&  $iso_2022_jp = Jcode\->new($str)\->h2z\->jis;
.Ve
.PP
¤³¤Á¤é¤è¤ê¥¨¥ì¥¬¥ó¥È¤Ç¤·¤ç¤¦¡§
.PP
.Vb 2
\&  $iso_2022_jp = $str;
\&  &jcode::convert(\e$iso_2022_jp, 'jis', &jcode::getcode(\e$str), "z");
.Ve
.PP
¥ª¥Ö¥¸¥§¥¯¥È¤ËÆëÀ÷¤ß¤Î̵¤¤¿Í¤Î¤¿¤á¤Ë¡¢Jcode.pm¤Ï¤Þ¤À\f(CW\*(C`getcode()\*(C'\fR¤È
\&\f(CW\*(C`convert()\*(C'\fR¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£
.PP
Perl¤Î¥Ð¡¼¥¸¥ç¥ó¤¬5.8.1°Ê¾å¤Ê¤é¡¢Jcode¤Ï¡¢Perl 5.8°Ê¹ß¤Îɸ½àŪ¤Êʸ»ú½¸¹ç
¥Ï¥ó¥É¥é¥â¥¸¥å¡¼¥ë¤Ç¤¢¤ëEncode¤Î¥é¥Ã¥Ñ¡¼¤È¤·¤Æ¿¶¤ëÉñ¤¤¤Þ¤¹¡£
.SH "¥á¥½¥Ã¥É"
.IX Header "¥á¥½¥Ã¥É"
Æä˸ÀµÚ¤·¤Ê¤¤¸Â¤ê¡¢¤³¤³¤Çµó¤²¤ë¥á¥½¥Ã¥É¤ÏÁ´¤ÆJcode¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤·¤Þ¤¹¡£
.Sh "¥³¥ó¥¹¥È¥é¥¯¥¿"
.IX Subsection "¥³¥ó¥¹¥È¥é¥¯¥¿"
.ie n .IP "$j = Jcode\->new($str [, $icode])" 2
.el .IP "$j = Jcode\->new($str [, \f(CW$icode\fR])" 2
.IX Item "$j = Jcode->new($str [, $icode])"
$str¤«¤éJcode¥ª¥Ö¥¸¥§¥¯¥È$j¤òÀ¸À®¤·¤Þ¤¹¡£ÌÀ¼¨Åª¤Ë$icode¤ò¥»¥Ã¥È¤·¤Ê¤±¤ì¤Ð¡¢
ÆþÎÏ¥³¡¼¥É¤Ï¼«Æ°Åª¤ËȽÄꤵ¤ì¤Þ¤¹¡£ÍøÍѲÄǽ¤Êʸ»ú½¸¹ç¤Ë¤Ä¤¤¤Æ¤Ï¡¢²¼¤Î
getcode¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£
.Sp
Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢\f(CW$icode\fR¤Ë¤ÏEncode¤¬Íý²ò¤Ç¤­¤ë
\&\fI¤É¤ó¤Ê¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°Ì¾\fR¤â»È¤¨¤Þ¤¹¡£
.Sp
.Vb 1
\&  $j = Jcode\->new($european, 'iso\-latin1');
.Ve
.Sp
¥ª¥Ö¥¸¥§¥¯¥È¤òʸ»úÎ󲽤¹¤ë¤È¡¢EUC¤ËÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó¤¬ÊÖ¤ê¤Þ¤¹¡£¤Ç¤¹¤«¤é
\&\f(CW\*(C`print $j\->euc\*(C'\fR¤È¤¹¤ëÂå¤ï¤ê¤Ë¡¢\f(CW\*(C`print $j\*(C'\fR¤È¤Ç¤­¤Þ¤¹¡£
.RS 2
.IP "¥ê¥Õ¥¡¥ì¥ó¥¹ÅϤ·" 2
¥¹¥«¥é¡¼ÃͤÎÂå¤ï¤ê¤Ë¡¢°Ê²¼¤Î¤è¤¦¤Ë¥ê¥Õ¥¡¥ì¥ó¥¹¤òÅϤ»¤Þ¤¹¡£
.Sp
.Vb 1
\& Jcode\->new(\e$str);
.Ve
.Sp
¤³¤ì¤Ï¤Û¤ó¤Î¾¯¤·»þ´Ö¤òÀáÌó¤·¤Þ¤¹¡£¤½¤ÎÂå½þ¤È¤·¤Æ¡¢$str¤ÎÃͤ½¤Î¤â¤Î¤¬
ÊÑ´¹¤µ¤ì¤Þ¤¹¡Ê¤¢¤ë°ÕÌ£¡¢$str¤Ïjcode¥ª¥Ö¥¸¥§¥¯¥È¤Ë\*(L"tie¤µ¤ì¤ë\*(R"¤Î¤Ç¤¹¡Ë¡£
.RE
.RS 2
.RE
.ie n .IP "$j\->set($str [, $icode])" 2
.el .IP "$j\->set($str [, \f(CW$icode\fR])" 2
.IX Item "$j->set($str [, $icode])"
$j¤ÎÆâÉôʸ»úÎó¤Ë$str¤ò¥»¥Ã¥È¤·¤Þ¤¹¡£·«¤êÊÖ¤·Jcode¥ª¥Ö¥¸¥§¥¯¥È¤ò»È¤¦¤È¤­¤Ë
ÊØÍø¤Ç¤¹¡Ê¥ª¥Ö¥¸¥§¥¯¥È¤òÀ¸À®¤¹¤ë»þ´Ö¤È¥á¥â¥ê¤ÎÀáÌó¤Ë¤Ê¤ê¤Þ¤¹¡Ë¡£
.Sp
.Vb 6
\& # mailbox¤òSJIS·Á¼°¤ËÊÑ´¹
\& my $jconv = new Jcode;
\& $/ = 00;
\& while(<>){
\&     print $jconv\->set(\e$_)\->mime_decode\->sjis;
\& }
.Ve
.ie n .IP "$j\->append($str [, $icode]);" 2
.el .IP "$j\->append($str [, \f(CW$icode\fR]);" 2
.IX Item "$j->append($str [, $icode]);"
$j¤ÎÆâÉôʸ»úÎó¤Ë$str¤ò²Ã¤¨¤Þ¤¹¡£
.ie n .IP "$j = jcode($str [, $icode]);" 2
.el .IP "$j = jcode($str [, \f(CW$icode\fR]);" 2
.IX Item "$j = jcode($str [, $icode]);"
Jcode\->\fInew()\fR ¤Îû½Ì·Á¡£°Ê²¼¤Î¤è¤¦¤Ë¤Ç¤­¤Þ¤¹¡¨
.Sp
.Vb 1
\& $sjis = jcode($str)\->sjis;
.Ve
.Sh "ʸ»úÎó¤Î¥¨¥ó¥³¡¼¥É"
.IX Subsection "ʸ»úÎó¤Î¥¨¥ó¥³¡¼¥É"
°ìÈ̤ˡ¢$j\->\fIencoded\fR¤È¤¹¤ë¤³¤È¤Ç\fIencoded\fR¤ËÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó¤òÆÀ¤Þ¤¹¡£
.ie n .IP "$sjis = $j\->sjis" 2
.el .IP "$sjis = \f(CW$j\fR\->sjis" 2
.IX Item "$sjis = $j->sjis"
.PD 0
.ie n .IP "$euc = $j\->euc" 2
.el .IP "$euc = \f(CW$j\fR\->euc" 2
.IX Item "$euc = $j->euc"
.ie n .IP "$jis = $j\->jis" 2
.el .IP "$jis = \f(CW$j\fR\->jis" 2
.IX Item "$jis = $j->jis"
.ie n .IP "$sjis = $j\->sjis" 2
.el .IP "$sjis = \f(CW$j\fR\->sjis" 2
.IX Item "$sjis = $j->sjis"
.ie n .IP "$ucs2 = $j\->ucs2" 2
.el .IP "$ucs2 = \f(CW$j\fR\->ucs2" 2
.IX Item "$ucs2 = $j->ucs2"
.ie n .IP "$utf8 = $j\->utf8" 2
.el .IP "$utf8 = \f(CW$j\fR\->utf8" 2
.IX Item "$utf8 = $j->utf8"
.PD
¼«ÌÀ¤Ç¤·¤ç¤¦¡£
\&\s-1WYCIWYG\s0 = What you code is what you get :)
.ie n .IP "$iso_2022_jp = $j\->iso_2022_jp" 2
.el .IP "$iso_2022_jp = \f(CW$j\fR\->iso_2022_jp" 2
.IX Item "$iso_2022_jp = $j->iso_2022_jp"
\&\f(CW\*(C`$j\->h2z\->jis\*(C'\fR¤ÈƱ¤¸¤Ç¤¹¡£
Ⱦ³Ñ¥«¥Ê¤Ï¶¯À©Åª¤ËÁ´³Ñ¤ËÊÑ´¹¤µ¤ì¤Þ¤¹¡£
.Sp
Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢Encode¤¬¥µ¥Ý¡¼¥È¤¹¤ë¤É¤ó¤Ê¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°Ì¾¤È
¥¨¥¤¥ê¥¢¥¹¤Ç¤âÍøÍѤǤ­¤Þ¤¹¡£Î㤨¤Ð¡§
.Sp
.Vb 1
\&  $european = $j\->iso_latin1; # ¥á¥½¥Ã¥É̾ÍѤË'\-'¤Ï'_'¤ËÃÖ¤­´¹¤¨¤Þ¤¹
.Ve
.Sp
\&\fB»²¹Í\fR¡§Encode::Encoder¤¬¤³¤ì¤ÈƱ¤¸¾®µ»¤ò»È¤Ã¤Æ¤¤¤Þ¤¹¡£
.RS 2
.IP "$j\->fallback($fallback)" 2
.IX Item "$j->fallback($fallback)"
Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢Jcode¤ÏÆâÉô¤Îʸ»úÎó¤òUTF\-8¤ÇÊÝ»ý¤·¤Þ¤¹¡£
\&\fI\->encoding\fR¤Ë¥Þ¥Ã¥×¤Ç¤­¤Ê¤¤Ê¸»ú¤Ï'?'¤ËÃÖ¤­´¹¤¨¤é¤ì¤Þ¤¹¤¬¡¢
¤³¤ì¤ÏEncode¤Ç¤Îɸ½àÆ°ºî¤Ç¤¹¡£
.Sp
.Vb 2
\&  my $unistr = "\ex{262f}"; # ±¢ÍÛ¥Þ¡¼¥¯
\&  my $j = jcode($unistr);  # $j\->euc ¤Î·ë²Ì¤Ï '?' ¤Ë
.Ve
.Sp
¤³¤Î¿¶¤ëÉñ¤¤¤Ï¡¢EncodeƱÍÍ¡¢¥Õ¥©¡¼¥ë¥Ð¥Ã¥¯¤ò»ØÄꤹ¤ë¤³¤È¤ÇÊѹ¹¤Ç¤­¤Þ¤¹¡£
ÃͤÏEncode¤Î¤â¤Î¤È°ì½ï¤Ç¤¹¡£Êص¹¤Î¤¿¤á¡¢\f(CW\*(C`Jcode::FB_PERLQQ\*(C'\fR¡¢
\&\f(CW\*(C`Jcode::FB_XMLCREF\*(C'\fR¡¢\f(CW\*(C`Jcode::FB_HTMLCREF\*(C'\fR¤¬Encode¤Î¤½¤ì¤é¤Ø¤Î
¥¨¥¤¥ê¥¢¥¹¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
.Sp
.Vb 3
\&  print $j\->fallback(Jcode::FB_PERLQQ)\->euc;   # '\ex{262f}'
\&  print $j\->fallback(Jcode::FB_XMLCREF)\->euc;  # '&#x262f;'
\&  print $j\->fallback(Jcode::FB_HTMLCREF)\->euc; # '&#9775;'
.Ve
.Sp
¥°¥í¡¼¥Ð¥ëÊÑ¿ô\f(CW$Jcode::FALLBACK\fR¤Ë¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¡¼¥ë¥Ð¥Ã¥¯¤¬ÊÝ»ý
¤µ¤ì¤Æ¤¤¤Þ¤¹¤Î¤Ç¡¢¤³¤ÎÃͤòÂåÆþ¤¹¤ë¤³¤È¤Ç¥ª¡¼¥Ð¡¼¥é¥¤¥É¤Ç¤­¤Þ¤¹¡£
.Sp
.Vb 1
\&  $Jcode::FALLBACK = Jcode::FB_PERLQQ; # ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¡¼¥ë¥Ð¥Ã¥¯¥¹¥­¡¼¥Þ¤òÀßÄê
.Ve
.RE
.RS 2
.RE
.ie n .IP "[@lines =] $jcode\fR\->jfold([$width, \f(CW$newline_str\fR, \f(CW$kref])" 2
.el .IP "[@lines =] \f(CW$jcode\fR\->jfold([$width, \f(CW$newline_str\fR, \f(CW$kref\fR])" 2
.IX Item "[@lines =] $jcode->jfold([$width, $newline_str, $kref])"
$width¡Ê¥Ç¥Õ¥©¥ë¥È¡§72¡ËËè¤Ëjcodeʸ»úÎóÆâ¤Î¹Ô¤òÀÞ¤êÊÖ¤·¤Þ¤¹¡£
\&\f(CW$width\fR¤Ï¡ÉȾ³Ñ¡Éʸ»ú¤Î¿ô¤Ç¤¹¡£Á´³Ñʸ»ú¤Ï2ʸ»ú¤È¤·¤Æ¥«¥¦¥ó¥È¤·¤Þ¤¹¡£
.Sp
$newline_str¡Ê¥Ç¥Õ¥©¥ë¥È¤Ï\*(L"\en\*(R"¡Ë¤Ç»ØÄꤵ¤ì¤¿²þ¹Ôʸ»ú¤¬²Ã¤ï¤ê¤Þ¤¹¡£
ÀÞ¤êÊÖ¤µ¤ì¤¿Á´¹Ô¤ò¥ê¥¹¥È¤ÇÊÖ¤·¤Þ¤¹¡£
.Sp
Perl 5.8.1°Ê¹ß¤Ï3ÈÖÌܤΰú¿ô$kref¤ËEUC¤Îʸ»úÎó¤ÎÇÛÎó¥ê¥Õ¥¡¥ì¥ó¥¹¤ò
ÅϤ¹¤³¤È¤Ç¡¢´Ê°×Ū¤Ê¹ÔƬ¶Ø§½èÍý¡Ê¤Ö¤é²¼¤¬¤ê¡Ë¤ò¹Ô¤¨¤Þ¤¹¡£
.ie n .IP "$length = $jcode\fR\->\fIjlength();" 2
.el .IP "$length = \f(CW$jcode\fR\->\fIjlength()\fR;" 2
.IX Item "$length = $jcode->jlength();"
¥Ð¥¤¥ÈĹ¤Ç¤Ï¤Ê¤¯¡¢Á´³Ñʸ»ú¤â°ìʸ»ú¤È¤·¤Æ¿ô¤¨¤¿¾ì¹ç¤Îʸ»ú¿ô¤òÊÖ¤·¤Þ¤¹¡£
.Sh "MIME::Base64¤ò»È¤¦¥á¥½¥Ã¥É"
.IX Subsection "MIME::Base64¤ò»È¤¦¥á¥½¥Ã¥É"
²¼µ­¤Î¥á¥½¥Ã¥É¤ò»È¤¦¤Ë¤Ï¡¢MIME::Base64¤¬É¬ÍפǤ¹¡£¥¤¥ó¥¹¥È¡¼¥ë¤Ïñ½ã¤Ë
.PP
.Vb 1
\&   perl \-MCPAN \-e 'CPAN::Shell\->install("MIME::Base64")'
.Ve
.PP
¤È¤·¤Þ¤¹¡£¤ª»È¤¤¤ÎPerl¤¬5.6°Ê¹ß¤Ç¤¢¤ë¤Ê¤é¡¢MIME::Base64¤Ï
¥Ð¥ó¥É¥ë¤µ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¥¤¥ó¥¹¥È¡¼¥ë¤ÎɬÍפϤ¢¤ê¤Þ¤»¤ó¡£
.ie n .IP "$mime_header = $j\fR\->mime_encode([$lf, \f(CW$bpl])" 2
.el .IP "$mime_header = \f(CW$j\fR\->mime_encode([$lf, \f(CW$bpl\fR])" 2
.IX Item "$mime_header = $j->mime_encode([$lf, $bpl])"
$str¤òRFC1522¤Ë¤¢¤ëMIME\-Header¤ËÊÑ´¹¤·¤Þ¤¹¡£$lf¤ò»ØÄꤹ¤ë¤È¡¢
¹Ô¤ÎÀÞ¤êÊÖ¤·¤Ë$lf¤¬»È¤ï¤ì¤Þ¤¹¡Ê¥Ç¥Õ¥©¥ë¥È¡§\en¡Ë¡£
\&\f(CW$bpl\fR¤ò»ØÄꤹ¤ë¤È¡¢ÀÞ¤êÊÖ¤¹¥Ð¥¤¥È¿ô¤Ë$bpl¤¬»È¤ï¤ì¤Þ¤¹¡Ê¥Ç¥Õ¥©¥ë¥È¡§76¡¨
¤³¤Î¿ôÃͤÏ76°Ê²¼¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡Ë¡£
.Sp
Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢°Ê²¼¤Î¤è¤¦¤Ë¤·¤Æ¤âMIME Header¥¨¥ó¥³¡¼¥É¤¬¤Ç¤­¤Þ¤¹¡§
.Sp
.Vb 1
\&  $mime_header = $j\->MIME_Header;
.Ve
.Sp
¤³¤Î¾ì¹ç\f(CW$mime_header\fR¤ÎÌá¤êÃͤÏMIME\-B\-encoded UTF\-8¤Ë¤Ê¤ê¤Þ¤¹¡£
°ìÊý¡¢\f(CW\*(C`$j\->mime_encode()\*(C'\fR¤ÏMIME\-B\-encoded ISO\-2022\-JP¤òÊÖ¤·¤Þ¤¹¡£
ºÇ¶á¤Î¤Û¤È¤ó¤É¤Î¥á¡¼¥é¡¼¤Ï¤É¤Á¤é¤â¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤¹¡£
.IP "$j\->mime_decode;" 2
.IX Item "$j->mime_decode;"
Jcode¥ª¥Ö¥¸¥§¥¯¥È¤ÎÆâÉôʸ»úÎó¤òMIME\-Header¥Ç¥³¡¼¥É¤·¤Þ¤¹¡£Perl 5.8.1
°Ê¹ß¤Ê¤é¡¢°Ê²¼¤Î¤è¤¦¤Ë¤·¤ÆƱ¤¸¤³¤È¤¬¤Ç¤­¤Þ¤¹¡§
.Sp
.Vb 1
\&  Jcode\->new($str, 'MIME\-Header');
.Ve
.Sp
¤³¤Á¤é¤Î¾ì¹ç¡¢ISO\-2022\-JP¤À¤±¤Ç¤Ï¤Ê¤¯UTF\-8¤Ê¤É¤Ë¤âÂбþ¤·¤Æ¤ª¤ê¡¢
¤µ¤é¤ËMIME B Encoding¤Î¤ß¤Ê¤é¤ºMIME Q Encoding¤Ë¤âÂбþ¤·¤Æ¤¤¤ë
¤Î¤Ç¡¢Perl 5.8.1°Ê¹ß¤Ç¤¢¤ì¤Ð¤³¤Á¤é¤ò»È¤¦¤Ù¤­¤Ç¤·¤ç¤¦¡£
.Sh "Ⱦ³Ñ ¢«¢ª Á´³Ñ"
.IX Subsection "Ⱦ³Ñ ¢«¢ª Á´³Ñ"
.IP "$j\->h2z([$keep_dakuten])" 2
.IX Item "$j->h2z([$keep_dakuten])"
X201¥«¥Ê¡ÊȾ³Ñ¡Ë¤òX208¥«¥Ê¡ÊÁ´³Ñ¡Ë¤ËÊÑ´¹¤·¤Þ¤¹¡£
\&\f(CW$keep_dakuten\fR¤Ë¿¿Ãͤò¥»¥Ã¥È¤¹¤ë¤È¡¢ÂùÅÀ¤ò¤½¤Î¤Þ¤Þ¤Ë¤·¤Þ¤¹
(¤³¤ì¤Ï¤Ä¤Þ¤ê¡¢¡Ö¥«¡Ü¡«¡×¤Ï¡Ö¥¬¡×¤ËÊÑ´¹¤µ¤ì¤º¤Ë¤½¤Î¤Þ¤Þ
¤Ë¤Ê¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹)
.Sp
$j\->nmatch¤òÄ̤¸¤Æ¥Þ¥Ã¥Á¤·¤¿¿ô¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
.IP "$j\->z2h" 2
.IX Item "$j->z2h"
X208¥«¥Ê¡ÊÁ´³Ñ¡Ë¤òX201¥«¥Ê¡ÊȾ³Ñ¡Ë¤ËÊÑ´¹¤·¤Þ¤¹¡£
.Sp
$j\->nmatch¤òÄ̤¸¤Æ¥Þ¥Ã¥Á¤·¤¿¿ô¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
.Sh "Àµµ¬É½¸½¥¨¥ß¥å¥ì¡¼¥¿"
.IX Subsection "Àµµ¬É½¸½¥¨¥ß¥å¥ì¡¼¥¿"
\&\f(CW\*(C`\->m()\*(C'\fR¤È\f(CW\*(C`\->s()\*(C'\fR¤ò»È¤¦¤Ë¤Ï¡¢Perl 5.8.1°Ê¹ß¤¬
ɬÍפǤ¹¡£
.ie n .IP "$j\->tr($from, $to\fR, \f(CW$opt);" 2
.el .IP "$j\->tr($from, \f(CW$to\fR, \f(CW$opt\fR);" 2
.IX Item "$j->tr($from, $to, $opt);"
Jcode¥ª¥Ö¥¸¥§¥¯¥È¤Ë\f(CW\*(C`tr/$from/$to/\*(C'\fR¤òŬÍѤ·¤Þ¤¹¡£$from¤È$to¤Ï
EUC\-JP¤Îʸ»úÎó¤Ç¤¹¡£Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢flagÉÕ¤­¤ÎUTF\-8ʸ»úÎó
¤â¼õ¤±ÉÕ¤±¤Þ¤¹¡£
.Sp
\&\f(CW$opt\fR¤ò¥»¥Ã¥È¤¹¤ë¤È¡¢\f(CW\*(C`tr/$from/$to/$opt\*(C'\fR¤¬Å¬ÍѤµ¤ì¤Þ¤¹¡£\f(CW$opt\fR¤Ï
\&'c'¡¢'d'¤¢¤ë¤¤¤Ï¤½¤ì¤é¤ÎÁȤ߹ç¤ï¤»¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
.Sp
$j\->nmatch¤òÄ̤¸¤Æ¥Þ¥Ã¥Á¤·¤¿¿ô¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
.Sp
Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢tr¤Î·Á¼°¤Ë¸í¤ê¤Î¤¢¤Ã¤¿¾ì¹ç¤Ë\->error_tr¤òÄ̤¸¤Æ¡¢
$@¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
.Sp
°Ê²¼¤Î¥á¥½¥Ã¥É¤ÏPerl 5.8.1°Ê¹ß¤Ç¤Î¤ßÍøÍѲÄǽ¤Ç¤¹¡£
.ie n .IP "$j\->s($patter, $replace\fR, \f(CW$opt);" 2
.el .IP "$j\->s($patter, \f(CW$replace\fR, \f(CW$opt\fR);" 2
.IX Item "$j->s($patter, $replace, $opt);"
¸Ä¡¹¤Ë\f(CW\*(C`s/$pattern/$replace/$opt\*(C'\fR¤òŬÍѤ·¤Þ¤¹¡£\f(CW$opt\fR¤ÏÀµµ¬É½¸½¥ª¥×¥·¥ç¥ó¤È
Ʊ¤¸¤Ç¤¹¡£Àµµ¬É½¸½¤Î¥ª¥×¥·¥ç¥ó¤Ë¤Ä¤¤¤Æ¤Ïperlre¤ò»²¾È¤¯¤À¤µ¤¤¡£
.Sp
\&\f(CW\*(C`$j\->tr()\*(C'\fR¡¢\f(CW\*(C`$j\->s()\*(C'\fR¤Ï¤½¤Î¥ª¥Ö¥¸¥§¥¯¥È¼«¿È¤òÊÖ¤¹¤Î¤Ç¡¢
°Ê²¼¤Î¤è¤¦¤ËÁàºî¤òÏ¢·ë¤Ç¤­¤Þ¤¹¡£
.Sp
.Vb 1
\&  $j\->tr("A\-Z", "a\-z")\->s("foo", "bar");
.Ve
.ie n .IP "[@match = ] $j\fR\->m($pattern, \f(CW$opt);" 2
.el .IP "[@match = ] \f(CW$j\fR\->m($pattern, \f(CW$opt\fR);" 2
.IX Item "[@match = ] $j->m($pattern, $opt);"
\&\f(CW\*(C`m/$patter/$opt\*(C'\fR¤òŬÍѤ·¤Þ¤¹¡£¤³¤Î¥á¥½¥Ã¥É¤Ï¡É¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤µ¤Ê¤¤¡É
¤Î¤Ç¡¢\f(CW\*(C`$j\->s()\*(C'\fR¤Î¤è¤¦¤Ë¥á¥½¥Ã¥É¤òÏ¢·ë¤Ç¤­¤Ê¤¤¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£
.Sp
Àµµ¬É½¸½¤Î·Á¼°¤Ë¸í¤ê¤Î¤¢¤Ã¤¿¾ì¹ç¡¢\->error_m¡¢\->error_s¤òÄ̤¸¤Æ
$@¤ò¼èÆÀ¤Ç¤­¤Þ¤¹¡£
.Sh "¥¤¥ó¥¹¥¿¥ó¥¹ÊÑ¿ô"
.IX Subsection "¥¤¥ó¥¹¥¿¥ó¥¹ÊÑ¿ô"
¤â¤·Jcode¥ª¥Ö¥¸¥§¥¯¥È¤Î¥¤¥ó¥¹¥¿¥ó¥¹ÊÑ¿ô¤Ë¥¢¥¯¥»¥¹¤·¤¿¤¤¤Ê¤é¡¢Ä¾Àܤ½¤ì¤é
¤Ë¥¢¥¯¥»¥¹¤¹¤ë¤Î¤Ç¤Ï¤Ê¤¯¡¢¥¢¥¯¥»¥¹¥á¥½¥Ã¥É¤òÍøÍѤ·¤Þ¤·¤ç¤¦¡Ê¤³¤ì¤¾OOP
¤Ç¤¹¡Ë¡£
.PP
»²¹Í¤Þ¤Ç¤Ë¡¢Jcode¤Ï¡Ê°ìÈÌŪ¤ÊÊýË¡¤Ç¤¢¤ë¡Ë¥Ï¥Ã¥·¥å¥ê¥Õ¥¡¥ì¥ó¥¹¤ÎÂå¤ï¤ê¤Ë¡¢
ÇÛÎó¥ê¥Õ¥¡¥ì¥ó¥¹¤ò»È¤¦¤³¤È¤Ç¡¢¥¹¥Ô¡¼¥É¤òºÇŬ²½¤·¤Æ¤¤¤Þ¤¹¡Ê¼ÂºÝ¤Î¤È¤³¤í¡¢
¥¢¥¯¥»¥¹¥á¥½¥Ã¥É¤ò»È¤¦¸Â¤ê¤³¤Î¤³¤È¤òÃΤëɬÍפϤ¢¤ê¤Þ¤»¤ó¡¨ ¤â¤¦°ìÅÙ
¤¤¤¤¤Þ¤¹¤¬¡¢¤³¤ì¤ÏOOP¤Ê¤Î¤Ç¤¹¡Ë¡£
.PP
Perl 5.8.1°Ê¹ß¤Ç¤Ï¡¢¥Ï¥Ã¥·¥å¥ê¥Õ¥¡¥ì¥ó¥¹¤ò»È¤¦¤è¤¦¤ËÊѹ¹¤µ¤ì¤Þ¤·¤¿¡£
¤³¤ì¤Ë¤è¤ê¡¢Jcode¤Î³ÈÄ¥¤Ï¤â¤Î¤¹¤´¤¯´Êñ¤Ë¤Ê¤ê¤Þ¤¹¡£
.IP "$j\->r_str" 2
.IX Item "$j->r_str"
EUCʸ»úÎó¤Ø¤Î¥ê¥Õ¥¡¥ì¥ó¥¹¡£
.Sp
Perl 5.8.1°Ê¹ß¤Ç¤ÏUTF\-8¥Õ¥é¥°¤ÎΩ¤Ã¤¿UTF\-8ʸ»úÎó¤Ø¤Î¥ê¥Õ¥¡¥ì¥ó¥¹¤Ç¤¹¡£
.IP "$j\->icode" 2
.IX Item "$j->icode"
ľ¶á¤ÎÁàºî¤Ë¤ª¤±¤ëÆþÎÏʸ»ú¥³¡¼¥É¡£
.IP "$j\->nmatch" 2
.IX Item "$j->nmatch"
¥Þ¥Ã¥Á¤·¤¿¿ô¡Ê$j\->trÅù¤ò»È¤Ã¤¿¤È¤­¡Ë¡£
.SH "¥µ¥Ö¥ë¡¼¥Á¥ó"
.IX Header "¥µ¥Ö¥ë¡¼¥Á¥ó"
.IP "($code, [$nmatch]) = getcode($str)" 2
.IX Item "($code, [$nmatch]) = getcode($str)"
$str¤Îʸ»ú¥³¡¼¥É¤òÊÖ¤·¤Þ¤¹¡£Ê֤륳¡¼¥É¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
.Sp
.Vb 7
\& ascii   Ascii ¡ÊÆüËܸ쥳¡¼¥É¤ò´Þ¤Þ¤Ê¤¤¡Ë
\& binary  Binary ¡Ê¥Æ¥­¥¹¥È¥Õ¥¡¥¤¥ë¤Ç¤Ï¤Ê¤¤¡Ë
\& euc     EUC\-JP
\& sjis    SHIFT_JIS
\& jis     JIS (ISO\-2022\-JP)
\& ucs2    UCS2 (Raw Unicode)
\& utf8    UTF8
.Ve
.Sp
¥¹¥«¥é¡¼¥³¥ó¥Æ¥­¥¹¥È¤ÎÂå¤ï¤ê¤ËÇÛÎó¥³¥ó¥Æ¥­¥¹¥È¤ò»È¤¦¤È¡¢²¿Ê¸»úʬ¤Î
¥³¡¼¥É¤¬¸«¤Ä¤«¤Ã¤¿¤Î¤«¤âÊÖ¤·¤Þ¤¹¡£¾å¤ÎÊý¤Ç½Ò¤Ù¤¿¤è¤¦¤Ë¡¢$str¤Ï\e$str
¤Ç¤â¹½¤¤¤Þ¤»¤ó¡£
.Sp
\&\fBjcode.pl ÍøÍѼԤÎÊý¤Ø¡§\fR ¤³¤Î´Ø¿ô¤Ï\fIjcode::getcode()\fR¤È100%¾å°Ì¸ß´¹¤¬
¤¢¤ê¤Þ¤¹¡£¡½¡½¤Þ¤¢¡¢¤Û¤Ü100%¡¨
.Sp
.Vb 2
\& * Ìá¤êÃͤ¬ÇÛÎó¤Î¤È¤­¡¢¤½¤Î½çÈ֤ϵդȤʤê¤Þ¤¹¡¨
\&   jcode::getcode()¤Ï$nmatch¤òºÇ½é¤ËÊÖ¤·¤Þ¤¹¡£
.Ve
.Sp
.Vb 3
\& * jcode::getcode()¤Ï¡¢EUCʸ»ú¤ÈSJISʸ»ú¤Î¿ô¤¬Åù¤·¤¤¤È¤­¡¢'undef'¤ò
\&   ÊÖ¤·¤Þ¤¹¡£ Jcode::getcode()¤ÏEUC¤òÊÖ¤·¤Þ¤¹¡£¤³¤ì¤ÏJcode.pm¤Ë¤Ï
\&   Ãæ´Ö¤¬¤Ê¤¤¤¿¤á¤Ç¤¹¡£
.Ve
.ie n .IP "Jcode::convert($str, [$ocode, $icode\fR, \f(CW$opt])" 2
.el .IP "Jcode::convert($str, [$ocode, \f(CW$icode\fR, \f(CW$opt\fR])" 2
.IX Item "Jcode::convert($str, [$ocode, $icode, $opt])"
$str¤ò$ocode¤Ç»ØÄꤷ¤¿Ê¸»ú¥³¡¼¥É¤ËÊÑ´¹¤·¤Þ¤¹¡£$icode¤â»ØÄꤹ¤ë¤È¡¢
ÆþÎÏʸ»úÎó¤ò\fIgetcode()\fR¤Ç¥Á¥§¥Ã¥¯¤¹¤ëÂå¤ï¤ê¤Ë¡¢$icode¤È²¾Äꤷ¤Þ¤¹¡£
¾å¤ÎÊý¤Ç½Ò¤Ù¤¿¤è¤¦¤Ë¡¢$str¤Ï\e$str¤Ç¤â¹½¤¤¤Þ¤»¤ó¡£
.Sp
\&\fBjcode.pl ÍøÍѼԤÎÊý¤Ø¡§\fR ¤³¤Î´Ø¿ô¤Ï\fIjcode::convert()\fR¤È100%¾å°Ì¸ß´¹¤¬
¤¢¤ê¤Þ¤¹¡ª
.SH "¥Ð¥°"
.IX Header "¥Ð¥°"
Perl¤¬5.8.1°Ê¹ß¤Î¾ì¹ç¡¢Jcode¤ÏEncode¤Î¥é¥Ã¥Ñ¡¼¤È¤·¤Æ¿¶¤ëÉñ¤¤¤Þ¤¹¡£
¤Ä¤Þ¤ê¡¢Jcode¤ÏEncodeÆâ¤Î¥Ð¥°¤Î±Æ¶Á¤ò¼õ¤±¤Þ¤¹¡£
.SH "¼Õ¼­"
.IX Header "¼Õ¼­"
¤³¤Î¥Ñ¥Ã¥±¡¼¥¸¤Ï¡¢Æ°µ¡¡¢¥Ç¥¶¥¤¥ó¤½¤·¤Æ¥³¡¼¥É¤Î¿¤¯¤ÎÅÀ¤Ç¡¢
²ÎÂå ÏÂÀµ <utashiro@iij.ad.jp>»á¤ÎPerl4¥é¥¤¥Ö¥é¥êjcode.pl¤ËÉé¤Ã¤Æ¤¤¤Þ¤¹¡£
.PP
Âçºê Çî´ð <ohzaki@iod.ricoh.co.jp>»á¤Ï¡¢³«È¯¤ÎÈó¾ï¤Ë½é´ü¤ÎÃʳ¬¤«¤é
Àµµ¬É½¸½¤òË᤭¤¢¤²¤ë¼ê½õ¤±¤ò¤·¤Æ¤¯¤ì¤Þ¤·¤¿¡£
.PP
makamaka@donzoko.net ¤Î JEncode ¤Ë¤Ï¡¢Jcode¤ÈEncode¤ò¤É¤¦Í»¹ç¤µ¤»¤ì¤Ð
¤¤¤¤¤«ÂçÊÑÂ礭¤Ê·¼¼¨¤ò¼õ¤±¤Þ¤·¤¿¡£¤Þ¤¿¡¢ËÜÆüËܸì¥Þ¥Ë¥å¥¢¥ë¤â´ó£¤·¤Æ
¤¤¤¿¤À¤­¤Þ¤·¤¿¡£
.PP
¤½¤·¤ÆJcode \s-1ML\s0 <jcode5@ring.gr.jp>¤Î³§¤µ¤ó¡£¤³¤ÎÊýã¤Ê¤·¤Ë¤Ï¡¢
¤³¤³¤Þ¤Ç´°À®¤·¤Ê¤«¤Ã¤¿¤³¤È¤Ç¤·¤ç¤¦¡£
.SH "»²¹Í"
.IX Header "»²¹Í"
Encode
.PP
<http://www.iana.org/assignments/character\-sets>
.SH "Ãøºî¸¢"
.IX Header "Ãøºî¸¢"
Copyright 1999\-2005 Dan Kogai <dankogai@dan.co.jp>
.PP
This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.