Discussion :

[djibril]

Je suis en train de m'amuser à ecrire une fonction elegante et rapide permettant de comparer deux tableaux (si vous en avez, je suis preneur). J'ai reussi pour comparer les tableaux n'ayant pas de doublons. Mais pour les autres cas, c'est plus complex.
Sinon, j'aurais une question.
comment supprimer proprement un element d'un tableau?
Je sais qu'on peut faire delete, mais ça ne m'aide pas trop, ex :

Code :

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

1
2
3
4
5
6
 
my @fruits=(1,2,3,4,5,6);
$,=" ";
print scalar(@fruits),"|| ", @fruits,"\n";
delete($fruits[1]);
print  scalar(@fruits),"|| ", @fruits,"\n";

resultat

Code :

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

1
2
3
4
 
Use of uninitialized value in print line 14.
6 ||  1 2 3 4 5 6 
6 ||  1  3 4 5 6

la valeur est supprimée (ou du moins mise à undef) et j'ai un message d'erreur et j'ai toujours 6 elts dans mon tableau, que faire?

[2Eurocents]

Je manque un peu de temps pour une réponse plus complète (sur la comparaison, notamment), mais pour gérer les undefs résultants de deletes dans des tableaux, j'ai parfois utilisé grep.

Code :

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

@fruits = grep { defined } @fruits;

Sinon, il y a aussi la solution de supprimer par recréation d'un nouveau tableau, à coup de tranches, plutôt que par delete.

Code :

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

1
2
3
4
5
6
7
if ($a_supprimer == 0) {
  @fruits = @fruits[($a_supprimer+1)..$#fruits];
} elsif ($a_supprimer == $#fruits) {
  @fruits = @fruits[0..$#fruits-1];
} else {
@fruits = @fruits[((0..($a_supprimer-1)),($a_supprimer+1..$#fruits))];
}

Je ne sais pas réellement ce qui est le plus efficace pour les gros tableaux ...

[Edit]
Dans la suppressions à coup de tranche, il faut, bien évidemment, gérer l'absence de suppression si l'élément indiqué $a_supprimer est hors bornes du tableau, ce que je n'ai pas fait ici
[/Edit]

[djibril]

en faite, si on veut comparer deux tableaux de n cases, la façcon la plus barbare est de faire deux boucles.
Mais afin d'eviter n*n comparaison, je faire des delete au fur et à mesure qu'un elt est trouvé, ce qui reduit déjà pas mal le nombre de comparaison.
Ta solution de recreer un new tableau me plait bien

Code :

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

@fruits = grep { defined } @fruits;

mais je sais pas si du coup niveau optimisation, ça le fait : car à chaque parcour du tableau, faudra faire un grep??

[tfe]

pour les doublons y a tout dans la doc

Code :

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

1
2
perldoc -q array
How can I remove duplicate elements from a list or array?

puis comparaison
How do I test whether two arrays or hashes are equal?

Code :

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

1
2
3
4
5
6
7
8
9
        sub compare_arrays {
               my ($first, $second) = @_;
               no warnings;  # silence spurious -w undef complaints
               return 0 unless @$first == @$second;
               for (my $i = 0; $i < @$first; $i++) {
                   return 0 if $first->[$i] ne $second->[$i];
               }
               return 1;
           }

il y a egalement une fonction pour les structures plus compexes mais bon... A prioris le code est donné juste a titre d exemple; c est sur que ca doit pas etre optimal :S

[djibril]

je l'ai bien vu ce script, y a plus simple. c'est uniquement pour des tableaux simples et de plus il compare case contre case.
Sinon j'ai pu faire ma fonction comparant les tableaux (à une dimension et avec ou sans doublons)
merci qd même tfe