On 9/10/07, Beginner <[EMAIL PROTECTED]> wrote:
snip
> Does anyone have any ideas why this isn't working? Could this be due
> to an environment variable?
snip
Are you sure you create (or updated) your dictionary correctly? The
following works for me. If it doesn't work for you then there is
something wrong and we will try to find out what.
[EMAIL PROTECTED]:~$ cat words
Aberystwyth
Perl
foo
abcdfooblahsmack
[EMAIL PROTECTED]:~$ aspell --lang=en create master ./dict.local < words
[EMAIL PROTECTED]:~$ cat t.pl
#!/usr/bin/perl
use strict;
use warnings;
use strict;
use warnings;
use Text::Aspell;
my $speller = Text::Aspell->new;
die unless $speller;
$speller->set_option('master' , './dict.local');
my @not = ('not ', '');
for my $word (qw<Aberystwyth Perl FOO bar abcdfooblahsmack>) {
print "$word $not[$speller->check($word)]found\n";
}
[EMAIL PROTECTED]:~$ perl t.pl
Aberystwyth found
Perl found
FOO found
bar not found
abcdfooblahsmack found
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
