chbs

gistfile1.txt

#!/usr/bin/perl -w

my $dict = "/usr/share/dict/words";

my $maxlen = shift @ARGV;
my $wordmin = 3;
my $wordmax = 12;
my $num_words = 4;
my $skip_possessives = 1; # db contains 's forms for every noun

use List::Util qw(shuffle);

srand;

open(WORDS, $dict) or die($!);

# two random words from dict
my $shorts = 0;
my @parts;
while (<WORDS>) {
    chop;
    next if (/'s$/ && $skip_possessives);
    if (length() >= $wordmin and length() <= $wordmax) {
        $shorts++;
        for ($i=0; $i<$num_words; $i++) {
            (rand($shorts) < 1) && ($parts[$i] = ((rand(2)<1)? ucfirst($_) : $_) );
        }
    }
}
print join(' + ', @parts) . "\n";


# stir and serve chilled.
my $whole = join(' ', shuffle @parts);
print "$whole\n";

if ($maxlen && $maxlen < length($whole)) {
    $whole = substr($whole, rand(length($whole)-$maxlen), $maxlen);
    print "$whole\n";
}