creation récursive d'un hash [Résolu]

[Peps16]

Bonjour je travail actuellement sur un outil dont j'ai besoin pour configurer des vues sous Clearcase et pour cela j'ai besoin de générer un hash contenant l'arborescence de mes modules et sous modules.

En gros pour faire simple, j'aurais besoin de passer une liste à ma fonction:

Code :

my @list = ("a/b/c","a/b/d")

et de récupérer en résultat un hash de la forme:

Code :

1
2
3
4
5
6
7
8
9
 
$hash = {
                 a => {
                              b => {
                                           c => {},
                                           d => {}
                              }
                 }
}

J'ai essayé de faire une telle fonction mais mon hash ne contient seulement la structure du dernier élément de la liste.

Voici ma fonction :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
sub setHash{
	my $listModule = shift;
	my $tree = {};
 
	my @listArr = split("/",$listModule);
	while(scalar(@listArr)>0){
		my $elem = shift(@listArr);
		$tree->{$elem} = setHash(join('/',@listArr));
		return $tree;
	}
	return $tree;
}

Si par hasard quelqu'un aurait une idée ça serait super.

[Gardyen]

miam du récursif

Voilà une solution possible.

Différence avec ton script:
- passage de l'arbre 'parent' où doit s'enregistrer le module, ce qui permet la récursion
- le parcours de la liste est en dehors de la boucle de récursion, vu que le même traitement est effectué sur chaque élément de cette liste

si tu as des questions...

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
sub setHash{
	my $listModule = shift;
	my $tree = shift;
 
	# get the module
	my @listArr = split("/",$listModule);
	my $elem = shift(@listArr);
 
	# initialize the tree if not created
	if (!defined $tree->{$elem}){
		$tree->{$elem} = {};
	}
	if (scalar @listArr){
		setHash(join('/',@listArr), $tree->{$elem});
	}
	return $tree;
}
 
 
my @list = ("a/b/c","a/b/d");
my %all_trees;
foreach my $module (@list){
	setHash($module, \%all_trees);
}
print Dumper %all_trees;

[Peps16]

Je te remercie, c'est exactement ce que je recherchais.

J'ai trouvé une solution mais elle est plus complexe. La tienne me semble plus simple à comprendre et elle est certainement plus rapide à exécuter.

Merci beaucoup