Discussion :

[Jasmine80]

Bonjour,


J'ai crée un tableau indexé (%Noms) et j'aimerais y trouver les valeurs représentées plus d'une fois.

Code :

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

1
2
3
4
5
6
7
8
9
10
foreach my $ValNoms (values(%Noms))
{
     foreach my $ValNoms2 (values(%Noms))
     {
        if ($ValNoms eq $ValNoms2)
        {
        }
     }
 
}

Si je lance le programme comme ci-dessus, mon if fonctionnera toujours au moins une fois quand la valeur s'appariera avec elle même. ^^ je sais pas si c'est clair. J'aimerais connaitre mes valeurs doubles ainsi que leur clef.


Merci beaucoup,


Jasmine,

[djibril]

http://www.developpez.net/forums/sho...t=20457&page=3

[Jasmine80]

Merci, je n'avais pas pensé à la fonction recherche ^^ je l'utiliserai la prochaine fois.


Pourrais-tu, s'il te plait, m'expliquer

Code :

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

my @les_doublon = &liste_doublons(\@tableau);

Pourquoi utiliser un & ?... pour répurer la valeur.
Pourquoi placer un \ devant @tableau? ... Pour passer le tableau de la subroutine.

On m'a appris à utiliser la structure ci-dessous? est-ce exactement l'équivalent ou y a t'il des différences?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
($SP_GI,$SP_Seq) = Fas_DATA  ($pDirectory_list[$i], $pOut);
 
 
sub Fas_DATA
 
	{
        	my $pFile = shift @_;  
            	my $pOut = shift @_;
 
        	...
 
 
        	return ($SP_GI, $SP_Seq);
 
	}

Merci,


Jasmine,

[MarneusCalgarXP]

Le & permet d'indiquer que l'on veut faire appel à une sub. Il n'est pas obligatoire, mais permet de mieux repérer les subs définies dans le code.

Le \@ signifie que l'on veut passer une référence sur le tableau à la méthode et non une copie complète du tableau. Ca permet un gain de temps et de mémoire, surtout si le tableau est volumineux. néanmoins, il faut que tu comprennes comment fonctionne le mécanisme des références, qui est détaillé dans la FAQ si je ne me trompe pas !

[Jasmine80]

Merci beaucoup pour votre aide, cela fonctionne très bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
foreach my $ValNoms (values(%Noms))
{
        #print "Nom $ValNoms \n";
 
  	if ($temp{$ValNoms}++ == 1)
             {
  		push (@Doublons, $ValNoms);
  	     }
}
 
print "Les doublons @Doublons \n";

Jasmine,