Well, I'd like to solve a game like a MasterMind, or a Trivia game, or find a sort of password, looping every possible key word (not only the dictionnary words, a random one for ex.)


UPDATED:
After some brainstorming I got my solution.
Here's my script if anyone is interested:

#!/usr/bin/perl -w

use strict;

my $length = 4;  # max length of the word to find
my $find = "test"; # the word to find

sub gen_word {
  my $prev = shift;
  my $len = shift;

  if ($len == 1) {
    for (my $idx = 65; $idx <= 122; $idx++) {
      my $word = $prev . chr($idx);
      print "word: $word\n";
      if ($find eq $word) {
        print "found: " . $word . "\n";
        exit();
      }
    }
  } else {
    for (my $idx = 65; $idx <= 122; $idx++) { &gen_word($prev . chr($i
+dx), $len - 1); }
  }
}

&gen_word("", $length);

1;
[download]