Discussion :

[dmganges]

Bonjour,
J'utilise Config::Std pour gérer un fichier de config.
Pour initialiser ce fichier je fais une boucle simple, mais dans le fichier j'obtiens les clés sous la forme d'un arbre.
Je souhaiterai trier mon fichier de config tout en conservant la clé [DEFAUT] en début.
Exemple :

Code :

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

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
#!/usr/bin/perl
use strict;
use warnings;
use encoding 'utf8';
use utf8;
use File::Spec;
use Config::Std;
 
my ($Count, $Num3, %Selection,) = () ;
my $FicSelect    = File::Spec->catfile( "./", "config.ini" );
 
if ( -e $FicSelect ) {
 	read_config $FicSelect => %Selection;
} else {
	for $Count ( 1 .. 10 ) {
		$Num3 = sprintf '%03d', $Count;
		$Selection{DEFAUT}{$Num3} = "OUI";
	}
}
 
$Count = 20;
$Num3 = sprintf '%03d', $Count;
$Selection{DEFAUT}{$Num3} = "NON";
 
write_config %{Selection}, $FicSelect;

[DEFAUT]

002: OUI
010: OUI
004: OUI
005: OUI
008: OUI
009: OUI
003: OUI
006: OUI
007: OUI
001: OUI
020: NON

Dans le cas d'un fichier contenant une centaine de clés, une consultation visuelle n'est pas aisée.
Y a t-il un moyen d'avoir les clés triées sans bouger [DEFAUT] ?

MERCI d'avance pour vos suggestions.

[Lolo78]

Peut-être faire un sort sur les clefs du hash en écrivant une routine de tri spécifique qui mette [DEFAULT] en tête.

[dmganges]

Merci pour ta réponse Lolo78,
Dans mon cas, je vais opter pour l'écriture d'un simple fichier au moment de l'initialisation, sans passer par Config::Std
J'ai posté au cas où il y aurait une astuce de derrière les fagots... pour des cas plus complexes.
MERCI !