use Mail::SpamAssassin;
my $sa = Mail::SpamAssassin->new();
use Data::Dumper;
open FILE, "<", "allmal/home/popclient/1/all394.folder394.622.eml";
while(){
$content .=$_;
}
my @lines = ;
my $mail = Mail::SpamAssassin::Message->new({ "message" => $content });
print Dumper($mail);
阅读(933) | 评论(0) | 转发(0) |
