mouda | Bonsoir à tous, ,
Depuis plusieurs heures que j'essai de trouver une solution à mon problème.. en fait je veux extraire l'intersection entre 2 tableaux, j'ai fait ce code :
Code :
use strict; use Data::Dumper; my @array1 = (1, 2, 3,3,3,3,4); my @array2 = (2, 3, 4,4,4); my %original = (); my @isect = (); map { $original{$_} = 1 } @array1; @isect = grep { $original{$_} } @array2;
|
le résultat est 2 3 4 4 4 mais ce n'est pas vraiment ce que je souhaite avoir l'intersection dois etre : 2 3 4 un autre exemple si : my @array1 = (5,6,5,7);
my @array2 = (5,6,7,7);
alors le résultat est : 5 6 7 |