用到的库: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 发送邮件所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)