perl 发送邮件

用到的库：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即可。