blob: f969a39619ed6e5b7f44ee100c703e880d4333e2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
#!/usr/bin/env perl
use strict;
use warnings;
use Games::Word::Wordlist;
# PODNAME: solve-ghost.pl
die "Usage: $0 <word_prefix>\n" unless @ARGV;
my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
print "$_\n" for $wl->words_like(qr/^\Q$ARGV[0]/i);
|