zeroclickinfo-goodies/lib/DDG/Goodie/FindAnagrams.pm

package DDG::Goodie::FindAnagrams;

use DDG::Goodie;
use JSON;
#use Data::Dumper;

zci is_cached => 1;

triggers start => "find anagrams";


my $json = scalar share('words.json')->slurp;

my %wordHash = %{decode_json($json)};

#print Dumper(\%wordHash);


handle remainder => sub {

    if ($_ eq ""){
	return "No Anagrams Found."
    }

# Format string to look like hash key by making it lowercase then splitting the string into chars, sort them and finally  join back into sorted string
    my $sorted_string = join("",sort(split(//,lc($_))));

    my @resultArray = ();

    if (exists $wordHash{$sorted_string}) {
	push(@resultArray, @{$wordHash{$sorted_string}});
    } else {
	return "No Anagrams Found.";
    }

    my $index = 0;

    $index++ until $resultArray[$index] eq $_;

    splice(@resultArray, $index, 1);

    my $result_string = join(",",@resultArray);

    return (($result_string eq "") ? "No Anagrams Found!" : $result_string);
};

1;