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;Dans le cas d'un fichier contenant une centaine de clés, une consultation visuelle n'est pas aisée.[DEFAUT]
002: OUI
010: OUI
004: OUI
005: OUI
008: OUI
009: OUI
003: OUI
006: OUI
007: OUI
001: OUI
020: NON
Y a t-il un moyen d'avoir les clés triées sans bouger [DEFAUT] ?
MERCI d'avance pour vos suggestions.
Partager