使用Perl处理电子邮件的方法的演化

来源:本网整理

所谓不支持的现象是什么?代码怎么写的?

译者/作者:chunzi

出处:中国Perl协会 FPC(Foundation of Perlchina)

有可能是用户名输入错误,建议检查一下有无错误。有可能是没有输入@。有可能是后缀错误,如hotma

原名:The Evolution of Perl Email Handling

方舟生存进化进不去 点了本地游玩就一直无线这个画面 一开始进去也有 default properl

作者:Simon Cozens

cpulimit -p PID -l 30限制进程使用30%的CPU,注意的是如果是多核系统的话

原文:http://www.perl.com/pub/a/2004/06/10/email.html

发明perl的larry wall就说过:“perl可能不好看或者不好闻,但是它能完成任务”。pe

发表:June 10, 2004

正品的还可以。不管怎样,尽量选择304材质的水壶,市面上很多假冒劣质,用杂不秀钢材质作水壶以次充好,加热时会产生重金属污染,长期使用对人体有害。有些电路还不带过热保护,一旦失控起火灾就大事了,不要贪图便宜。

请保护作者的著作权,维护作者劳动的结晶。

首先来说,三大球要细分六个项目,而女排绝对不落后。中国女排自上世纪80年代便以确立了世界领先地位,中国的排球教练开发了众多战术打法,适合亚洲球员小快灵的特点。也涌现出郎平、孙晋芳、赖亚文等名将。如今,这些队员很多都成为了教练、官员,也一直没有离开排球。特别是郎平,在赴美学习打拼之后又回到中国女排执教,还在世界多国执教,丰富的执教经历让她开阔了视野、增长了见识,2013年再次接手中国女排后。她打破各级国家队的封闭建制,提拔朱婷、袁心玥、张常宁、龚翔宇等年轻队员,也终于在里约奥运会带领中国女排重夺金牌。虽然郎平是中国人,但她的个人经历非常丰富,足迹遍及世界,是世界顶级的教练员。中国女排的成功是教练

每天我都要花费大量的时间在电子邮件相关的工作上,或者通过邮件来和其他工作伙伴联系,或者饶有兴致地分析,索引,重新组织以及挖掘邮件内容。很自然的,Perl 协助我做这些事情。

据传,入夜后的故宫会有事情发生。你懂不懂?先来讲两个真人真事。1.某年某月某日,驻故宫消防支队一个班的武警消防官兵们,下榻在慈宁宫大殿内。由于是夏天,当时的营房没有降温设施,所以许多官兵喜欢到慈宁宫大殿休息。夜风吹过大殿,很凉快。大家知道慈宁宫是前清太后的寝宫。慈禧太后就曾住在这里。一天夜里,战士们照例铺上凉席睡在这里。第二天一早,新兵小吴醒来发现,自己不知道什么时候竟然躺在了大殿外面。开始他以为是战友们和他开玩笑。可是一问,大家都说不知道。第二天,同样诡异的事情竟发生在三个战士的身上。后来支队领导还专门调查过此事,因为没有线索最后不了了之。从此,没人敢在这里睡觉了。2.宫墙宫女事件。90年代

在 CPAN 上有很多现成的模块可以用来处理电子邮件,我们将介绍其中几个主要的。同时我们也将关注由我和 Richard Clamp,Simon Wistow 以及其他伙伴所致力的 Perl 电子邮件项目(Perl Email PRoject),该项目的目标是提供一系列简单的,有效的,精准的邮件处理模块。

邮件消息的处理

我们从一些比较简单的,用来描绘一封单独邮件,提供对邮件头和邮件体的访问,甚至修改它们的信息的那些模块开始介绍。

这是大众UP,属于大众进口的微型车,在国内非常少见,而且尺寸比polo还小,动力方面,大众crossup!搭载的依然是一台最大功率为75马力的1.0L发动机,传动部分匹配5速AMT半自动变速箱。油耗很低,适合城市驾驶,价格在12万左右,购买的人不多

所有的这些模块的曾祖父都是 Mail::Internet ,由 Graham Barr 创建,目前 Mark Overmeer 在维护。该模块提供了通过数组(元素为字符串行)或者文件句柄来读取信件内容的构造器,并通过它返回一个描述该信件的 Mail::Internet 对象。在下面的例子中,我们使用变量 $rfc2822 来表示字符串形式的邮件信息内容。

my $obj = Mail::Internet->new( [ split /\n/, $rfc2822 ] );Mail::Internet 从信件中提取构造出一个邮件头对象,并连带邮件体信息。邮件头对象的类为 Mail::Header 。你可以通过该对象获取或者设置邮件头的信息:

my $subject = $obj->head->get("Subject"); $obj->head->replace("Subject", "New subject");而读取或者编辑邮件体内容的操作,则可以使用 body 方法:

my $old_body = $obj->body; $obj->body("Wasn't worth reading anyway.");到现在为止我还没有提到过任何关于 MIME 的东西。对于简单的任务来说,Mail::Internet 确实非常方便,不过它并不完全支持对 MIME 的处理。谢天谢地,MIME::Entity 作为一个为 MIME 而考虑设计的 Mail::Internet 子类,允许你读取 MIME 消息的每一个独立的部分(part):

my $num_parts = $obj->parts; for (0..$num_parts) { my $part = $obj->parts($_); ... }如果 Mail::InternetMIME::Entity 都不适合你,你可以试试 Mark Overmeer 自己的 Mail::Message 模块,该模块是令人印象深刻的 Mail::Box 模块中的一部分。Mail::Message 是个极富特色的、功能全面的模块,但这些优点并不总意味着褒扬。

Mail::Message 对象通常都是在 Mail::Box 读取一个电子邮件文件夹的时候,在内部构建的。当然它也可以通过 read 方法来读取一封信件:

$obj = Mail::Message->read($rfc2822);就像 Mail::Internet 一样,邮件消息被分割为邮件头和邮件体,而与 Mail::Internet 不同的是,邮件体也是一个对象。我们如此读取邮件头:

$obj->head->get("Subject");或者,如果是 Subject 头信息以及其他常见的邮件头信息,可以如此读取:

$obj->subject;我找不到直接设置头信息的方法,所以最终可能需要这样做:

$obj->head->delete($header); $obj->head->add($header, $_) for @data;读取邮件体内容作为字符串形式表达也仅有一点麻烦:

$obj->decoded->string而设置邮件体内容的操作则绝对是恶梦 -- 我们不得不构建一个 Mail::Message::Body 对象来覆盖现有的。

$obj->body(Mail::Message::Body->new(data => [split /\n/, $body]));Mail::Message 处理邮件的时候可能有点慢,也着实难用。它的体系也非常复杂,上面我们所看到的这些操作就已经用到了 16 种类 (Mail::Address, Mail::Box::Parser, Mail::Box::Parser::Perl, Mail::Message, Mail::Message::Body, Mail::Message::Body::File, Mail::Message::Body::Lines, Mail::Message::Body::Multipart, Mail::Message::Body::Nested, Mail::Message::Construct, Mail::Message::Field, Mail::Message::Field::Fast, Mail::Message::Head, Mail::Message::Head::Complete, Mail::Message::Part, 以及 Mail::Reporter)和 4400 多行的代码。尽管它确实拥有很多功能,我还是傻傻的觉得邮件的分析处理应该更为简洁。所以我坐下来决定自己着手编写尽可能简洁的邮件处理函数库,结果就有了 Email::Simple 模块,它的交互界面如下所示:

my $obj = Email::Simple->new($rfc2822); my $subject = $obj->header("Subject"); $obj->header_set("Subject", "A new subject"); my $old_body = $obj->body; $obj->body_set("A new body\n"); print $obj->as_string;它做的事情并不多,但却非常简单和高效。如果你需要 MIME 处理,可以使用它的子类 Email::MIME, 该类增加了 parts 方法。

实际上,选择哪一种邮件处理函数库完全取决于你,最终用户,不过并不总是这样的。有许多辅助性的模块,帮助你在更高的应用层上处理邮件信息的,可能要求你提供特定的邮件表达对象。比如最近的 Mail::ListDetector 模块(稍后我们将解析),需要传给它的邮件为 Mail::Internet 对象,因为该对象的操作界面(API)是已知的。而我不想用 Mail::Internet 对象,但我又需要 Mail::ListDetector 的一些功能,那我可以做些什么呢?

为了让用户也能够有这样的选择,我写了一个用于表达上面各个模块操作界面的抽象层,叫做 Email::Abstract 。给出上面任何一种类型的对象,我们都可以说:

my $subject = Email::Abstract->get_header($obj, "Subject"); Email::Abstract->set_header($obj, "Subject", "My new subject"); my $body = Email::Abstract->get_body($obj); Email::Abstract->set_body($message, "Hello\nTest message\n"); $rfc2822 = Email::Abstract->as_string($obj);Email::Abstract 知道如何在这些主要的邮件表达对象上作相应的操作。它也抽象了构造邮件消息的过程,并允许你通过类方法 cast 来改变邮件消息对象的操作界面:

my $obj = Email::Abstract->cast($rfc2822, "Mail::Internet");my $mm = Email::Abstract->cast($obj, "Mail::Message"); 这样使得模块的作者得以使用“接口预先未知(interface-agnostic)”的方式来撰写邮件处理函数库。我很感谢 Michael Stevens 立即在 Mail::ListDetector 中使用了 Email::Abstract 。现在我可以将 Email::Simple 对象传递给 Mail::ListDetector 了,而且它工作的非常好。

Email::Abstract 也给了我们对上面所有这些模块作基准测试(benchmarks)的机会。这里是我使用的测试代码:

use Email::Abstract; my $message = do { local $/; ; }; my @classes = qw(Email::MIME Email::Simple MIME::Entity Mail::Internet Mail::Message); eval "require $_" or die $@ for @classes; use Benchmark; my %h; for my $class (@classes) { $h{$class} = sub { my $obj = Email::Abstract->cast($message, $class); Email::Abstract->get_header($obj, "Subject"); Email::Abstract->get_body($obj); Email::Abstract->set_header($obj, "Subject", "New Subject"); Email::Abstract->set_body($obj, "A completely new body"); Email::Abstract->as_string($obj); } } timethese(1000, \%h); __DATA__ ...我把一封短小的邮件放到 DATA 部分中,并运行相同的操作一千次:构造一个新的消息对象,读取邮件头,读取邮件体,并将消息内容作为字符串返回。

Benchmark: timing 1000 iterations of Email::MIME, Email::Simple, MIME::Entity, Mail::Internet, Mail::Message... Email::MIME: 10 wallclock secs ( 7.97 usr + 0.24 sys = 8.21 CPU) @ 121.80/s (n=1000) Email::Simple: 9 wallclock secs ( 7.49 usr + 0.05 sys = 7.54 CPU) @ 132.63/s (n=1000) MIME::Entity: 33 wallclock secs (23.76 usr + 0.35 sys = 24.11 CPU) @ 41.48/s (n=1000) Mail::Internet: 24 wallclock secs (17.34 usr + 0.30 sys = 17.64 CPU) @ 56.69/s (n=1000) Mail::Message: 20 wallclock secs (17.12 usr + 0.27 sys = 17.39 CPU) @ 57.50/s (n=1000)Perl 电子邮件项目确实是成功的:Email::MIMEEmail::Simple 的运行速度差不多是对手的两倍。然而,我们要强调一点,这里所做的测试都是非常低级的,如果你要做任何比这里看到的更加复杂的操作,你该考虑哪些老的 Mail:: 模块。

邮箱的处理

对于单独信件的处理已经谈了很多了,让我们来看看对一组邮件或者存放邮件的文件夹该如何处理。我们提到过 Mail::Box ,它绝对是处理邮件文件夹的老大,它支持本地和远程的文件夹处理,可以编辑文件夹,以及作相应的排序操作等等。要使用它,我们首先需要 Mail::Box::Manager 模块,它是用来构建 Mail::Box 对象的工厂对象。

use Mail::Box::Manager my $mgr = Mail::Box::Manager->new;接下来,我们通过管理器来打开文件夹:

my $folder = $mgr->open(folder => $folder_file);而现在,我们可以获取各个独立的邮件表达对象(Mail::Message):

for ($folder->messages) { print $_->subject,"\n"; }与此最为相近的,我喜欢用的邮箱管理器还是 Mail::Utilread_mbox 函数。把 Unix 中 mbox 文件路径传递给它,然后返回一系列的匿名数组,每个匿名数组都表示一个邮件消息,其元素为该消息的每一行。如此一来,它非常适合 Mail::Internet->new 或者相近的:

for (read_mbox($folder_file)) { my $obj = Mail::Internet->new($_); print $_->head->get("Subject"),"\n"; }这两种做法都非常容易,不过似乎在 Mail::Util 的简洁性和 Mail::Box 的功能上还有些简化的余地,于是电子邮件项目再次停滞下来,这次的焦点集中在 Email::FolderEmail::LocalDelivery 上面。 Email::Folder 可以处理 mbox 和 maildir 格式的邮件文件夹,以及计划中更多其他格式,并且它有非常简洁的操作界面:

my $folder = Email::Folder->new($folder_file); for ($folder->messages) { print $_->header("Subject"),"\n"; }默认情况,它返回一系列 Email::Simple 对象用以表达每封邮件,不过这可以通过派生一个子类来改变。例如,如果我们想要原始的 RFC2822 格式的字符串,我们可以这样做:

package Email::Folder::Raw; use base 'Email::Folder'; sub bless_message { my ($self, $rfc2822) = @_; return $rfc2822; }可能将来我们不用再派生一个子类,然后 bless_message ,而改用 Email::Abstract->cast 来更容易的改变对邮件消息的表达方式。

处理文件夹的另一方面就是如何写数据了。或者说如何本地投递。Email::LocalDelivery 模块的出现是为了辅助 Email::Filter 。问题比听起来要更难些,因为它必须处理锁定,跳开邮件体,以及由 mailbox 和 maildir 等不同格式而引发的问题。而 LocalDelivery 则通过简单的界面把所有这些都隐藏起来:

Email::LocalDelivery->deliver($rfc2822, @mailboxes);Email::LocalDeliveryEmail::Folder 都使用了 Email::FolderType 模块来帮助确定是哪种类型的邮件文件夹(通过文件名来判断)。

邮件地址的处理

我们再次从抽象层面回到低级的处理,有大量的模块可用于对邮件地址的处理。我很喜欢老的 Mail::Address 模块。邮件地址可以分割为各种字段,诸如:实际的邮件地址,名称短语,注释信息。例如:

Example user (Not a real user)Mail::Address 解析这些邮件地址,并将名称短语和注释分离出来,以便获取各个独立的部分:

for (Mail::Address->parse($from_line)) { print $_->name, "\t", $_->address, "\n"; }不幸的是,和其他很多邮件模块一样,并不真的那么有用。

my ($addr) = Mail::Address->parse('"eBay, Inc." '); print $addr->name # Inc. eBay得到的结果仍然难以让人接受,虽然它比之间的版本所返回的 "Inc Ebay" 要好些。于是 Casey West 加入我们并创造了 Email::Address 模块。它和 Mail::Address 使用一致的交互界面,并且运行地更加快速,差不多两到三倍。(译注:上面的例子中,Email::Address 返回 "eBay, Inc." 。看来在作者眼里,Mail::Address 的作者画蛇添足了。)

还有一件我们经常需要做的事情就是校验邮件地址是否合法。比如,某个用户在站点上注册,我们就需要对他所提供的邮件地址是否能够接收邮件作检查。Email::Valid 模块是在我们这帮叛逆的人冲进来之前,就已有的 Email:: 名字空间的原住民,这个模块就是用来做这件事情的。在它最简约的用法中,我们可以说:

if (not Email::Valid->address('test@example.com')) { die "Not a valid address" }你也可以打开其他检查的选项,比如确定它的域名拥有一个合法的 MX 记录,修正常见的 AOL 和 Compuserve 的邮件地址的一些错误,如下:

if (not Email::Valid->address(-address => 'test@example.com', -mxcheck => 1)) { die "Not a valid address" }

邮件数据转换

我们有了自己的信件,接下来会对它们做些什么呢?我发现大多是对邮件进行文本化分析,这里有三个模块可以协助我们:

首先是 Text::Quoted ,它获取邮件体的文本,实际上可以是任何其他文本,然后尝试找出某些引用其他邮件的文本部分,然后将之分离并保存到嵌套的数据结构中。例如,如果我们有

$message = < foo > # Bar > baz quux EOF然后运行 extract($message) 就会返回如下的数据结构:

[ [ { text => 'foo', quoter => '>', raw => '> foo' }, [ { text => 'Bar', quoter => '> #', raw => '> # Bar' } ], { text => 'baz', quoter => '>', raw => '> baz' } ], { empty => 1 }, { text => 'quux', quoter => '', raw => 'quux' } ];当你显示邮件消息的内容时,准备用不同的颜色来区分不同的引用文本,那么这个模块就帮到你大忙了。类似概念的还有 Text::Original 模块,用于搜寻以原始文件内容开头,没有被引用的部分。它知道如何识别各种类型的属性行,所以有:

$message = < Why are there so many different mail modules? There's more than one way to do it! Different modules have different focuses, and Operate at different levels; some lower, some higher. EOF那么 first_sentence($message) 将返回 There's more than one way to do it!。Mariachi 邮件列表存档程序就使用了这项技术,为一个线索中的邮件给出它的提白。

说到邮件的线索化,Mail::Thread 模块实现了 Jamie Zawinski 的邮件线索化算法,该算法先是被 Mozilla 所用,继而许多其他邮件客户端也开始使用这种技术。当然 Mariachi 也使用了这项技术,最近它还作了更新,使用 Email::Abstract 来处理各种你扔过去的邮件表达对象:

my $threader = Mail::Thread->new(@mails); $threader->thread; # 计算线索 for ($threader->rootset) { # 在一个线索内的原始邮件 dump_thread($_); }

邮件过滤

经典的 Perl 的邮件过滤工具莫不就是 Mail::Audit 了,我还在这里写过关于如何使用 Mail::Audit 模块的文章(http://www.perl.com/pub/a/2001/07/17/mailfiltering.html),以及如何与 Mail::SpamAssassinhttp://www.perl.com/pub/a/2002/03/06/spam.html)模块相结合使用。

我们已经提到过 Mail::ListDetector 模块好几次了。我把它和 Mail::Audit 结合在一起使用,帮助自己做了大量的自动邮件过滤工作。Mail::Audit::List 的插件使用 ListDetector 来查找信件中的邮件列表头信息,诸如 List-IdX-Mailman-Version 等等类似的东西,这些头信息可以帮助判别该邮件是否来自于邮件列表。这意味着我有能力过滤所有来自邮件列表的信件到各自的文件夹中,就像这样:

my $list = Mail::ListDetector->new($obj); if ($list) { my $name = $list->listname; $item->accept("mail/$name.-$date"); }然而,Mail::Audit 本身还有很长一段路要走,所以如果你新架设的系统的话,我们鼓励您使用电子邮件项目的 Email::Filter 模块作为替代,它们的大部分操作界面是一致的,尽管功能并不完全相同。为了追求简洁和速度,它使用了新式的 Email::Simple 作为邮件表达对象模块。

邮件信息挖掘

最后,我所做的比较高级的事情就是开发一个自动分类,组织,并索引邮件到数据库的应用框架,并尝试从中分析并提取有价值的信息。

我的第一个完成这个预期目标的模块是 Mail::Miner ,它由三个主要部分组成。第一个部分获取一封邮件后,去除各种附件,并分别存储到数据库。第二部分纵览这封邮件并运行一系列的识别(Recogniser)模块,如此搜寻邮件地址,电话号码,一些关键字和短语等等,并把它们存储到另一个独立的数据库表中。第三部分为命令行工具,用来查询数据库中的邮件以及相关的信息。

举个例子,如果我需要找 Tim O'Reilly 的邮政地址,我就会使用查询工具 mm ,从他发来的信中找出该地址:

% mm --from "Tim O" --address Address found in message 1835 from "Tim O'Reilly" : Tim O'Reilly @ O'Reilly %26amp; Associates, Inc. 1005 Gravenstein Highway North, Sebastopol, CA 95472如果要获取完整的邮件,我可以说

% mm --id 1835如果它原本包含一个附件,那么我们可能会看到类似下面的部分:

[ text/xml attachment something.xml detached - use mm --detach 208 to recover ]我粘贴中间的那一行 mm --detach 208 到 shell 中,然后很快的,something.xml 写到了磁盘上。

现在 Mail::Miner 已经非常不错了,不过它把三种思想紧紧地捆绑在一个包中 -- 邮件的归档,邮件的数据挖掘以及查询数据库的命令行界面 -- 这使得很难单独开发或者扩展每块的功能。当然,它使用了老式的 Mail:: 名字空间。

这引领我们走到这次邮件模块旅程的最后一站,最新发布的:Email::Store 模块。这是个基于 Class::DBI 的应用框架,用来存储邮件到数据库并以各种方式索引:

use Email::Store 'dbi:SQLite:mail.db'; Email::Store->setup; Email::Store::Mail->store($rfc2822);紧接着...

my ($name) = Email::Store::Name->search( name => "Simon Cozens" ) @mails_from_simon = $name->addressings( role => "From" )->mails;它可以用来构建类似 Mariachi 的邮件列表归档工具,或者类似 Mail::Miner 的数据挖掘。它仍然在初步的开发阶段,并在增强模块的扩展性方面使用了一些新的思想。

在我们使用 Email::Store 写出第一个邮件归档和搜索工具的时候,我会再次给大家作详细介绍的。这也是为了 perl.org 的新的 Perl 邮件列表处理接口而准备做的工作。

小结

我们已经看过了 CPAN 上的几个主要的邮件处理模块,当然还有更多。很明显的,我着实偏袒那些自己写的模块。特定的 Perl 电子邮件项目的模块则使用 Email::* 的名字空间。我们特别设计了这些简洁、高效的模块,而它们并不总是老式的 Mail::* 模块的优良替换方案,特别像 Mail::Box 之类。到此,我希望各位通过对本文的阅读,了解和认识更多的邮件处理工具模块,并在之后使用 Perl 来处理邮件时,胸中有丘壑。

扩展阅读,根据您访问的内容系统为您准备了以下内容,希望对您有帮助。

电子邮件的正则表达式

  正则表达式,又称正规表示法、常规表示法(英语:Regular Expression,在代码中常简写为regex、regexp或RE),计算机科学的一个概念。正则表达式使用单个字符串来描述、匹配一系列符合某个句法规则的字符串。在很多文本编辑器里,正则表达式通常被用来检索、替换那些符合某个模式的文本。

许多程序设计语言都支持利用正则表达式进行字符串操作。例如,在Perl中就内建了一个功能强大的正则表达式引擎。正则表达式这个概念最初是由Unix中的工具软件(例如sed和grep)普及开的。正则表达式通常缩写成“regex”,单数有regexp、regex,复数有regexps、regexes、regexen。

 例如JS:

  email: {

  msg: "邮件地址不合法",

  test: function(obj) {

  return !obj.value || /^[a-zA-Z0-9_+.-]+\@([a-zA-Z0-9-]+\.)+[a-zA-Z0-9]{2,4}$/.test(obj.value);

  }

  }

如何用Perl发送邮件

使用Perl 发送邮件有很多方式,随便可数出来的有:

mail,

sendmail,

Mail::Mailer,

MIME::Lite

等等。这些方式都能实现邮件的发送,具体的就要看用在什么场合了。

1. mail方式

这个调用系统命令,算是最简单的方式了(我亲自测试可用)

my $mail_title= "test_mail";

my $mail_body = "ffmpeg error";

my $mail_to = 'xxxxxx@qq.com';

my $cmd_mail = "echo $mail_body\|mail -s $mail_title -cb $mail_to";

system($cmd_mail);

2. Mail::Mailer方式

#!/usr/bin/perl

use Mail::Mailer;

my $from_address = '';

my $to_address = 'xxxxxxxx@qq.com>';

my $subject = "mail title";

my $mail_body = "hello world!";

my $mailer = Mail::Mailer->new("sendmail");

my $mailer->open( { From => $from_address,

To => $to_address,

Subject => $subject,

})or die ("Can't open: $!\n");

print $mailer $mail_body;

$mailer->close();

3. MIME::Lite方式

一般邮件发送(我亲自测试通过).

#!/usr/bin/perl

use MIME::Lite;

use MIME::Words qw(encode_mimewords);

my $subject = encode_mimewords("test mail",'Charset','GB2312');

my $data ="test";

my $to_address = 'xxxxxxx@qq.com';

my $msg = MIME::Lite->new (

From => 'root@localhost',

To => $to_address,

Subject => $subject,

Type => 'text/html',

Data => $data,

Encoding => 'base64',

) or die "create container failed: $!";

$msg->attr('content-type.charset' => 'GB2312');

$msg->send('smtp','localhost',Debug=>0);

如果上述程序遇到下述的出错提示:

SMTP mail() command failed:

5.5.4 <root@localhost>... Real domain name required for sender address

则需要检查你主机名,

#cat /etc/hosts

并将“root@localhost”替换成“root@hostname”

另外 ,还可以使用MIME::Lite来发送中文HTML邮件,防止被ESP当作垃圾邮件干掉。

(摘自http://bbs.chinaunix.net/thread-1855349-1-1.html)

use MIME::Lite;

use MIME::Words qw(encode_mimewords);

sub send_email {

my $self = shift;

my $to_address = shift;

my $subject = encode_mimewords("这里是中文标题",'Charset','GB2312');

my $data =<<EOF;

<body>

<p>这里是中文HTML内容。</p>

</body>

EOF

my $msg = MIME::Lite->new (

From => 'you@example.com',

To => $to_address,

Subject => $subject,

Type => 'text/html',

Data => $data,

Encoding => 'base64',

) or die "create container failed: $!";

$msg->attr('content-type.charset' => 'GB2312');

$msg->send('smtp','localhost',Debug=>0);

}

几个常识点:

a. 标题必须用MIME::Words编码,很多人忽略了这点。

b. MIME::Lite构造信件时,Type不要搞错。例如只是一封HTML邮件,没有附件之类,Type就是text/html。

21CN的webmail发信不管有没有附件,Type都是multipart/mixed,结果被Gmail直接扔进垃圾箱。

c. 信件要选择传输编码(Encoding),常用的是base64和quoted-printable,我推荐base64。

d. 信件body的content-type charset要设置正确,例如中文GB2312。

e. 最后一句$msg->send('smtp','localhost',Debug=>0)调用Net::SMTP发信,本机安装了MTA例如Postfix就可以。这个发信IP最好是信誉比较好的IP,没有列入sorbs、spamcop、spamhaus等RBL列表里。

f. 发信IP最好有反向解析(PTR),否则肯定发不到AOL之类的验证反解的邮箱。

g. 那个From地址也最好真实存在,但是不要用知名网站的免费邮箱,例如From => 'abc@126.com',那么基本发不出去。

为什么?因为126.com设置了SPF,接收方MTA多半会验证这个SPF,你的IP当然不在126的SPF里,所以通不过验证。

h. $data变量包含的是信件body的HTML编码,这个body里不要有很多链接、图片之类,否则容易被Spamassassin之类的反垃圾软件干掉。

i. 最后,控制发送频率,大量的发送会引起各个反垃圾系统的警惕,并将你列入黑名单

4. Mail::Sendmail方式

linux下使用perl脚本通过139邮箱发送邮件之后,手机无法登录139邮箱

修改密码就是了,perl脚本也要修改一下,模拟浏览器登录。

电子邮件webmaster@...是什么意思啊

webmaster@...是该邮件公司的网络发件箱,就是个人邮箱所属公司的系统自动发送给用户的通知类型邮件。

它负责给公司用户发送邮件作为通知,但是用户却不能发送邮件到这个系统邮箱。不支持双向发邮件。

扩展资料:

Webmaster理解误区

首先Webmaster≠系统管理员。

在互联网络发展的今天,网络专业人才日渐紧缺,而以Webmaster为代表的网络专业人员在互联网络的发展过程中扮演着关键的角色。

在国内,长期以来业界对Webmaster的角色的认识还仅仅局限于网络管理员,认为Webmaster=系统管理员(System Administrator),就是负责网络操作系统、网络安全等后台工作的专业技术人员。

但事实上,由于互联网络的商业应用不断深入,Webmaster的工作职责与分工也越来越明晰,其工作范围已经涉及到了除技术方面的市场、管理、培训等多个方面。因此在国际上, Webmaster早已经被赋予了崭新的定义,并且逐渐职业化与专业化。

电子邮件格式

一封完整的电子邮件都有两个基本部分组成:信头和信体。

信头一般有下面几个部分:

1、收信人,即收信人的电子邮件地址;

2、抄送,表示同时可以收到该邮件的其他人的电子邮件地址,可有多个;

3、主题,是概括地描述该邮件内容,可以是一个词,也可以是一句话。由发信人自拟。

信体要求

信体是希望收件人看到的信件内容,有时信件体还可以包含附件。附件是含在一封信件里的一个或多个计算机文件,附件可以从信件上分离出来,成为独立的计算机文件。

参考资料来源:百度百科-Webmaster

参考资料来源:百度百科-电子邮箱

求perl 保存邮件附件脚本

试试这个Perl模块:Mail::Sender,你需要Google一下。

如果你要发送邮件的话,必须还要配置好各种参数,这里有一个例子,假如我有一个yahoo的邮箱xxx@yahoo.com.cn,一个163的邮箱yyy@163.com

use strict;

use warnings;

use Mail::Sender;

my $sender = new Mail::Sender

{smtp => 'smtp.mail.yahoo.com', from => 'xxx@yahoo.com.cn'};

my $result = $sender->MailMsg({smtp => 'smtp.mail.yahoo.com', #这个是你的邮件服务器的主机名

from => 'xxx@yahoo.com.cn',

to => 'yyy@163.com',

header => '',

subject => "Just a test!Don't reply!",

msg => "This is a test!\nIf you receive this email, that will prove that my perl script works successfully",

auth => 'LOGIN',

authid => 'xxx',

authpwd => 'zzz' #zzz是你的yahoo邮箱密码

});

if ($result < 0)

{

die "error!";

}

$sender->Close();

print "Success!\n";

这个例子我测试成功过,祝你好运!追问哥们,看下问题,是保存邮件附件哦,你这个我会的啊。

  • 本文相关:
  • 在Win2003中为 Internet 信息服务 SMTP 邮件中继服务器配置远程域
  • Jruntags实现Email发送
  • SCO UNIX操作系统下建立电子邮件服务器
  • 在UBUNTU里架设SquirrelMail邮件服务器
  • Foxmail Server 1.2 for Linux系统维护手册
  • Foxmail Server 1.2 for Linux数据备份手册
  • FoxMailServer for Unix邮件系统加域的工作流程
  • Foxmail Server邮件监视说明
  • 在Redhat Linux 8.0上安装Foxmail Server 1.3注意事项
  • FMS运行在64-bit Windows操作系统上
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2017 www.zgxue.com All Rights Reserved