Question

I am using Perl’s Lingua::Stem module (Lingua::Stem) and I want to have a text file or other editable file format to contain a list of words I do not want stemmed. I want to be able to add words to the file any time.

Their example shows:

add_exceptions($exceptions_hash_ref);

What is the best way to do this?

I used their method in hard coding some exceptions, but I want to do this with a file.

# adding default exceptions
Lingua::Stem::add_exceptions({ 'emily' => 'emily',
                            'driven' => 'driven',
                        });

Answer 1

Assuming your “editable” file is whitespace separated, like so:

emily emily
driven driven

Your code could be:

open my $fh, "<", "excep.txt" or die $!;
my $href = { map split, <$fh> };
Lingua::Stem::add_exceptions($href);