Perl Modules


NAME

Text::SpellCheck - Uses the aspell binary to generate spellcheck info


SYNOPSIS

  use strict;
  use Text::SpellCheck;
  # I needed something that worked, that helped me implement the spellchecker for one of my websites, 
  # and that didn't need a C compiler.  This is it.  In general, I'd say it's crap.  It does work,
  # but the open2() -- aka open(FILE, "| aspell -a |") call is untested and probably fragile.
  # Nevertheless, to use it:
  my $sc = new Text::SpellCheck("/usr/bin/aspell");
  my $result_hash = $sc->check_text(qq(
      I have mispeled some of thesee words for you.
      Can you guess wich ones?
      There are some <html_protections trvial=1> little regexps for
      html</html_protections> but I wouldn't depend on them too much.
  ));
  foreach my $word (keys %$result_hash) {
      print "$word was dumb: @{ $result_hash->{$word} }\n";
  }
  This is handy:
  my $my_hightlit_text = $sc->html_highlight(
      q(<span style="background-color: yellow; color: red">),
      q(</span>),
      $some_curiously_spelled_text
  );
  And so is this:
  use CGI; my $cgi = new CGI;
  my $my_hi = $sc->html_highlight( \&my_lighter, $text );
  sub my_lighter {
      my $word  = shift; # the word as it was written
      my $words = shift; # alternatives (arrayref)
      return $cgi->popup_menu({default=>"*$word*", values=>["*$word*", @$words]});
  }


AUTHOR

Jettero Heller jettero@cpan.org

http://www.voltar.org


SEE ALSO

perl(1)