Alternative.pm - alternative spelling of a given word in a given language
use Lingua::Spelling::Alternative; my $en = new Lingua::Spelling::Alternative; $en->load_affix('/usr/lib/ispell/default.aff') or die $!; print join(" ",$en->alternatives("cars")),"\n";
This module is designed to return all forms of a given word (for example when you want to see all possible forms of some word entered in search engine) which can be generated using affix file (from ispell) or using findaffix output file (also part of ispell package)
The new() constructor (without parameters) create container for new language. Only parameter it supports is DEBUG which turns on (some) debugging output.
Function load_affix() loads ispell's affix file for later usage.
This function loads output of findaffix program from ispell package. This is better idea (if you are creating affix file for particular language yourself or you can get your hands on one) because affix file from ispell is limited to 26 entries (because each entry is denoted by single character).
Function alternatives return array of all alternative spellings of particular word(s). It will also return spelling which are not correct if there is rule like that in affix file.
This function returns minimal of all alternatives of a given word(s). It's a poor man's version of normalize (because we don't know grammatic of particular language, just some spelling rules).
Documented as being not documented.
Please see the test.pl program in distribution which exercises some aspects of Alternative.pm.
There are no known bugs. If you find any, please report it in CPAN's request tracker at: http://rt.cpan.org/
Copyright 2002-2003 Dobrica Pavlinusic (firstname.lastname@example.org). All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.