.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.42)
.\"
.\" 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
..
.\" 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" ''
.    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 "MIME::EcoEncode 3pm"
.TH MIME::EcoEncode 3pm "2022-10-13" "perl v5.34.0" "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"
MIME::EcoEncode \- MIME Encoding (Economical)
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 10
\& use MIME::EcoEncode;
\& $encoded = mime_eco($str, \*(AqUTF\-8\*(Aq);        # encode utf8 string
\& $encoded = mime_eco($str, \*(AqUTF\-8?B\*(Aq);      # ditto ("B" encoding)
\& $encoded = mime_eco($str, \*(AqUTF\-8?Q\*(Aq);      # ditto ("Q" encoding)
\& $encoded = mime_eco($str, \*(AqUTF\-8*XX\*(Aq);     # XX is RFC2231\*(Aqs language
\& $encoded = mime_eco($str, \*(AqUTF\-8*XX?B\*(Aq);   # ditto ("B" encoding)
\& $encoded = mime_eco($str, \*(AqUTF\-8*XX?Q\*(Aq);   # ditto ("Q" encoding)
\& $encoded = mime_eco($str, \*(AqGB2312\*(Aq);       # encode euc\-cn string
\& $encoded = mime_eco($str, \*(AqEUC\-KR\*(Aq);       # encode euc\-kr string
\& $encoded = mime_eco($str, \*(AqBig5\*(Aq);         # encode big5 string
\& $encoded = mime_eco($str, \*(AqShift_JIS\*(Aq);    # encode cp932 string
\& $encoded = mime_eco($str, \*(AqISO\-2022\-JP\*(Aq);  # encode 7bit\-jis string
\& $encoded = mime_eco($str, $sbcs);          # $sbcs :
\&                                            #   single\-byte charset
\&                                            #     (e.g. \*(AqISO\-8859\-1\*(Aq)
\&
\& $decoded = mime_deco($encoded);            # decode encoded string
\&                                            #   (for single charset)
\&
\& ($decoded, $charset, $language)            # return array
\&          = mime_deco($encoded);            #   (for single charset)
\&
\& use Encode;
\& $decoded = mime_deco($encoded, \e&cb);      # cb is callback subroutine
\&                                            #   (for multiple charsets)
\&
\& # Example of callback subroutine
\& sub cb {
\&   my ($encoded_word, $charset, $language, $decoded_word) = @_;
\&   encode_utf8(decode($charset, $decoded_word));
\& }
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This module implements \s-1RFC 2047\s0 Mime Header Encoding.
.SS "Options"
.IX Subsection "Options"
.Vb 10
\&  $encoded = mime_eco($str, $charset, $lf, $bpl, $mode, $lss);
\&               # $charset : \*(AqUTF\-8\*(Aq / \*(AqUTF\-8?Q\*(Aq / \*(AqUTF\-8*XX\*(Aq /
\&               #            \*(AqGB2312\*(Aq / \*(AqEUC\-KR\*(Aq / \*(AqBig5\*(Aq /
\&               #            \*(AqShift_JIS\*(Aq / \*(AqISO\-2022\-JP\*(Aq / ...
\&               #            (default: \*(AqUTF\-8\*(Aq)
\&               #              Note: "B" encoding is all defaults.
\&               #                    The others are all encoded as
\&               #                    single\-byte string.
\&               # $lf      : line feed (default: "\en")
\&               # $bpl     : bytes per line (default: 76)
\&               # $mode    : 0 : unstructured header (e.g. Subject)
\&               #            1 : structured header (e.g. To, Cc, From)
\&               #            2 : auto (Subject or Comments ? 0 : 1)
\&               #            (default: 2)
\&               # $lss     : length of security space (default: 25)
.Ve
.SS "Examples"
.IX Subsection "Examples"
Ex1 \- normal (structured header)
.PP
.Vb 3
\&  use MIME::EcoEncode;
\&  my $str = "From: Sakura <sakura\e@example.jp> (\exe6\exa1\ex9c)\en";
\&  print mime_eco($str);
.Ve
.PP
Ex1's output:
.PP
.Vb 1
\&  From: Sakura <sakura@example.jp> (=?UTF\-8?B?5qGc?=)
.Ve
.PP
Ex2 \- \*(L"Q\*(R" encoding + \s-1RFC2231\s0's language
.PP
.Vb 3
\&  use MIME::EcoEncode;
\&  my $str = "From: Sakura <sakura\e@example.jp> (\exe6\exa1\ex9c)\en";
\&  print mime_eco($str, \*(AqUTF\-8*ja\-JP?Q\*(Aq);
.Ve
.PP
Ex2's output:
.PP
.Vb 1
\&  From: Sakura <sakura@example.jp> (=?UTF\-8*ja\-JP?Q?=E6=A1=9C?=)
.Ve
.PP
Ex3 \- continuous spaces
.PP
.Vb 3
\&  use MIME::EcoEncode;
\&  my $str = "From: Sakura  <sakura\e@example.jp>    (\exe6\exa1\ex9c)\en";
\&  print mime_eco($str);
.Ve
.PP
Ex3's output:
.PP
.Vb 1
\&  From: Sakura  <sakura@example.jp>    (=?UTF\-8?B?5qGc?=)
.Ve
.PP
Ex4 \- unstructured header (1)
.PP
.Vb 3
\&  use MIME::EcoEncode;
\&  my $str = "Subject: Sakura (\exe6\exa1\ex9c)\en";
\&  print mime_eco($str);
.Ve
.PP
Ex4's output:
.PP
.Vb 1
\&  Subject: Sakura =?UTF\-8?B?KOahnCk=?=
.Ve
.PP
Ex5 \- unstructured header (2)
.PP
.Vb 3
\&  use MIME::EcoEncode;
\&  my $str = "Subject: \exe6\exa1\ex9c  Sakura\en";
\&  print mime_eco($str);
.Ve
.PP
Ex5's output:
.PP
.Vb 1
\&  Subject: =?UTF\-8?B?5qGc?=  Sakura
.Ve
.PP
Ex6 \- 7bit\-jis string
.PP
.Vb 4
\&  use Encode;
\&  use MIME::EcoEncode;
\&  my $str = "Subject: \exe6\exa1\ex9c  Sakura\en";
\&  print mime_eco(encode(\*(Aq7bit\-jis\*(Aq, decode_utf8($str)), \*(AqISO\-2022\-JP\*(Aq);
.Ve
.PP
Ex6's output:
.PP
.Vb 1
\&  Subject: =?ISO\-2022\-JP?B?GyRCOnkbKEI=?=  Sakura
.Ve
.SH "SEE ALSO"
.IX Header "SEE ALSO"
MIME::EcoEncode::Param, MIME::EcoEncode::Fold
.PP
For more information, please visit \fIhttp://www.nips.ac.jp/~murata/mimeeco/\fR
.SH "AUTHOR"
.IX Header "AUTHOR"
\&\s-1MURATA\s0 Yasuhisa <murata@nips.ac.jp>
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
Copyright (C) 2011\-2013 \s-1MURATA\s0 Yasuhisa
.SH "LICENSE"
.IX Header "LICENSE"
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.