- イメージを扱うところ
openで開いたあとbinmodeでバイナリ指定する。
open(IMG,"test.jpg");
binmode(IMG);
- sendmailを使うところ
Windows用フリー版sendmail互換ソフトもあるが、use Net::SMTPで代用したほうが手軽。
use Net::SMTP;
$smtp = Net::SMTP->new('mailhost');
$smtp->mail($ENV{USER});
$smtp->to('postmaster');
$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;
- エンコード
uuencodeではなく、BASE64を使う。ActivePerlの追加モジュールでできるが、mimew.plを使った方がつぶしが効くようだ。
$attach = &bodyencode($attach_tmp, "b64");
$attach .= &benflush("b64");