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

[pospos]

lami
c'est {++$d{$_} == 1} ou {!$d{$_}++}, mais pas $d{$_}++ == 1

et d'ailleurs pouyrqoi le mettre dans une sub si tu defini les variables en global ?

[Jedai]

lami
c'est {++$d{$_} == 1} ou {!$d{$_}++}, mais pas $d{$_}++ == 1

et d'ailleurs pouyrqoi le mettre dans une sub si tu defini les variables en global ?

Non non, c'est soit ++$d{$_} == 2 soit $d{$_}++ == 1, pour que l'on ne récupère l'objet que la deuxième fois qu'on le rencontre (et pas la première ou la troisième). Par contre je suis d'accord pour dire qu'en faire une sub alors qu'elle n'est utilisable qu'une fois n'est pas une bonne idée, il vaudrait mieux l'écrire comme ça :

Code :

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

1
2
3
4
5
 
sub doublons {
        my %d;
	return grep { $d{$_}++ == 1 } @_;
}

--
Jedaï

[pospos]

ok, je pensais qu'il voulait les trucs uniques, alors qu'il voulait les doublons.
desolé

[lami20j]

Salut,

Non non, c'est soit ++$d{$_} == 2 soit $d{$_}++ == 1, pour que l'on ne récupère l'objet que la deuxième fois qu'on le rencontre (et pas la première ou la troisième). Par contre je suis d'accord pour dire qu'en faire une sub alors qu'elle n'est utilisable qu'une fois n'est pas une bonne idée, il vaudrait mieux l'écrire comme ça :

Code :

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

1
2
3
4
5
 
sub doublons {
        my %d;
	return grep { $d{$_}++ == 1 } @_;
}

--
Jedaï

Je suis d'accord pour @t et %d. J'étais pressé pour donner l'exemple et j'ai écrit vite fait. Merci pour la remarque pospos et Jedai.

lami20j