markdownを使ってHTMLメールを送信

markdownはプレーンテキストをHTMLに変換するツールである。

CPANだとText::Markdownというモジュールがあるので、これを使ってHTMLメールを送るには、以下のようにすればできるだろう。

use Email::MIME;
use Email::Sender::Simple 'sendmail';
use Text::Markdown 'markdown';

my $html = markdown($text);

my $email = Email::MIME->create(
    header => [
        From    => $from,
        To      => join(',', @to),
        Subject => $subject,
    ],
    attributes => {
        content_type => 'text/html',
        charset      => 'ISO-2022-JP',
        encoding     => '7bit',
    },
    body => $html,
);

sendmail($email);

参考

• Daring Fireball: Markdown
• Text::Markdown - search.cpan.org