NAME
Text::Thesaurus::Aiksaurus - The great new Text::Thesaurus::Aiksaurus!
VERSION
Version 0.0.0
SYNOPSIS
use Text::Thesaurus::Aiksaurus;
use Data::Dumper;
my $ata=Text::Thesaurus::Aiksaurus->new;
my %h=$ata->search('test');
print join("\n", keys(%h));
METHODS
new
search
This searches the aiksaurus for the specified word.
%returnedH=$ata->search($word);
if($ata->{error}){
#handles it if it errored
print "It errored... ".$ata->{error};
}else{
my $int=0;
if(defined($returnedH{'%misspelled'})){
#handles it if it misspelled
while(defined($returnedH{'%misspelled'}[$int])){
print $returnedH{'%misspelled'}[$int]."\n";
$int++;
}
}else{
#handles it if it was not misspelled
my @returnedHkeys=keys(%returnedH);
while(defined($returnedHkeys[$int])){
print $returnedHkeys[$int].":\n";
my $int2==0;
while(){
print ' '.$returnedH{$returnedHkeys[$int]}[$int2];
$int2++;
}
$int++;
};
}
}
errorblank
This is a internal function.
ERROR CODES
1
Failed to execute aiksaurus.
2
It exited with a non-zero status.
RETURNED HASH
If the only key in the returned has is '%misspelled', it aiksaurus regards it as being mis-spelled. The key is a array of possible matches.
Each key in the returned hash is a main word containing various other ones with similar meanings. Each key is a array containing the other words.
AUTHOR
Zane C. Bowers, <vvelox at vvelox.net>
BUGS
Please report any bugs or feature requests to bug-text-thesaurus-aiksaurus at rt.cpan.org
, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Text-Thesaurus-Aiksaurus. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Text::Thesaurus::Aiksaurus
You can also look for information at:
RT: CPAN's request tracker
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Text-Thesaurus-Aiksaurus
AnnoCPAN: Annotated CPAN documentation
CPAN Ratings
Search CPAN
ACKNOWLEDGEMENTS
COPYRIGHT & LICENSE
Copyright 2009 Zane C. Bowers, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.