Aide pour un petit script

Version imprimable

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:

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:

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

Bon j'ai trouve par moi même .. mais j'ai du changer de language : tcl

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/tclsh
 
set liste {0 1 2 3 4 5 6 7 8 9 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}
 
 
for {set i 0} {$i<36} {incr i} {
	for {set j 0} {$j<36} {incr j} {
		for {set k 0} {$k<36} {incr k} {
			for {set l 0} {$l<36} {incr l} {
				puts -nonewline "[lindex $liste $i][lindex $liste $j][lindex $liste $k][lindex $liste $l]"
				puts " "
			}
		}
	}
}

==> ca donne bien

0000
......
zzzz

Euh... Tu trouves ça joli et lisible ?

Une version en Perl :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl
use strict; use warnings;
 
my @liste = ( '0'..'9','a'..'z' );
 
sub gen_comb {
  my $depth = shift;
  my $begin = shift;
  my @chars = @_;
 
  if( $depth > 0 ){
    foreach my $char (@chars){
      gen_comb( $depth - 1, $begin . $char, @chars );
    }
  } else {
    print $begin, "\n";
  }
}
 
gen_comb 4, '', @liste;

gen_comb() est une fonction généraliste, qui peut faire ce que tu demandes mais pour une profondeur quelconque et une liste de caractères arbitraires.

(à noter que je ne vois pas pourquoi tu as dû 'changer de langage', vu que ta version en tcl peut-être réécrite à l'identique en Perl...en plus lisible)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my @liste = ( '0'..'9','a'..'z' );
 
my ($c1, $c2, $c3, $c4);
for $c1 (@liste){
  for $c2 (@liste){
    for $c3 (@liste){
      for $c4 (@liste){
        print $c1,$c2,$c3,$c4,"\n";
      }
    }
  }
}

A noter que cette version est nettement plus rapide que la mienne, car il n'y a pas d'appel récursif. Mais on y perd énormément en réutilisabilité.

Pour conjuguer les avantages des deux solutions, on peut profiter de la nature dynamique de Perl :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
## Troisième version
# Evaluation de boucles générées par appels récursifs (rapide et généraliste)
sub gen_loops {
  my $ini_depth = shift;
  my @chars = @_;
 
  sub aux_loops {
    my $depth = shift;
    my $ini = shift;
    if ($depth > 0){
      return 
      ' ' x (($ini - $depth) * 2).
      "for \$c$depth (\@chars) {\n".
        &aux_loops( $depth - 1, $ini ).
      ' ' x (($ini - $depth) * 2).
      "}\n";
    } else {
      return ' ' x (($ini + 1) * 2).
      "print ".
        join(',',(map {'$c'.$_} reverse (1..$ini))).
        ",\"\\n\";\n";
    }
  } 
 
  my $eval_loops = "my (".
    join(',',(map {'$c'.$_} reverse (1..$ini_depth))).
    ");\n".
    aux_loops( $ini_depth, $ini_depth );
 
  print $eval_loops;
  eval $eval_loops;  
}
 
gen_loops 4, @liste;

--
Jedaï

28/03/2006, 20h32
perldebutant

Citation:

Envoyé par Jedai

Euh... Tu trouves ça joli et lisible ?

Jedaï

Je le trouve tres lisible .. evidemment le saut de ligne n'est pas present en plien milieu .. c'est le forum qui l'a rajoute 8O

Sinon merci pour le script en perl :wink:

Citation:

Envoyé par Jedai

(à noter que je ne vois pas pourquoi tu as dû 'changer de langage', vu que ta version en tcl peut-être réécrite à l'identique en Perl...en plus lisible)

Je ne connaissais pas les listes en perl .. juste en tcl alors j'ai fait avec mes connaissances lol
28/03/2006, 21h27
Jedai
Citation:

Envoyé par perldebutant

Citation:

Envoyé par Jedai

Euh... Tu trouves ça joli et lisible ?

Jedaï

Je le trouve tres lisible .. evidemment le saut de ligne n'est pas present en plien milieu .. c'est le forum qui l'a rajoute 8O

Ce que je trouve vraiment pas lisible c'est ça :
Code:

1 2 "[lindex $liste $i][lindex $liste $j][lindex $liste $k][lindex $liste $l]"
Mais bien sûr, c'est une question d'habitude. :wink:
(NB : Dans ma résolution d'écran, il n'y a pas eu rajout de saut de ligne, je n'ai donc pas été influencé par cela)

Bien sûr ma troisième version est purement illisible... Mais c'est la plus puissante du lot. :)

--
Jedaï