blob: f28c8e8c12f3eec6e4f9cfb3145d90e455d0441b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/env 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;
});
|
