Word::Anagram - Perl extension for find anagrams of a word
use Word::Anagram; my $obj = Word::Anagram->new;
A class to search anagrams of a word in different contexts. E.g. find the anagrams of a word inside a list of words (dictionary). Or find if two words are anagrams. Or, to filter all anagrams inside a list of words that are anagrams of each other.
Be aware that inside is used a recursive sub and this require a lot of memory during the increase of the word's lenght, while are find all anagrams of a given word.
All search are case-insensitive.
# check if two words, $word1 $word2, are anagram my $obj = Word::Anagram->new; my ($word1, $word2) = qw( donna danno ); my $bool = $obj->are_anagrams($word1, $word2); # return true/false
# select all words inside @words that are anagrams my $obj = Word::Anagram->new; my @words = qw(Donna Danno Pluto Toplu Paperino Minni); my $anag = $obj->select_anagrams(\@words); # return an array ref
# find all anagrams of $word my $obj = Word::Anagram->new; my $word = 'ABC'; my $anag = $obj->get_anagrams_of($word); # return an array ref
# find all anagrams of $word inside @words my $obj = Word::Anagram->new; my $word = 'nonda'; my @words = qw(donna danno pluto toplu paperino minni des nodan ); my $anag = $obj->find_word_in($word, \@words); # return an array ref
Leo Manfredi, <firstname.lastname@example.org>
COPYRIGHT AND LICENSE
Copyright (C) 2012 by Leo Manfredi
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.12.0 or, at your option, any later version of Perl 5 you may have available.