package Filter;
use strict;
use Carp;
use File::Slurp;
##¸ù¾Ý¹Ø¼ü×Ö¹ýÂË####
sub accept_it {
    my $class = shift;
    my  $news_content = shift ||"";
    ##´ÓÅäÖÃÎļþÖÐÈ¡¹Ø¼ü×Ö###
    my @kws= read_file( 'keywords/kws.txt' ) ;
    foreach my $kw (@kws){
        $kw =~ s/\n//;
        ##ֻҪƥÅäÒ»¸ö¹Ø¼ü×Ö¾Íok##
        if($news_content =~ /$kw/im){
            return 1;
        }else{
            return 0;
        }
    }

}



1;