Discussion :

[Whaouu]

Bonjour, à tous,

Je récupère le contenu d'un fichier INI dans un Hash via Config::IniFiles et j'aurai besoin de trier ce Hash sur le paramètre "Source" et dans ce tri sur les clés en ordre décroisant.

Fichier INI :

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
[Backup_1]
Source = *
Destination = /usr/local/HyperFile/backup/Sauvegardes/2008/09/19/10-25/1/
Date = 20080919102541397
Description = Sauvegarde lancée par le CCHF le 19/09/2008.
State = 1
[Backup_2]
Source = toto
Destination = /usr/local/HyperFile/backup/Sauvegardes/2008/09/19/12-12/2/
Date = 20080919121203251
Description = Sauvegarde lancée par le CCHF le 19/09/2008.
State = 1
[Backup_3]
Source = *
Destination = /usr/local/HyperFile/backup/Sauvegardes/2008/09/19/12-13/3/
Date = 20080919121340342
Description = Sauvegarde lancée automatiquement par une tâche planifiée
State = 1

Ce qui devrait donner :

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
[Backup_3]
Source = *
Destination = /usr/local/HyperFile/backup/Sauvegardes/2008/09/19/12-13/3/
Date = 20080919121340342
Description = Sauvegarde lancée automatiquement par une tâche planifiée
State = 1
[Backup_1]
Source = *
Destination = /usr/local/HyperFile/backup/Sauvegardes/2008/09/19/10-25/1/
Date = 20080919102541397
Description = Sauvegarde lancée par le CCHF le 19/09/2008.
State = 1
[Backup_2]
Source = toto
Destination = /usr/local/HyperFile/backup/Sauvegardes/2008/09/19/12-12/2/
Date = 20080919121203251
Description = Sauvegarde lancée par le CCHF le 19/09/2008.
State = 1

Je ne sais pas comment faire cela.

Code :

Code :

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

1
2
3
4
5
6
7
8
9
tie my %cfg, 'Config::IniFiles', (-file => "History.dat");
 
foreach my $section (keys %cfg) {
        print "[$section]\n";
        foreach my $param (keys %{$cfg{$section}})
        {
                print "$param = $cfg{$section}{$param}\n";
        }
}

Merci d'avance pour vos conseils.

[Jasmine80]

Je ne connais pas le module Config::IniFiles

Mais de façon générale pour un hash (ou un array). Il existe la fonction sort.

Code :

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

foreach my $section (sort keys %cfg)

sort keys %cfg => tri alphabétique
sort {$a<=>$b} keys %cfg => tri numérique croissant
sort {$b<=>$a} keys %cfg => tri numérique décroissant
http://perl.developpez.com/faq/?page...nD4#sectionD4b
http://perldoc.perl.org/functions/sort.html

Sinon, si tu as besoin de tris plus complexes
http://articles.mongueurs.net/magazines/linuxmag48.html

[Whaouu]

Bonjour, Jasmine,

Merci pour ta réponse.

Cela fonctionne comme je voulais. Finalement je fais les tris directement sur les paramètres "Source" et "Date" et non sur la clé.

Code :

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

foreach my $section (sort {$cfg{$a}{'Source'} cmp $cfg{$b}{'Source'} || $cfg{$b}{'Date'} <=> $cfg{$a}{'Date'}} keys %cfg)

Concernant Config::IniFiles, il permet de lire et de modifier les fichiers à la structure INI.

http://search.cpan.org/~wadg/Config-...38/IniFiles.pm