Recherche:

J'ai fini mon post précédent précipitamment et ai oublié de dire que je serais naturellement intéressé par ton avis et tes éventuelles suggestions d'améliorations.

:D

Edit: je viens d'ouvrir...

Je n'ai pas dit que ça ne marcherait pas quand même, j'ai dit que ça ne fait pas la même chose, et c'est une affirmation correcte. Sur le premier point, j'avais codé en dur la profondeur de 3 pour...

Oui, tu sembles penser que la clarté ne sert à rien. Pourtant, un peu plus de clarté dans le code que tu as proposé dans un autre post t'aurait permis de ne pas avoir à l'expliquer en trois pages. Tu...

Oui, je peux le faire, mais c'est bien moins clair et, surtout, ça ne fait pas la même chose.

De même, ma variable $level est inutile, mais utiliser des variables intermédiaires avec un nom...

Voici une version de mon programme donnant les numérotations sous une forme 1.a.A et non plus 1.1.1:


my @master_list = qw / 1 a A/;
my @level_list = qw /0 0 0/;
my @sommaire = qw/ x x-x x x-x...

Bonsoir,

le trafic est bien trop élevé sur ce post pour que je puisse suivre (il est rare que je puisse me connecter dans la journée, et plus rare encore que j'ai le temps de coder un truc digne...

Par un bienheureux hasard (parce que I < V, ou plutôt I lt V), un simple sort marche bien sur les premiers chiffres romains, mais ça ne marche plus du tout à partir de 9 (IX) qui se retrouve avant 5...

Hum, j'ai peut-être une petite idée, mais je ne suis pas sûr de bien comprendre.

Ton sommaire de base:


my %sommaire = (
'1*' => { '1-a', '1-b', },
'2' => { '2-a*', '2-b' => { '2-b-A',...