blob: a330c4597ac543e63a5a7cff2071cbe3bcb2a4a0 (
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 <subword>\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;
});
|
