#!/usr/bin/env perl # # Basic tests of Text::Hunspell # Taken from the main POD documentation. # # For this example to work, you have to have # the US english dictionary installed! # # On Debian/Ubuntu systems, it should be # enough to type: # # sudo apt-get install hunspell libhunspell-dev # # Have fun! # # Cosimo, 06/Sep/2010 # use strict; use warnings; use Text::Hunspell; # You can use relative or absolute paths. my $speller = Text::Hunspell->new( "/usr/share/hunspell/en_US.aff", # Hunspell affix file "/usr/share/hunspell/en_US.dic" # Hunspell dictionary file ); die unless $speller; # Check a word against the dictionary my $word = 'opera'; print $speller->check($word) ? "'$word' found in the dictionary\n" : "'$word' not found in the dictionary!\n"; # Spell check suggestions my $misspelled = 'programmng'; my @suggestions = $speller->suggest($misspelled); print "\n", "You typed '$misspelled'. Did you mean?\n"; for (@suggestions) { print " - $_\n"; } # Analysis of a word $word = 'automatic'; my $analysis = $speller->analyze($word); print "\n", "Analysis of '$word' returns '$analysis'\n"; # Word stemming $word = 'development'; my @stemming = $speller->stem($word); print "\n", "Stemming of '$word' returns:\n"; for (@stemming) { print " - $_\n"; }