用perl收发邮件

现在已经没有多少人在命令行之下收发邮件了, 但是对于系统管理员来说, 命令行却又是极其方便, 例如我们公司目前使用的短信报警系统就是用perl来发送邮件给手机邮箱, 现在简单介绍一下邮件的收发.

1. 发邮件
大部分的服务商提供的SMTP服务, 都是要认证的, 这个时候需要一个叫Net::SMTP_auth的模块. 简单的程序如下, 注意最后的一个'点'哦..

 

#!/usr/bin/perl
use Net::SMTP_auth ;
my $smtp = Net::SMTP_auth -> new ( ' smtp.ex.com ' , Helo => ' ex.com ' , Debug => 1 ) ;
my $status = $smtp -> auth ( ' LOGIN ' , ' user ' , ' pass ' ) ;
$smtp -> mail ( ' 发件人地址 ' ) ;
$smtp -> to ( ' 收件人地址 ' ) ;
$smtp -> data () ;
$smtp -> datasend ( " 邮件内容 " ) ;
$smtp -> datasend ( " . " )
$smtp -> dataend () ;

2. 收邮件

收邮件也很简单, 需要个叫Net::POP3的模块, 简单程序如下

#!/usr/bin/perl
use Net::POP3 ;
my $pop = Net::POP3 -> new ( ' pop.ex.com ' , Timeout => 120 ) ;
 
if ( $pop -> login ( ' user ' , ' pass ' ) > 0 ) {
         my $msgnums = $pop -> list ;
         foreach my $msgnum ( keys % $msgnums ) {
                 my $msg = $pop -> get ( $msgnum ) ;
                 ##$msg返回的是一个引用....
                 #......处理你的信件...
                 $pop -> delete ( $msgnum ) ; #删除它
         }
}