Recherche:

J'ai modifié le script de test pour qu'il prenne en paramètre le nom du module à tester (obligatoire en premier paramètre):

# test2.pl
use strict;
use warnings;
use feature qw(:5.10);
use...

@cmcmc : je n'ai pas encore compris (mais j'ai lu tes longs posts en diagonale, ce qui peut expliqué mon incompréhension) l'intérêt de la forme "alambiquée" pour appeler la fonction de transformation...

J'ai donc modifié toute l'algorithmique, et j'ai normalement limité au maximum le nombre de calcul de regexp (par ailleurs, l'algorithme ne fonctionne plus pas substitutions de valeurs, mais pas...

C'est exactement ce que j'ai fait chez moi, le fichier s'appelant test.pl. J'ai juste oublié de modifié l'information dans le commentaire d'entête :)
Ne peut-on pas définir un test comme "optionnel"...

@cmcmc: j'ai modifié ton fichier de test pour qu'il ne dépende plus du nom du module à tester (au prix d'une de-strictification des références, appliquée localement) :


# test.pl
use strict;...

C'est discutable, dans le sens où aucun des numéros suivant un numéro marqué * ne sera identique à sa valeur initiale (dans ce cas, pourquoi les numéros marqués 0- le devraient ? seul Djibril peut...

Salut cmcmc, on dirait que tu n'as pas lu mon message précédent :)

L'idée que l'application "old num" => "new num" soit bijective est une contrainte que tu imposes, mais dont djibril n'a peut-être...

Je vais répondre aux deux points importants soulevés par cmcmc (sans reprendre le message en entier :) ):
- concernant le "bug" constaté par Djibril et toi, je l'ai signalé ici comme étant une...

Code directement intégrable dans la boucle principale, comme ici :

#!/usr/bin/perl

use strict;
use warnings;
use feature qw(:5.14);

use Data::Dumper;
my @sections = qw(i* i-a* i-b ii...

La version qui fournit le résultat sous forme de simple hash :

#!/usr/bin/perl

use strict;
use warnings;
use feature qw(:5.14);

use Data::Dumper;
my @sections = qw(i* i-a i-b ii ii-a*...

@cmcmc : il est bizarre ton résultat, rien que la première ligne
'I' => 'VI'
(I* à l'origine, qui aurait donc dû devenir 0-I, non ?).

@djibril : pour mon résultat sous forme de tableau de hash,...

Ca devrait être mieux ainsi :

#!/usr/bin/perl

use strict;
use warnings;
use feature qw(:5.14);

use Data::Dumper;
my @sections = qw(i* i-a i-b ii ii-a* ii-b ii-b-A ii-b-B ii-b-C iii* iii-a...

Exact, je vais corriger...

Je n'ai pas utilisé directement un hash en sortie, mais un tableau de hash, pour garder l'ordre original du tableau d'entrée plus facilement.
C'est cela qui est étrange ?

Sinon, pour ma question,...

Dans l'exemple que tu as donné, et avec l'algo que j'ai écris, le renumérotation (du au décalage suite à la suppression d'une section *) s'opère sur toutes les sections qui suivent, y compris celles...

Je suis en train de tester un nouvel algo non récursif qui utilise directement la liste à plat.

Ah ouais... carrément le sommaire "à plat" ?!

Bon... au boulot ! :)

J'ai une version avec tableau, mais il faudrait que tu donnes le format de tableau que tu voudrais en entrée, et surtout, celui du tableau de sortie (avec les correspondances si j'ai bien compris ton...

Ma version ne suppose pas de connaitre la méthode de numérotation ;)

Djibril, si tu souhaites partir d'un tableau plutôt que d'un hash, pas de soucis pour modifier mon script : au début, c'est...

Sous quelle forme souhaites-tu que la correspondance soit faite ???
Une solution pourrait être de mettre l'ancienne numérotation entre paranthèse :

#!/usr/bin/perl

use strict;
use warnings;...

J'adore ce genre de petit défit :)

Je suis parti sur un algorithme qui ne suppose rien sur la manière dont la numérotation à chaque niveau s'incrémente, dès lors que l'on peut considérer que dans...