張貼日期:May 06, 2015 9:11:54 AM
終於試成功了,
yum install perl-MailTools
下載
cd /usr/local/src/
wget http://search.cpan.org/CPAN/authors/id/D/DS/DSKOLL/MIME-tools-5.502.tar.gz
tar zxvf MIME-tools-5.502.tar.gz
cd MIME-tools-5.502
perl Makefile.PL
make
make test
make install
安裝好module後, 便可利用perl來撰寫程式
示範程式如下:
#!/usr/bin/perl
use Mail::Mailer;
# http://www.zeegee.com/code/perl/MIME-tools/download/
use MIME::Words qw(:all);
use strict;
my $charset='UTF-8';
# default /usr/bin/mail mailer strips mime headers, use 'sendmail' or 'smtp'
my $mailer = Mail::Mailer->new('sendmail');
# my $mailer = new Mail::Mailer 'smtp', Server => $server;
my $body = qq{
日本語
測試成功
};
$mailer->open({
From => encode_mimewords('寄件人test<test@jpps.tc.edu.tw>', Charset => $charset),
To => encode_mimewords('小花<jj@jpps.tc.edu.tw>', Charset => $charset),
Subject => encode_mimewords('測試 信2', Charset => $charset),
'MIME-Version' => '1.0',
'Content-Type' => "text/plain; charset=$charset",
'Content-Transfer-Encoding' => '8bit',
})
or die "Can't open: $!\n";
print $mailer $body;
$mailer->close();