Encode.pm とかメールとかメモ

最近の書き方だと MIME-Header-ISO_2022_JP で encode してやればいいのね。body は iso-2022-jp っと。

use strict;
use warnings;
use utf8;
use Encode;
use Email::MIME;
use Email::MIME::Creator;
use Email::Send;

# メールオブジェクトをつくる
my $mail = Email::MIME->create(
    header => [
        From    => 'from@example.com',
        To      => 'to@example.com',
        Subject => Encode::encode('MIME-Header-ISO_2022_JP', 'コンニチワ'),
    ],
    parts => [
        encode('iso-2022-jp', '元気でやってるかー?'),
    ],
);

# Email::Send で送信する
my $sender = Email::Send->new({mailer => 'Sendmail'});
$sender->send($mail);
http://perl-users.jp/modern_introduction_perl/email_send.html

だけど、レンサバだと Perl のバージョン古くて使えない場合あるから、Jcode.pm の Pureperl を意外と使う機会があるんだよなぁ。どうしたもんか。