The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Alternative.pm - alternative spelling of a given word in a given language

SYNOPSIS

  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";

DESCRIPTION

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)

PUBLIC METHODS

new

The new() constructor (without parameters) create container for new language. Only parameter it supports is DEBUG which turns on (some) debugging output.

load_affix

Function load_affix() loads ispell's affix file for later usage.

load_findaffix

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).

alternatives

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.

minimal

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).

PRIVATE METHODS

Documented as being not documented.

EXAMPLES

Please see the test.pl program in distribution which exercises some aspects of Alternative.pm.

BUGS

There are no known bugs. If you find any, please report it in CPAN's request tracker at: http://rt.cpan.org/

CONTACT AND COPYRIGHT

Copyright 2002-2003 Dobrica Pavlinusic (dpavlin@rot13.org). All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.