Salut

Je debute en perl et en prog de maniere generale

J'essaye de faire des petites choses mais aps forcement tres utiles lol

Genere une liste des combinaisons de caracteres de '!' à 'z'
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
 
for ($c1=33; $c1<123; $c1++) {
for ($c2=33; $c2<123; $c2++) {
 for ($c3=33; $c3<123; $c3++) {
  for ($c4=33; $c4<123; $c4++) {  
      $mot=chr($c1).chr($c2).chr($c3).chr($c4);
      print $mot. "\n";
     } 
    }
   }
  }

Mon probleme : Comment generer une liste comportant uniquement des chiffres et des minuscule ??? car les codes ascii ne sont pas contigus ....

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
 
for ($n1=0; $n1<10; $n1++) {  
      print $n1. "\n";
}
for ($c1=97; $c1<123; $c1++) {
      $mot=chr($c1);
      print $mot. "\n";
} 
 
}
}
==> 0 1 2 3 4 5 6 7 8 9 a b c d e f ..... z

J'arrive a generer la liste de 0 à z mais je en vois pas comment afficher

0000
.....
.....
zzzz

Merci pour votre aide