Discussion :

[MaT77]

Bonjour,

Comme j'ai posté dans le sujet suivant (mais on m'a conseillé à juste titre d'en créer un nouveau) : http://www.developpez.net/forums/d35...tion-tableaux/

J'ai un tableau qui contient des dates du genre
$tDates1[0] = "2008/11/15 00:10:00"
et un second qui contient des dates également
$tDates2[0] = "2008/11/15 00:10:00"

Je veux que @tDates1 contiennent les dates à la fois de @tDates1 et @tDates2.
Lorsque je fais @tDates1 = (@tDates1 , @tDates2), les dates sont bien concaténées mais ils y a pleins de doublons du genre :
$tDates1[0] = "2008/11/15 00:10:00" et $tDates1[1] = "2008/11/15 00:10:00";
Je voudrais que @tDates1 ne récupère que les dates de @tDates2 qu'il ne possède pas déjà.

P.S.: à noter que les performances sont très importantes, donc je ne veux pas faire des boucles imbriquées....

Merci.

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
# hash : clé unique
my %hash;
 
# mise des données dans le hash afin d'éviter les doublons
map{$hash{$_}=1}@tDates1 ;
map{$hash{$_}=1}@tDates2;
 
# replacement des données dans le tableau
@tDates1 = keys(%hash);

Tu peux utiliser un hash.

Sinon il existe aussi le module List::Compare

[MaT77]

Ok merci pour ta réponse, j'avais finalement trouvé quelque chose de similaire.

@tDates1 = (@tDates1 , @tDates2);
my %hDates_tmp;
map{ $hDates_tmp{$_}=1 } @tDates1;
@tDates1 = sort keys %hDates_tmp;

Faut voir quelle solution est la plus performante.