loaddictionary.pl

loaddictionary.pl

#!/usr/bin/env perl
use v5.12;
use warnings;
use strict;
use Cache::Memcached;

my $memd = Cache::Memcached->new();
$memd->set_servers(["localhost:11212"]);
open(my $fh,"<","/usr/share/dict/words") || die "open $!";
my $line = <$fh>; # get rid of first empty line
while ($line = <$fh>) {
    chomp $line;
    $memd->set($line,"1");
}
close($fh);
1;