Discussion :

[yjuliet]

BOnjour...

J'ai besoin de regrouper plusieurs entrées d'un annuaire (l'équivalent d'une association SQL qui servirait à affecter des groupes à des utilisateurs) pour les mettre ensuite dans une seule entrée. Pour ce faire, je voulais utiliser des tables de hashage (pour référencer les affectactions par utilisateur) qui contiendrait des références vers les tableaux (ou éventuellement des tables de hashage aussi) qui contiendraient les identifiants de groupes.

Voici donc ce que j'ai pondu (j'ai pas fait bcp de PERL dans ma vie)...

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
26
27
28
29
30
31
32
 $result = $ldap->search( base=>$ATRIB_ROOT, scope=>$SCOPE, filter=>"(cn=*)", attrs=>['*']);
  $nbAffectations = $result->count;
  print "Entrées : " . $nbAffectations . "\n";
 
  @affectations = $result->entries;
  @ref = ();
  $i = 0;
  foreach $affectation (@affectations)
  {
  	$dnUser = $affectation->get_value("dnUser");
 
  	$dnGroupe = $affectation->get_value("dnGroupe");
 
	if (exists $attribsHash{$dnUser}) {
		print "Le user est déjà connu  : $dnUser\n";
	    $ref[$i] = $attribsHash{ $dnUser };	    
  		@userGroupes = @{$ref};
  		$counter = @userGroupes;
  		print "Le user a déjà $counter groupes attribués\n";
	} else {
		@userGroupes = ();
		print "Le user n'est pas encore connu : $dnUser\n";
		$counter = 0;
	}
  	push( @userGroupes, $dnGroupe );
  	$ref[$i] = \@userGroupes;
 
  	print "@userGroupes\n";
 
  	$attribsHash{$dnUser} = $ref[$i];
  	$i++;    
  }

j'obtiens des résultats incorrects car je n'arrive pas à obtenir la bonne valeur dans counter ... et je n'arrive pas à comprendre pourquoi ...

Merci d'avance pour vos idées, liens, conseils, ...

[rcageot]

j'ai pas bien compris ce que tu voulais faire en fait et ton code sans commentaires n'est pas clair non plus !

[yjuliet]

en fait, ce que je veux, c'est pour chaque User avoir une correspondance avec une liste de groupes, ce qu'en PHP je pourrais faire de la sorte :

Code :

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

1
2
3
4
5
6
7
8
9
 
$userGroupes = Array(
    "toto"=>Array(
        "groupe base",
        "groupe lambda"),
    "titi"=>Array(
        "groupe alpha"
        "groupe lambda")
);

en remplissant les différentes valeurs de mes "sous-tableaux" au fur et à mesure du parcours d'un tableau contenant les résultats de ma requete dans mon annuaire. (en SQL, j'aurais fait en gros un "SELECT user, groupe FROM association" pour obtenir cette liste).

Pour ta solution du $#refTable, c'est pas mieux qu'avant, voire pire... il me retourne systématiquement 0...

[yjuliet]

pour ceux qui auraient du mal à comprendre le début du code, voici l'entête du fichier pour voir les libs...

Code :

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

1
2
3
use Net::LDAP;
use Net::LDAP::Util qw(ldap_error_name);
use Net::LDAP::Constant qw(LDAP_COMPARE_TRUE LDAP_COMPARE_FALSE);

[Woufeil]

Bonjour.

Tout d'abord, un conseil : évite de faire du PHP en Perl
C'est à dire que je te conseille vivement d'utiliser le pragma strict qui t'oblige à déclarer tes variables à l'avance, je trouve que c'est quand même beaucoup plus clair. Ensuite, je sais que les concaténations avec echo sont conseillées avec PHP, mais ce n'est pas le cas du print de Perl.

Maintenant, passons à ton problème : que veux tu obtenir dans ta variable $counter ? Dans le cas présent, si le if est vrai $counter contient le nombre d'élement de @usergroups, et sinon il contient 0, jusque là pas de problèmes. Mais là où j'ai du mal, c'est avec la ligne @userGroupes = @{$ref};, en effet c'est quoi $ref ? C'est la première appariton de cete variable dans le listing. Si l'erreur est là, un use strict t'aurait indiqué te l'aurait indiqué...

Sinon, détaille plus ton problème.

[yjuliet]

Merci, je vais voir en mode strict ...

Pour ce qui est de l'utilisation de PHP, promis, j'en mettrai plus (ou du moins j'essaierai d'éviter) dans la rubrique PERL ... c'était juste parce que je savais ce que je voulais "modéliser" mais que je ne savais pas comment le réaliser en PERL...
Pour l'utilisation du @{$ref}, c'est une erreur ... éventuellement, @{$ref[$i]} aurait été moins faux dans le contexte du code ..

J'essaye et je vous tiens au courant ...

[yjuliet]

Merci, cette solution fonctionne "à merveille".