背景:
我正在下载我的 twitter 提要并将它们保存到文本文件中,我想使用带有 Mail::SpamAssassin 的 perl 脚本检查可能的垃圾邮件引擎盖。所以我关注了这篇关于从文本加载消息的帖子。我的所有邮件在我的 if 语句中都被标记为“非垃圾邮件”,即使是 419 诈骗邮件也是如此。
问题
- 我究竟做错了什么?
- 我必须配置 Spamasssasin 文件吗?
- 我的消息是否需要采用某种格式?
- 我的项目有更好的选择吗?
细节:
代码:
use Mail::SpamAssassin;
use strict;
use warnings;
open FILE, "<", ~/Messages/twitter_tweet.ema' or die;
my @lines = <FILE>;
my $spamtest = Mail::SpamAssassin->new();
my $mail = $spamtest->parse(\@lines);
my $status = $spamtest->check($mail);
print $status->get_report();
if ($status->is_spam()) {
print "Totally Spam\n";
} else {
print "not spam\n";
}
$status->finish();
$mail->finish();
$spamtest->finish();
输出:
(未找到报告模板)
不是垃圾邮件
笔记:
我没有配置 spamAssasin 我只是开始使用 perl 模块
我的主目录中有一个文件~/.spamassassin/user_prefs
,但我没有碰它