NAME

Word::Anagram - Perl extension for find anagrams of a word

SYNOPSIS

use Word::Anagram;
my $obj = Word::Anagram->new;

DESCRIPTION

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.

METHODS

are_anagram()

# 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_anagrams()

# 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

get_anagrams_of()

# 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_word_in()

# 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

AUTHOR

Leo Manfredi, <manfredi@cpan.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.