[PERL] exploitation de hash

[tuxiLAND]

Bonjour,

Après plusieurs essaies infructueux, je viens chercher un peu d'aide.
Je souhaite créer un script me permettant de faire de la gestion de dossier et droit en me basant sur une base de donnée oracle.

Les informations que j'extrais sont des dossiers et des fichiers (auquel j'affecterai par la suite des groupes et des utilisateurs).
Je contruis à partir de mes requetes un hash dynamique du style :

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
26
27
28
29
30
31
32
$VAR1 = 'dossier1';
$VAR2 = {
          's1dossier1' => [
                      'unfichier1.txt',
                      'unfichier2.txt'
                    ],
          's2dossier1' => [
                       'unfichier3.txt',
                       'unfichier1.txt'
                     ]
        };
$VAR3 = 'dossier2';
$VAR4 = {
          's1dossier2' => {
                             's1ss1dossier2' => [
                                         'unfichier1.txt',
                                         'unfichier5.txt',
                                         'unfichier40.txt'
                                       ],
                             's1ss2dossier2' => [
                                          'unfichier7.txt'
                                        ]
                           },
          's2dossier2' => [
                      'unfichier6.txt',
                      'unfichier7.txt'
                    ],
          's3dossier2' => [
                       'unfichier25.txt',
                       'unfichier65.txt'
                     ]
        };

Je n'ai pas de problème pour générer celui-ci mais pour l'exploiter.
En effet, je souhaite par la suite utiliser celui-ci pour créer une arborescance. A partir du hash dynamique (dont je ne connais pas la forme par avance)
je veux créer les dossiers et les fichiers.
Est-il possible d'exploiter un hash dynamique.
Je souhaite par exemple parcourir le hash et créer les dossiers puis les fichiers si besoins. Mais ne connaissant pas le nombre de hash de hash, je ne peux le parcourir normalement avec des foreach imbriqués.
Existe-t-il des fonctions spécifiques en perl (récursive ou autre ?)

[Lolo78]

Le plus simple est sans doute de construire une procédure récursive qui explore le hash en profondeur d'abord: je trouve un hash, je relance la même proc pour trouver un éventuel sous-hash, etc., de la même façon que l'on pourrait vouloir explorer une arborescence de répertories et fichiers (mais pour les répertories et les fichiers, il y a des modules tout faits).

[Philou67430]

Des modules existent pour traverser une structure de donnée perl (et utilisant souvent une callback à chaque "noeud"). J'ai trouvé celui-ci, mais je pense que d'autres existent aussi (il existe Data::Walk, mais je n'ai pas vu qu'il acceptait des hash).