利用Perl來寄UTF-8信件

張貼日期：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();