自动发送邮件的脚本实现
在 AIX6100-03 操作系统中，sendmail version AIX6.1/8.13.4 已经被默认安装。在这样的配置环境中，本节将给出两个实现不同功能的 Perl 脚本。
清单 11 中的 Perl 脚本实现了邮件带主题和附件的功能。
清单 11. 带有附件的邮件自动化发送邮件脚本
#!/usr/bin/perl # 接受者的邮件系统 my $email = "receiver\@cn.ibm.com"; # 将作为附件发送出去的两个文件 my $file1="/tmp/1.txt"; my $file2="/tmp/2.txt"; # 将要使用的邮件发送程序 my $mailprog = "/usr/bin/mail"; # 记录发送时间 my $datestring=`date +%m\/%d\/%Y`; chomp（$datestring）; #email 的主题 my $subject= "\"Subject: Test on AIX $datestring with attachment\""; # 产生发送邮件命令 my $cmd_sendmail = "uuencode $file1 \"1.txt\" $file2 \"2.txt\" |"; $cmd_sendmail .= "$mailprog -s $subject $email "; # 执行发送命令 system（$cmd_sendmail）;
清单 12 中的 Perl 脚本实现了不带附件、有邮件内容的自动化发送邮件的功能。
清单 12. 不带附件的邮件自动发送邮件的脚本实现
#!/usr/bin/perl # 接受者的邮件系统 my $email = "receiver\@cn.ibm.com"; # 记录发送时间 my $datestring=`date +%m\/%d\/%Y`; chomp（$datestring）; #email 的主题 my $subject= "\"Subject: Test on AIX $datestring \""; # 产生发送邮件命令 my $cmd_sendmail = "echo $message |"; $cmd_sendmail .= "$mailprog -s $subject $email"; # 执行发送命令 `$cmd_sendmail`;