2008-05-30から1日間の記事一覧
某案件でメールをPerlからパースしてSPAMかどうか判定せねばならなくなったのでメモ。SPAMを学習するにはこんな感じ。 #!/usr/bin/perl use strict; use warnings; use Mail::SpamAssasin; my $f = Mail::SpamAssasin->new; my $message = do { local $/; <>…
某案件でメールをPerlからパースしてSPAMかどうか判定せねばならなくなったのでメモ。SPAMを学習するにはこんな感じ。 #!/usr/bin/perl use strict; use warnings; use Mail::SpamAssasin; my $f = Mail::SpamAssasin->new; my $message = do { local $/; <>…