Mail::SpamAssassin - id:lopnor

某案件でメールをPerlからパースしてSPAMかどうか判定せねばならなくなったのでメモ。 SPAMを学習するにはこんな感じ。 #!/usr/bin/perl use strict; use warnings; use Mail::SpamAssasin; my $f = Mail::SpamAssasin->new; my $message = do { local $/; <> }; my $mail = $f->parse($message); $f->learn($mail,undef,1); newしてメールをparseして学習させる。 $status = $f->learn ($mail, $id, $isspam, $forget) となっていて、$idはMessage-Id。ここではメール一通突っ込む感じなので省略。$isspamを0にするとスパムじゃないメールとして学習。$

[yappo]

my$message = do { local $/; <> };