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にするとスパムじゃないメールとして学習。$
Perl Tips | Perl で、SpamAssassin を使って迷惑メールを処理する。
オープンソースで迷惑メールの処理するソフトといえば SpamAssassin （直訳すると スパム暗殺者 ）が有名だ。何しろ spamassassin.apache.org というサイト名からも分かるとおり、Apache Foundation 謹製なのだ。 その SpamAssassin、Perl で書かれている。なので当然 Perl のライブラリが用意されており、Perl 使いの人は簡単に自身のプログラム中から呼び出すことができる。SpamAssassin 自体はメールサーバのフロントエンドで、Procmail なんかと一緒に使うことが多いだろうから、あまり自身のプログラム中から呼び出すようなことはないとは思うのだが、何かのときに役に立つかもしれないから、とりあえず以下にサンプルを載せておこう（というかこのサイトのすべての内容自体、自分のためのメモなのでご了承を）。 #!/usr/bin
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
