blob: 75672bccafe303a5d0051b7b223e9bfee0d6fd6f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/perl
use strict;
use warnings;
use Games::Word::Wordlist;
die "Usage: $0 <letter_pool>\n" unless @ARGV;
my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
my $re = join '.*', sort split(//, $ARGV[0]);
$wl->each_word(sub {
my $word = shift;
print "$word\n" if join('', sort split(//, $word)) =~ /$re/i;
});
|
