[Config::Std] Tri du fichier config
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:
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; |
Citation:
[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.
