Select Code to Download

sub invert_string {
       my ($string, $weight, $hash) = @_;
...
            grep { !$StopWords{$_} }
            @{words(lc($string))};
    }

my $sentence1 = {
    wordA => 2,
    wordB => 1,
};

sub invert_item {
        my $item = shift;
...
        invert_string($item->{description}, 1, \%hash);
        return \%hash;
    }

 #!/usr/bin/perl

...
    }

    $nb->train; # Work out all the probabilities

 my $rss = new XML::RSS;
        $rss->parsefile("$category.rdf");
       $nb->add_instance(attributes => invert_item($_),
                          label      => $category) for @{$rss->{'items
+'}};
    }