NAME

MIME::EcoEncode::Fold - folding multi-byte string

SYNOPSIS

 use MIME::EcoEncode::Fold;
 $folded = mime_eco_fold($str, 'UTF-8');        # fold utf8 string
 $folded = mime_eco_fold($str, 'GB2312');       # fold euc-cn string
 $folded = mime_eco_fold($str, 'EUC-KR');       # fold euc-kr string
 $folded = mime_eco_fold($str, 'Big5');         # fold big5 string
 $folded = mime_eco_fold($str, 'Shift_JIS');    # fold cp932 string
 $folded = mime_eco_fold($str, 'ISO-2022-JP');  # fold 7bit-jis string
 $folded = mime_eco_fold($str, $sbcs);          # $sbcs :
                                                #   single-byte charset
                                                #   (e.g. 'ISO-8859-1')

DESCRIPTION

This is a module for folding multi-byte string.

When the line of the e-mail text is long, SMTP server may insert line feed code and the multi-byte string might break. This module was written in order to prevent it.

Options

  $folded = mime_eco_fold($str, $charset, $lf, $bpl);
               # $charset : 'UTF-8' / 'GB2312' / 'EUC-KR' / 'Big5' /
               #            'Shift_JIS' / 'ISO-2022-JP' / ...
               #            (default: 'UTF-8')
               #              Note: The others are all folded as
               #                    single-byte string.
               # $lf      : line feed (default: "\n ")
               # $bpl     : bytes per line (default: 990)
               #              Note: 990 is postfix's default.

Examples

Ex1

  use MIME::EcoEncode::Fold;
  my $str =<<"END";
  This document specifies an Internet standards track protocol for the
  Internet community, and requests discussion and suggestions for
  improvements.
  END
  print mime_eco_fold($str, 'UTF-8', undef, 50);

Ex1's output:

  This document specifies an Internet standards trac
   k protocol for the
  Internet community, and requests discussion and su
   ggestions for
  improvements.

AUTHOR

MURATA Yasuhisa <murata@nips.ac.jp>

COPYRIGHT

LICENSE

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