Rule | Example |
SSES → SS | caresses → caress |
IES → I | ponies → poni |
SS → SS | caress → caress |
S → "" | cats → cat |
use Text::English; @words = qw( cats went retrieval ); @stems = Text::English::stem( @words ); print "@stems\n"; # 実行結果: cat went retriev
use Text::Chalow::Parser; my $rcp1 = new Text::Chalow::Parser(); open(F, "ChangeLog"); $rcp1->read_file(\*F); my $rcp2 = new Text::Chalow::Parser(stop_date => "2008-01-01"); $rcp2->parse_string(\$changelog_string); How to access items in ChangeLog: see debug_print() in Parser.pm