Discussion :

[jean tof]

Bonjour

J'aimerais savoir s'il existe une fonction perl permettant de savoir si des données sont identique et me retourne ceux-ci. Je m'explique, j'ai un tableau avec des données comme ceci @tab = {Fa0/1,Fa0/2,Fa0/3,Fa0/1,Fa0/1}. Dans mon exemple, il faudrait que je puisse recupérer seulement Fa0/1 qui est présent 3 fois dans le tableau.
Donc voila, si quelqu'un connait une fonction Perl permettant de faire cela ?

Merci

[djibril]

non il n'existe pas une fonction perl pour ça, mais on avait déjà fait un script perl pour recuperer les duoblons dans un tableau sur ce forum. utilise donc la fonction rechercher du forum perl et tu trouvera la reopnse dans un topic

[pospos]

si l'ordre n'est pas important je te conseil d'utiliser des le depart un hash à la place de ton tableau

[Jedai]

Une petite solution (comme on en trouve effectivement pas mal sur le forum) :

Code :

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

1
2
3
4
5
6
7
8
9
 
sub doublons {
  my (@doublons, %count);
  foreach my $elem (@_) {
    # mettre l'élément dans le tableau de doublons si on l'a compté deux fois dans le tableau d'entrée
    push @doublons, $elem if ++$count{$elem} == 2;
  }
  return @doublons;
}

(ce n'est pas la seule façon de faire, mais c'est l'une des plus efficace.)

--
Jedaï

[lami20j]

Salut,

Tu peux aussi essayer ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
#
use warnings;use strict;
 
my %d;
my @t = qw /a b a c d a/;
 
sub doublons {
	return grep { $d{$_}++ == 1 } @t;
}
 
print "@{[ doublons(@t) ]}\n";

lami20j

[jean tof]

Merci bien, ça marche nickel