Extraire les éléments d'une liste, sans doublons

Bonjour,

le 02/08/2006 à 14:53, Yves Martin a écrit dans le message
<f6hd0vxpri.fsf@pcyma.elca.ch> :

Ma question est simple: comment supprimer les doublons d'une liste ?

$tmp{$_}++ foreach (@list);
@list = keys %tmp;

Existe-t-il une fonction "standard" pour ça ?

« There Is More Than One Way To Do It » est la devise de Perl.

--
Benoit Izac

Dans l'article <f6hd0vxpri.fsf@pcyma.elca.ch>, ymartin@nospam.fr a dit...

Ma question est simple: comment supprimer les doublons d'une liste ?
Existe-t-il une fonction "standard" pour ça ?

Le module List::MoreUtils a une fonction 'uniq' qui fait ça :

http://cpan.uwinnipeg.ca/htdocs/List-MoreUtils/List/MoreUtils.html#item_uniq

--
J-L.M.
http://www.bribes.org/perl

Dans l'article <86k65rfdxc@message.id>, use.reply.to@INVALID.ADDRESS a dit...

le 02/08/2006 à 14:53, Yves Martin a écrit dans le message
<f6hd0vxpri.fsf@pcyma.elca.ch> :

Ma question est simple: comment supprimer les doublons d'une liste ?

$tmp{$_}++ foreach (@list);
@list = keys %tmp;

Oui, mais là vous perdez l'ordre des éléments de la liste.

Existe-t-il une fonction "standard" pour ça ?

« There Is More Than One Way To Do It » est la devise de Perl.

Voir par exemple :

http://www.serve.com/josh/books/perl/cookbook/ch04_07.htm

--
J-L.M.
http://www.bribes.org/perl

jl_morel@bribes.org (Jean-Louis MOREL) writes:

Le module List::MoreUtils a une fonction 'uniq' qui fait ça :
http://cpan.uwinnipeg.ca/htdocs/List-MoreUtils/List/MoreUtils.html#item_uniq

Merci, c'est ce que je cherchais.
--
Yves Martin