.\" -*- mode: troff; coding: utf-8 -*-
.\" Automatically generated by Pod::Man 5.01 (Pod::Simple 3.43)
.\"
.\" Standard preamble:
.\" ========================================================================
.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
..
.\" \*(C` and \*(C' are quotes in nroff, nothing in troff, for use with C<>.
.ie n \{\
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "Juman::Encode 3pm"
.TH Juman::Encode 3pm 2024-04-18 "perl v5.38.2" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH NAME
Juman::Encode \- character encoding functions
.SH DESCRIPTION
.IX Header "DESCRIPTION"
Perl\-5.8.x は内部文字コードとして Unicode を採用している．そのため，日
本語 EUC を使っているプロセスとの入出力を行う場合や，日本語 EUC で記述
されたデータを参照する場合には，常に明示的に encode/decode を行う必要
がある．
.PP
このライブラリでは，そのための関数を定義している．
.SH FUNCTIONS
.IX Header "FUNCTIONS"
.ie n .IP "$octets = encode ( $string )" 4
.el .IP "\f(CW$octets\fR = encode ( \f(CW$string\fR )" 4
.IX Item "$octets = encode ( $string )"
文字列を，\f(CW\*(C`encoding\*(C'\fR プラグマで指定されている文字コードで encode して，
バイト列を得る．
.ie n .IP "$string = decode ( $octets )" 4
.el .IP "\f(CW$string\fR = decode ( \f(CW$octets\fR )" 4
.IX Item "$string = decode ( $octets )"
バイト列を，\f(CW\*(C`encoding\*(C'\fR プラグマで指定されている文字コードで decode し
て，文字列を得る．
.ie n .IP "set_encoding ( $handle )" 4
.el .IP "set_encoding ( \f(CW$handle\fR )" 4
.IX Item "set_encoding ( $handle )"
指定されたファイルハンドルとの通信に，\f(CW\*(C`encoding\*(C'\fR プラグマで指定されて
いる文字コードを使うように設定する．
.PP
いずれの関数も，\f(CW\*(C`encoding\*(C'\fR プラグマが指定されていない場合には，何もし
ない．
.SH MEMO
.IX Header "MEMO"
このライブラリは，変数 \f(CW\*(C`${^ENCODING}\*(C'\fR を参照する必要のある関数の定義
を，一ヶ所にまとめるために導入した．なぜならば，変数 \f(CW\*(C`${^ENCODING}\*(C'\fR 
を参照しようとするコードは，Jperl\-5.005 では syntax error となるためで
ある．
.PP
.Vb 5
\&  Sample Script:
\&    use English qw/ $PERL_VERSION /;
\&    if( $PERL_VERSION > 5.008 ){
\&        ${^ENCODING}\->encode( ... );
\&    }
\&
\&  Error Message:
\&    syntax error at sample.perl line 3, near "{^"
.Ve
.SH "SEE ALSO"
.IX Header "SEE ALSO"
.IP \(bu 4
encoding
.IP \(bu 4
Encode
.SH AUTHOR
.IX Header "AUTHOR"
.IP " 土屋 雅稔 <tsuchiya@pine.kuee.kyoto\-u.ac.jp>" 4
.IX Item " 土屋 雅稔 <tsuchiya@pine.kuee.kyoto-u.ac.jp>"
.SH "POD ERRORS"
.IX Header "POD ERRORS"
Hey! \fBThe above document had some coding errors, which are explained below:\fR
.IP "Around line 14:" 4
.IX Item "Around line 14:"
Non-ASCII character seen before =encoding in 'は内部文字コードとして'. Assuming UTF\-8
.IP "Around line 108:" 4
.IX Item "Around line 108:"
=over without closing =back