在跑仿真时，尤其是后仿，往往需要耗时很长时间，少则几小时，多则几天，我们不可能一直守在电脑前，因此，设置自动邮件提醒很有必要；
Perl实现一个简单的脚本：
通过搜索仿真sim.log中 FAIL 、ERROR 、PASS等字符，来判断仿真结果，将其记录到report.log中，包括仿真log路径，时间等信息，并实时发送邮件；
代码语言：javascript复制#!usr/bin/perl -w
use strict ;
my $result ;
my $now = `date %Y-%m-%d' '%H:%M:%S`;
check_PASS_or_FAIL(); #搜索
pwd(); #打印路径
sendmail(); #发送邮件
sub check_PASS_or_FAIL{
open(OUTFILE, ">report.log");
if(`grep -P "FAIL|ERROR" ./sim.log`){
$result = $now . "FAILn";
print OUTFILE ($result);
}
elsif(`grep -P "PASS|SUCCESS" ./sim.log`){
$result = $now . "PASSn";
print OUTFILE ($result);
}
else {
$result = $now . "Unknown";
print OUTFILE ($result);
}
}
sub pwd{
system("echo "`pwd`n" >>report.log ");
}
sub sendmail{
system("mail -s "END" "xxx@xxx.com" < report.log");
}
邮件结果：
代码语言：javascript复制2022-01-28 18:52:35
PASS
/home/perl/log
Mail扩展知识
“mail test“为邮件内容，test为邮件主题
代码语言：javascript复制echo “mail test”|mail -s test xxx@xxx.com
将file中的内容发送至邮件:
代码语言：javascript复制mail -s test xxx@xxx.com< file
给多个用户发送邮件
代码语言：javascript复制mail -s test -c xxx@xxx.com xxx@xxx.com< file
将file文件内容发送给收件人xxx1@xxx1 并抄送给 xxx2@xxx2 和 xxx3@xxx3
代码语言：javascript复制mail -s test -c “xxx2@xxx2 xxx3@xxx3" xxx1@xxx 1< file
