Discussion :

[GDMINFO]

Bonjour,

je rempli un tableau @noeuds et avant d'ajouter un élément je voudrais tester s'il n'est pas déjà présent dans le tableau. La fonction exists ne me convient pas parce qu'elle prend en entrée un index et je ne sais pas à quel position se trouve mon élément dont je veux tester l'appartenance (ou non) au tableau. Avez vous une solution ?

Merci.

[sone47]

Je ne sais pas si en perl il existe une fonction toute faite mais une solution est de faire une boucle qui varie du premier indice du tableau au dernier et a chaque tour de boucle tu appel ta fonction exist qui prendra en parametre l'indice actuel.

[Arioch]

J'ai bien une solution : le hachage en lieu et place de ta liste.

Plus pratique pour toi qui veut t'assurer de l'unicité de chaque valeur puisque chaque clé d'un hachage est unique.

Par contre, tu perd l'ordre des données dans ton hachage.

Pour donner un rapide exemple, admettons que tu veuilles stocker dans un second tableau (@valeur_unique) les valeurs du tableau @toto ci-dessous, voici comment procéder avec un hachage intérmédiaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use warnings;
 
my @toto;
my %hash;
my @valeur_unique;
 
@toto = (1,1,2,1,3,1,2,4,5,6,74,8,9,10);
foreach(@toto)
{
    ++$hash{$_};
}
@valeur_unique = keys(%hash);    # le tableau final reçoit toutes les valeurs sans doublon

[GDMINFO]

J'y ai pensé, dailleurs voici une partie de mon code :

while( defined( $ligne = <FIC> ) )
{
chomp $ligne;
@aretes = split(/\s+/, $ligne);
$origine=substr($aretes[0],1,length($aretes)-1);
$destination=substr($aretes[1],1,length($aretes)-1);

$noeuds{$origine}=$i;
$noeuds{$destination}=$i+1;

foreach $j (keys %noeuds)
{

print( FIC2 "<node id=\"$j\" />\n" );
}

}

mais dans FIC2, les $j sont en plusieurs exemplaires, pourquoi ???

[GDMINFO]

Je me suis inspirée de ce que vous avez fait, voici mon code:

foreach(@noeuds)
{
++$hash{$_};
}
@noeudsnouveau=keys(%hash);

$long=@noeudsnouveau;

for($i=0;$i<$long;$i++)
{
print( FIC2 "<node id=\"$noeudsnouveau[i]\" />\n" );
}

mais dans le fichier de sortie, c'est toujours $noeudsnouveau[0] qui s'affiche dans la chaîne de caractères, et ce, bien que le tableau semble correct (j'ai affiché le début à la main pour voir s'il contenait bien des éléments distincts et plusieurs)...

[GDMINFO]

C'est bête... j'ai oublié un $ devant le i de $noeudsnouveau[i]

merci pour votre précieuse aide.