perl 发送邮件

perl 发送邮件,第1张

概述用到的库:Net::SMTP;这个可以在cpan上找得到。 另外在windows下安装perl的库可以使用ppm方法。 在command line里面输入ppm会出现Perl Package Manager。 找到你所需要安装的库选择“File”->"Run task"就可以了。   看个发送邮件的简单例子: sub SendEmail($$){    my $emailfrom="";    m

用到的库:Net::SMTP;这个可以在cpan上找得到。

另外在windows下安装perl的库可以使用ppm方法。

在command line里面输入ppm会出现Perl Package Manager。

找到你所需要安装的库选择“file”->"Run task"就可以了。

 

看个发送邮件的简单例子:

sub SendEmail($$){
   my $emailfrom="";
   my ($to,$day) = @_;
   my $mailhost='**.**';#邮件服务器的地址
   my $subject = "主题";
   my $text = "发送的内容“;
   my $smtp = Net::SMTP->new($mailhost,Timeout=>120,DeBUG=>0);
   $smtp->mail($emailfrom);
   $smtp->to($to);#收件人
   $smtp->data();
   $smtp->datasend("To:$to/n");
   #$smtp->datasend("From: $mailfrom/n");
   $smtp->datasend("Subject: $subject/n");
   #$smtp->datasend("/n");
   # Send the message
   $smtp->datasend("$text/n/n");
   #Send the termination string
   $smtp->dataend();
   $smtp->quit;
}

 

调用该方法的时候可能会出现 can not call the methond mail() at line **

出现这个的原因有可能是mail server 无法Ping 通。

 

另附perl追加文件的方法:

 

open file,'+>>',$filename;#以追加的方式打开文件
print file "$content","/n";#往文件中写内容
 close file;

 

perl解析xml文件:

用到的库:use XML::Simple;

 

看个例子:
   # read XML file
   print "begin to parse xml configure files..../n";
   my $xml = new XML::Simple;
   my $data;
   if (-e "config.xml")
   {
    $data = $xml->XMlin("config.xml");
    }else{
     dIE "Could not find config.xml file! please valIDate it exists/n";
    }
   $username = $data->{usrname};
   $password = $data->{pwd};

使用XMlin()读取xml文件然后直接访问每一个element即可。

总结

以上是内存溢出为你收集整理的perl 发送邮件全部内容,希望文章能够帮你解决perl 发送邮件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://www.outofmemory.cn/langs/1289186.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-09
下一篇 2022-06-09

发表评论

登录后才能评论

评论列表(0条)

保存