prop.pl

dbacl是一个通用目的的digramic贝叶斯文本分类器。它可以学习你提供的文本

#!/usr/bin/perl

$special = $normal = 0;
while(<STDIN>) {
    $special++ if /^ >/;
    $normal++;
    print;
}
$prop = $special/$normal;
print "proportion: $prop\n";