Discussion :

[djibril]

Pourquoi pas, ça peut toujours servir .

[Philou67430]

Puisque je suis dans ma période "moins j'en écris mieux c'est" (et que je m'ennuie) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
my @t = qw(1 1 2 2 1 2 3 2 1 1 1 2 3 1);
my @s;
foreach ( @t ) {
  @s = ( @s[0..$_ - 2 ], ++$s[$_ - 1] );
  print join( '.', @s ), "\n";  
}

Une alternative

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my @level = qw(1 1 2 2 1 2 3 2 1 1 1 2 3 1);
my @stack = ();
foreach my $level ( @level ) {
  $stack[$#stack = $level - 1]++;
  print join( '.', @stack ), "\n";
}

en version "la plus courte" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my @l = qw(1 1 2 2 1 2 3 2 1 1 1 2 3 1);
my @s = ();
foreach ( @l ) {
  $s[$#s = $_ - 1]++;
  print join( '.', @s ), "\n";
}

[djibril]

Décidemment . Une explication pour les novices serait intéressante.

[mamax29]

Djidril

Moi y'en a rien comprendre....

[lilian_h]

Arrggg , moi non plus !

Petites explications ??

[Dimitry.e]

Si je peux me permettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
my @level = qw(1 1 2 2 1 2 3 2 1 1 1 2 3 1);
my @stack = ();
foreach my $level ( @level ) {
  $stack[$#stack = $level - 1]++;
  print join( '.', @stack ), "\n";
}

$#stack est la variable qui contient la valeur du dernier élément de la liste @stack. Donc, en la modifiant on modifie cet indice et donc la taille de @stack.
Maintenant, l'instruction $stack[$#stack = $level - 1]++; :
Grâce à la priorité des opérateurs, Philou67430 a réussi à concaténer deux opérations : la modification de la taille de @stack (en modifiant $#stack) et l'incrémentation de la dernière valeur.

En fait, Perl va commencer par évaluer l'intérieur des crochets pour calculer l'indice de la liste auquel on veut accéder. Ce qui a pour effet de modifier $#stack.
la post-incrémentation (le ++) sera effectuée après.
C'est comme si vous faisiez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
$#stack = $level - 1;
$stack[$#stack] = $stack[$#stack] + 1;

[Philou67430]

Tout à fait dimitry.

Au début, je voulais écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

scalar(@stack) = $level;

et incrémenter $stack[-1] séparément... croyant que scalar acceptait d'être un "left-value", comme keys peut l'être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

keys(%hash) = 1000;

par exemple défini un hash de 1000 clés (au minimum).

Au final, jouer sur la taille du tableau en modifiant l'indice de son dernier élément est bien pratique puisque cela permet de réaliser dans la même expression, l'incrémentation de ce dernier élément.

[lilian_h]

Piouf .... bien pensé !

[Philou67430]

Je vous souhaite de bonnes vacances

[lilian_h]

Merci ! A toi aussi.
Pour moi c'est ce soir !