モダンなPerl入門のメールの送信スクリプトのモダンさ具合が分からない

Tweet

メールの送信 - モダンなPerl入門 - モダンなPerl入門 [perl-users.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);

これに対し、今までのコードは

use strict;
use warnings;
use utf8;
use Encode;
use MIME::Lite;
 
my $msg = MIME::Lite->new(
    From     => 'from@example.com',
    To       => 'to@example.com',
    Subject  => Encode::encode('MIME-Header-ISO_2022_JP', 'コンニチワ'),
      # EncodeでMIME-Header-ISO_2022_JPが使えるのは
      # Perl5.8.6以降同梱のもの
    Type     => 'text/plain; charset="ISO-2022-JP"',
    Encoding => '7bit',
    Data     => encode('iso-2022-jp', '元気でやってるかー?'),
);
 
$msg->send();

となると思うのですが、この2つを比較して、どこをモダンといっているかの説明がないのでよく分からないとおもいました。

2008.05.31 00:05 投稿　大野 義貴 [Perl] | 固定リンク |