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 :

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;
 
print "@isect\n";

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

my (%h1, %h2);
foreach (@array1) { $h1{$_}++ }
foreach (@array2) { if ($h1{$_}) { $h2{$_}++} }
foreach (keys %h2) { if ($h1{$_} < $h2{$_}) { $h2{$_} = $h1{$_} } }
foreach (keys %h2) { push @isect, ($_) x $h2{$_} }
sort @isect;

A+,