【发布时间】:2013-06-26 09:21:35
【问题描述】:
背景:
我正在下载我的 twitter 提要并将它们保存到文本文件中,并且我想使用带有 Mail::SpamAssassin 的 perl 脚本来检查垃圾邮件的可能性。所以我关注this post 从文本中加载消息。我的所有邮件在我的 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 的文件,但我没有碰它
【问题讨论】:
-
open FILE, "<", ~/Messages/twitter_tweet.ema' or die;这是复制错误还是您的脚本也缺少文件名周围的开头'?
标签: perl twitter spam spamassassin