Discussion :

[KuK]

Bonjour à tous,

Je viens ici vous exposer mon problème, car débutant en Perl, je n'arrive pas à trouver une réponse évidente a ma question à travers les divers pdf que le sujet que j'ai pu lire

je dispose de deux tableaux associatifs
%collection1
%collection2

je l'ai rempli ainsi (via une lecture dans un fichier)

Code :

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

1
2
3
%collection1 = (
         $enseigne => $modele,
);

Si j'ai tout bien compris je devrais avoir un tableau ainsi si on l'imagine "humainement"

Code :

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

1
2
3
4
5
6
7
8
9
|Enseigne | Modèle |
--------------------
| Pegeot  | 206    |
| Pegeot  | 306    |
| Pegeot  | 207    |
| Citroën | C2     |
| Citroën | C3     |
| Renault | R5     |
--------------------

je voudrais faire un test pour comparer les deux collections
Le but serait pour chaque enseigne, de regarder si les deux collections partagent au moins un modèle

Si oui, ajouter cette enseigne dans @commun, qui est un simple tableau

Si vous aviez une petit idée de comment faire cela, je vous en serais reconnaissant !

[djibril]

je te dirais que ton tableau est bon et surtout mauvais, car en perl, les noms de clé sont unique, donc ton tableau ressemblera plutôt à ça

--------------------
| Pegeot | 207 |
| Citroën | C3 |
| Renault | R5 |
--------------------

Car il ecrasera à chaque fois qu'il trouve la même clé

[Jedai]

je l'ai rempli ainsi (via une lecture dans un fichier)

Code :

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

1
2
3
%collection1 = (
         $enseigne => $modele,
);

Ca c'est pour initialiser un hash, pour le remplir, on procède plutôt comme ça :

Code :

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

$collection1{$enseigne} = $modele;

Par ailleurs dans ton cas, comme dans un hash, chaque clé n'a qu'une seule valeur associée, il serait préférable de faire un hash de tableau, pour rajouter un élément tu ferais :

Code :

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

push @{$collection1{$enseigne}}, $modele;

Ensuite pour comparer les deux collections, il faut visiter le hash et pour chaque enseigne chercher si les tableaux associés ont des éléments en commun :

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
sub enseignes_ont_modeles_communs {
  my ($col1, $col2) = @_;
  my @commun;
 
  for my $enseigne ( keys %{$col1} ) {
    push @commun, $enseigne
      if( exists $col2->{$enseigne}
          and intersect( $col1->{$enseigne}, $col2->{$enseigne} );
  }
 
  return @commun;
}
 
sub intersect {
  my ($arr1, $arr2) = @_;
  my %temp; @temp{@{$arr1}} = ();
  return grep { exists $temp{$_} } @{$arr2};
}

--
Jedaï