Discussion :

[LFC]

Bonjour

Est-ce qu'il existe un équivalent de array_unique en Perl ?
Parce je ne pense pas qu'il connaisse cela puisqu'il m'affiche

Code :

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

1
2
 
Undefined subroutine &main::array_unique called at fich.pl line 10.

Merci.

[mat21]

salut,

non en perl tu dois faire une methode d'elimination des doublons

Code :

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

1
2
3
4
5
6
7
8
 
   foreach my $elt (@redondant) {
      unless ($deja_vu{$elt})
      {
      $deja_vu{$elt} = 1;
      push(@uniques,$elt);
      }
   }

[Arioch]

Toi aussi, tu peux te faire ta propre fonction Array_Unique

Code :

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

1
2
3
4
5
6
7
8
9
10
sub Array_Unique
{
    my @List = @_;
    my %FutureList;
    foreach(@List)
    {
        $FutureList{$_} = 1; # supprime les doublons au passage
    }
    return (keys(%FutureList));
}

Exemple :

Code :

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

@Liste = Array_Unique(@Liste);

Edit1 : ma fonction ne ... fonctionne qu'avec des listes simples, autrement dit (en C) des tableaux à 1 dimension. Si ta liste contient elle aussi des listes, il va falloir étoffer un peu

Edit2 : et ma fonction à deux balles n'est pas tip top si tu souhaites récupérer les éléments triés dans le même ordre qu'initialement. Autrement dit : oublie ma fonction !!

[LFC]

Bonjour

Mon tableau est uniquement composé de 3 valeurs, donc le fait que ça gère le 1 dimension est suffisant.

Mais ça ne semble pas marcher encore...

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
 
$pays_fr = 'France';
$pays_en = 'France';
$pays_es = 'Francia';
@List = $pays_fr." ".$pays_en." ".$pays_es;
 
sub Array_Unique 
{ 
my @List = @_; 
my %FutureList; 
	foreach(@List) 
	{ 
	$FutureList{$_} = 1;
	} 
return (keys(%FutureList)); 
}
@List_unique = Array_Unique(@List);
print @List_unique;

Et il m'affiche les 3 valeurs, donc ce n'est pas épuré...

Voilà, si t'as une idée...

[Arioch]

J'ai juste changé cette ligne là dans ton exemple et là, ça marche :

Code :

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

@List = ($pays_fr, $pays_en, $pays_es);

Il me semble que, de tes 3 valeurs, tu n'en faisais plus qu'une via concaténation. Ton tableau @List ne contenait qu'un seul élément avant passage dans la fonction, laquelle te retournait cet élément unique.

[LFC]

Merci beaucoup.

Les deux réponses proposées marchent, le seul problème c'était la définition de mon tableau à l'origine...

Cordialement.