Code:
#!E:\Perl\bin\perl -w
open(FILE,">comb.txt");
$num_chars = 10;
@chars=("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "-", "_", "");
for $i (@chars){
for $ii (@chars){
for $iii (@chars){
for $iiii (@chars){
for $iiiii (@chars){
for $iiiiii (@chars){
for $iiiiiii (@chars){
for $iiiiiiii (@chars){
for $iiiiiiiii (@chars){
for $iiiiiiiiii (@chars){
for $iiiiiiiiiii (@chars){
for $iiiiiiiiiiii (@chars){
for $iiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
for $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (@chars){
$line = $i . $ii . $iii . $iiii . $iiiii . $iiiiii . $iiiiiii . $iiiiiiii . $iiiiiiiii . $iiiiiiiiii . $iiiiiiiiiii . $iiiiiiiiiiii . $iiiiiiiiiiiii . $iiiiiiiiiiiiii . $iiiiiiiiiiiiiii . $iiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii . $iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii;
unless($line =~ m# [^ ]#){
print FILE "$line\n";
}
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
close(FILE);
and it works well of not being because they repeat some combinations. For that adds "" I believe that a subroutine could be added so that opens the file and eliminate the repeated combinations and leaves them orderly.
A thing that can observe when adding the whole alphabet in uppercase and minuscule with the numbers and some signs that a file is believed of but of 100MB. For what I believe that serious good to add a variable $charsl=8 so that the combinations are maximum of 8 characters.
etc.