Discussion :

[pymouse]

Bonjour,

N'étant sur le perl que depuis 2jours, je suis loin d'être un expert. Mon preblème et le suivant. J'ai un tableau de référence (tableau de tableau), ces réf font référence a un tableau qui seras tout le temps le même, comme le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
my @tab_elt;
my @elt
 
while()
{
my @elt = ($1,$2)
$tab_elt[i]=\@elt;
i++;
}

Mon problème est que je peut avoir des @elt égaux...Mais comme dans @tab_elt ce sont des références..., je ne vois pas comment éviter les doublons? Il n'existe pas de fonction pour le faire? Suis-je obligé de créer ma fonction qui compare l'element que je veut rajouter avec tous les autres avant de l'insérer dans le tableau?

[Arioch]

Bonjour,

plusieurs remarques sur le code que je vois :

- il manque un ; après la déclaration de ton @elt, la 1ère déclaration devrais-je préciser.
- pourquoi déclare-tu de nouveau une liste nommée @elt dans ta boucle while ?
- de quelle expression régulière proviennent les variables de motif $1 et $2 ?
- pourquoi ne pas nous montrer ton code intégralement ?

[pymouse]

Mon code c'est juste a titre d'exemple!
Je voi pas l'intéret de mettre mon code exact, ce que je cherche c'est la méthode pour supprimer ou évité des doublons dans mon tableau d'éléments.
C'est pas vraiment un problème de syntaxe mais plutot de méthode...Enfin je pense.

J'aime bien comprendre comment faire...

[Jedai]

Soit tu fais une boucle pour comparer à tous les éléments précédents, soit tu utilises un hash. Est-ce que l'ordre de ton tableau est important ?
Supposons qu'il n'est pas important, dans ce cas pour te donner une idée :

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
16
17
18
19
my %elts;
 
while(<$file>) {
  chomp();
  if( m/([^:]):(.*)/ ) {
    # l'important c'est que la clé soit _caractéristique_ de la valeur
    $elts{"$1\0$2"} = [ $1, $2 ];
  }
}
 
# pas indispensable, on peut continuer à se servir de values %elts
# mais intéressant pour un gros programme qui doit éviter de gâcher de
# l'espace
my @tab_elts = values %elts;
undef %elts
 
foreach my $v ( @tab_elts ) {
  print "1 : $v->[0], 2 : $v->[1]\n";
}

Ici j'utilise \0 comme séparateur parce que je doute que le caractère nul soit présent dans $1 ou $2.

Si l'ordre est important, il est nécessaire de maintenir en parallèle un tableau et un hash.

--
Jedaï

[pymouse]

C'est exactement ce qui me faut.
Je vais mettre ça en place.

Merci