Perl语言入门：简单的发送邮件

概述

mail

sendmail

实际操作

系统调用mail命令

my $subject = 'Test';
my $content = 'This is a content';
my $to = 'xxxxxxxxxx@qq.com';
my $cmd = "echo $content|mail -s $subject $to";
system($cmd);

使用文件读写

$to = 'xxxxxxxxxx@qq.com';
$from = 'test@gamil.com';
$subject = 'TEST';
$message = 'This is a testing mail';

open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";

print MAIL $message;
close(MAIL);
print "The e-mail has been sent\n";

发送HTML格式的邮件

Content-type: text/html\n

$to = 'xxxxxxxxxx@qq.com';
$from = 'test@gmail.com';
$subject = 'TEST';
$message = '<h1>This is a  HTML test<h1><p>Hello HTML</p>';
open(MAIL, "|/usr/sbin/sendmail -t");

print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type: text/html\n";

print MAIL "$message";

close(MAIL);
print "The e-mail has been sent\n";

使用MIME::Lite模块

use

use MIME::Lite;

$to = 'xxxxxxxxxx@qq.com';
$from = 'test@gamil.com';

$subject = 'TEST';
$message = 'This is a MIME::Lite test';

$msg = MIME::Lite->new(
From    =>  $from;
To      =>  $to;
Cc      =>  $cc;
Subject =>  $subject;
Data    =>  $message;
);
$msg->send;
print "The e-mail has been sent\n";