草庐IT

Perl 发送邮件

runoob 2023-04-07 原文

Perl 发送邮件

如果你的程序在 Linux/Unix 系统上运行，你就可以在 Perl 中使用 sendmail 工具来发送邮件。

以下是一个简单的脚本实例用于发送邮件：

实例

#!/usr/bin/perl # 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱 $to = '429240967@qq.com'; #发送者邮箱 $from = 'test@runoob.com'; #标题 $subject = '菜鸟教程 Perl 发送邮件测试'; $message = '这是一封使用 Perl 发送的邮件。'; 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 "邮件发送成功\n";

执行以上程序，输出结果为：

邮件发送成功

正常情况下，以上邮件会被 QQ 邮箱拦截，我么可以把它加入白名单，操作方式可以点击：https://kf.qq.com/faq/120322fu63YV130805rYRFzu.html

加入白名单后就可以正常接收邮件了。

发送 HTML 格式邮件

我们可以在邮件头部添加 Content-type: text/html\n 来发送 HTML 格式的邮件，实例如下：

实例

#!/usr/bin/perl # 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱 $to = '429240967@qq.com'; #发送者邮箱 $from = 'test@runoob.com'; #标题 $subject = '菜鸟教程 Perl 发送邮件测试'; $message = '<h1>这是一封使用 Perl 发送的邮件<h1><p>你好，我来自菜鸟教程，地址是:http://www.runoob.com。</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 "邮件发送成功\n";

执行成功后，查看邮件内容，如下所示：

使用 MIME::Lite 模块

如果你使用的是 window 系统，没有 sendmail 工具。这时你就可以使用 perl 的 MIME:Lite 模块作为邮件客户端来发送邮件。

MIME:Lite 模块 下载地址为：MIME-Lite-3.030.tar.gz。

这里我们直接用 cpan 来安装(需要 root 权限)，不用下载：

$ cpan -i MIME::Lite
……
  /usr/bin/make install  -- OK

安装成功后，我们来演示一个实例：

实例

#!/usr/bin/perl use MIME::Lite; # 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱 $to = '429240967@qq.com'; # 抄送者，多个使用逗号隔开 # $cc = 'test1@runoob.com, test2@runoob.com'; #发送者邮箱 $from = 'test@runoob.com'; #标题 $subject = '菜鸟教程 Perl 发送邮件测试'; $message = '这是一封使用 Perl 发送的邮件，使用了 MIME::Lite 模块。'; $msg = MIME::Lite->new( From => $from, To => $to, Cc => $cc, Subject => $subject, Data => $message ); $msg->send; print "邮件发送成功\n";

执行成功后，查看邮件内容，如下所示：

发送 HTML 格式邮件

我们可以在邮件头部添加 Content-type: text/html\n 来发送 HTML 格式的邮件，实例如下：

实例

#!/usr/bin/perl use MIME::Lite; # 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱 $to = '429240967@qq.com'; # 抄送者，多个使用逗号隔开 # $cc = 'test1@runoob.com, test2@runoob.com'; #发送者邮箱 $from = 'test@runoob.com'; #标题 $subject = '菜鸟教程 Perl 发送邮件测试'; $message = '<h1>这是一封使用 Perl 发送的邮件<h1><p>使用了 MIME::Lite 模块。</p><p>来自菜鸟教程，地址是:http://www.runoob.com。</p>'; $msg = MIME::Lite->new( From => $from, To => $to, Cc => $cc, Subject => $subject, Data => $message ); # 添加头部信息 $msg->attr("content-type" => "text/html"); $msg->send; print "邮件发送成功\n";

执行成功后，查看邮件内容，如下所示：

发送带有附件的邮件

发送带有附件的邮件实例如下：

实例

#!/usr/bin/perl use MIME::Lite; # 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱 $to = '429240967@qq.com'; # 抄送者，多个使用逗号隔开 # $cc = 'test1@runoob.com, test2@runoob.com'; #发送者邮箱 $from = 'test@runoob.com'; #标题 $subject = '菜鸟教程 Perl 发送邮件测试'; $message = '这是一封使用 Perl 发送的邮件，使用了 MIME::Lite 模块，包含了附件。'; $msg = MIME::Lite->new( From => $from, To => $to, Cc => $cc, Subject => $subject, Type => 'multipart/mixed' # 附件标记 ); $msg->attach ( Type => 'TEXT', Data => $message );# 指定附件信息 $msg->attach(Type => 'TEXT', Path => './runoob.txt', # 当前目录下 Filename => 'runoob.txt', Disposition => 'attachment' ); $msg->send; print "邮件发送成功\n";

执行成功后，查看邮件内容，如下所示：

你可以通过使用多个 $msg->attach 来添加多个附件。

Perl发送spanclasshl-code

有关Perl 发送邮件的更多相关文章

  1. ruby - 如何将脚本文件的末尾读取为数据文件(Perl 或任何其他语言) - 2

    我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚

  2. jquery - 我的 jquery AJAX POST 请求无需发送 Authenticity Token (Rails) - 2

    rails中是否有任何规定允许站点的所有AJAXPOST请求在没有authenticity_token的情况下通过？我有一个调用Controller方法的JqueryPOSTajax调用，但我没有在其中放置任何真实性代码，但调用成功。我的ApplicationController确实有'request_forgery_protection'并且我已经改变了config.action_controller.consider_all_requests_local在我的environments/development.rb中为false我还搜索了我的代码以确保我没有重载ajaxSend来发送

  3. Python 相当于 Perl/Ruby ||= - 2

    这个问题在这里已经有了答案:关闭10年前。PossibleDuplicate:Pythonconditionalassignmentoperator对于这样一个简单的问题表示歉意，但是谷歌搜索||=并不是很有帮助；)Python中是否有与Ruby和Perl中的||=语句等效的语句？例如:foo="hey"foo||="what"#assignfooifit'sundefined#fooisstill"hey"bar||="yeah"#baris"yeah"另外，类似这样的东西的通用术语是什么？条件分配是我的第一个猜测，但Wikipediapage跟我想的不太一样。

  4. ruby - 使用 Ruby 通过 Outlook 发送消息的最简单方法是什么？ - 2

    我的工作要求我为某些测试自动生成电子邮件。我一直在四处寻找，但未能找到可以快速实现的合理解决方案。它需要在outlook而不是其他邮件服务器中，因为我们有一些奇怪的身份验证规则，我们需要保存草稿而不是仅仅发送邮件的选项。显然win32ole可以做到这一点，但我找不到任何相当简单的例子。 最佳答案 假设存储了Outlook凭据并且您设置为自动登录到Outlook，WIN32OLE可以很好地完成此操作:require'win32ole'outlook=WIN32OLE.new('Outlook.Application')message=

  5. ruby - Ruby 是否有类似于 Perl 的 "perl -d"的逐步调试器？ - 2

    Ruby是否有逐步调试器，类似于Perl的“perl-d”？ 最佳答案 ruby-debug(对于ruby1.8)，debugger(对于ruby1.9)，byebug(对于ruby​​2.0)以及trepanning系列都有一个-x或--trace选项。在调试器内部，命令setlinetrace将打开或关闭线路跟踪。这是themanualforruby-debug原来的答案已经修改，因为数据噪声文章的链接，唉，不再有效了。还添加了ruby​​-debug的后继者 关于ruby-Ruby

  6. ruby - 是否可以在不实际发送或读取数据的情况下查明 ruby​​ 套接字是否处于 ESTABLISHED 或 CLOSE_WAIT 状态？ - 2

    s=Socket.new(Socket::AF_INET,Socket::SOCK_STREAM,0)s.connect(Socket.pack_sockaddr_in('port','hostname'))ssl=OpenSSL::SSL::SSLSocket.new(s,sslcert)ssl.connect从这里开始，如果ssl连接和底层套接字仍然是ESTABLISHED，或者它是否在默认值7200之后进入CLOSE_WAIT，我想检查一个线程几秒钟甚至更糟的是在实际上不需要.write()或.read()的情况下关闭。是用select()、IO.select()还是其他方法完成

  7. ruby-on-rails - 验证电子邮件地址是 Paypal 用户 - 2

    我想验证一个电子邮件地址是否是PayPal用户。是否有API调用来执行此操作？是否有执行此操作的ruby​​库？谢谢 最佳答案 GetVerifiedStatus来自PayPal'sAdaptiveAccounts平台会为您做这件事。PayPal没有任何codesamples或SDKs用于Ruby中的自适应帐户，但我确实找到了编写codeforGetVerifiedStatusinRuby的人.您需要更改该代码以检查他们拥有的帐户类型的唯一更改是更改if@xml['accountStatus']!=nilaccount_status

  8. ruby-on-rails - Ruby on Rails - 需要在每周的特定时间将消息发送到电子邮件 - 2

    我想知道我应该如何着手这个项目。我需要每周向人们发送一次电子邮件。但是，这必须在每周的特定时间自动生成并发送。编码有多难？我需要知道是否有任何书籍可以提供帮助，或者你们中的任何人是否可以指导我。它必须使用ruby​​onrails进行编程。因此有一个网络服务和数据库集成。干杯 最佳答案 为什么这么复杂？您只需安排工作。您可以使用Delayed::Job例如。Delayed::Job让您可以使用run_at符号在特定时间安排作业，如下所示:Delayed::Job.enqueue(SendEmailJob.new(...),:run_

  9. ruby - 如何理解 Ruby 中的发送者和接收者？ - 2

    我很难理解Ruby中sender和receiver的实际含义。它们一般是什么意思？到目前为止，我只是将它们理解为方法调用和获取其返回值的调用。但是，我知道我的理解还远远不够。谁能给我一个Ruby中发送者和接收者的具体解释？ 最佳答案 面向对象中的一个核心概念是消息传递和早期概念化，这在很大程度上借鉴了计算的Actor模型。艾伦·凯(AlanKay)创造了面向对象一词并发明了最早的OO语言之一SmallTalk，他拥有voicedregretatusingatermwhichputthefocusonobjectsinsteadofo

  10. ruby - 动态扩展现有方法或覆盖 ruby​​ 中的发送方法 - 2

    假设我们有A、B、C类。Adefself.inherited(sub)#metaprogramminggoeshere#takeclassthathasjustinheritedclassA#andforfooclassesinjectprepare_foo()as#firstlineofmethodthenrunrestofthecodeenddefprepare_foo#=>prepare_foo()neededhere#somecodeendendBprepare_foo()neededhere#somecodeendend如您所见，我正在尝试将foo_prepare()调用注入

随机推荐