Discussion :

[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 :

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

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

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

Code :

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

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 :

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

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 :

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
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