diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-01-31 20:15:34 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-01-31 20:15:34 -0500 |
commit | a58fc188f9cd24bdb290c6d9d9e325a09554e572 (patch) | |
tree | 39ef582182929db3fbe487841b1f6c8dd1c732e9 /lib | |
parent | 34976184a55c2548a71fa99f59467abd58725211 (diff) | |
download | games-word-a58fc188f9cd24bdb290c6d9d9e325a09554e572.tar.gz games-word-a58fc188f9cd24bdb290c6d9d9e325a09554e572.zip |
add words_like to search the word list for words matching a given regex
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Games/Word/Wordlist.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/Games/Word/Wordlist.pm b/lib/Games/Word/Wordlist.pm index f7f9716..0ae24a9 100644 --- a/lib/Games/Word/Wordlist.pm +++ b/lib/Games/Word/Wordlist.pm @@ -114,6 +114,14 @@ sub anagrams { return uniq grep { $self->is_word($_) } all_permutations($word); } +sub words_like { + my $self = shift; + my $re = shift; + my @words = (); + $self->_each_word(sub { push @words, $_[0] if $_[0] =~ $re }); + return @words; +} + =head1 NAME Games::Word::Wordlist - ??? |