AI-Classifier
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/AI/Classifier/Text/FileLearner.pm view on Meta::CPAN
return $dirs[0]
}
sub next {
my $self = shift;
my $file = $self->iterator->match;
return if !defined($file);
my $category = $self->get_category( $file );
open(my $fh, "<:encoding(UTF-8)", $file )
|| Carp::croak(
"Unable to read the specified training file: $file\n");
my $content = join('', <$fh>);
close $fh;
my $initial_features = {};
if( -f "$file.data" ){
my $data = do "$file.data";
$initial_features = $data->{initial_features}
}
my $features = $self->analyzer->analyze( $content, $initial_features );
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.153 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )