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;