■

spamassassinで覚えさせればよいのかも知れませんが、

よく分からないのでblacklist作成スクリプト。

phpで最初つくりましたが。

perlもありかなと。

とほほをみながら作成しました。

元のデータは、

egrep -h ^'From: ' *.em > spamem.txt

で作成してあります。

#! /usr/bin/perl

open(IN, "spamem.txt");
while ($xx = <IN>){ 
#    print $xx; 
    $SPW = index($xx,"<");   
    $EPW = index($xx,">");
    if ( $SPW > 0 and $EPW > 0 ) {
        open(OUT, ">> blist.txt");
#print substr($xx, $SPW, $EPW-$SPW);
        print(OUT  "blacklist_from " . substr($xx, $SPW+1, $EPW-$SPW-1) . "\n");
        close(OUT);
    }
}
close(IN);