Perl

[perl]effacer répétitions dans une liste

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [perl]effacer répétitions dans une liste

fiftoman

Bonjour,

j'aimerais effacer les éléments (de type nombre) d'une liste qui se repetent en perl, et les ordonner.

C'est à dire que si ma liste est par exemple:
12 33 33 33 77 45 77 24 21

j'aimerais qu'elle devienne
12 21 24 33 45 77

C'est À dire que les deux 33 en trop ont dégagés ainsi que le 77 en trop. Et la liste est triée du plus petit au plus grand.

Qqn peut me donner une idée ?

merci.

Publicité

Elmoricq

Modérateur

Le mieux c'est de rentrer tes éléments dans un hâchage :

Exemple rapide :

#! /usr/bin/perl

use strict;

my $chaine = "12 33 33 33 77 45 77 24 21";
my %unique = ();

$unique{$_} = undef foreach ( split " ", $chaine );

$,=" ";
print sort keys %unique, "\n";

Message édité par Elmoricq le 07-04-2006 à 15:37:06

anapajari

s/travail/glanding on hfr/gs;

D'ailleurs c'est dans la doc
http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q5.4.html

Elmoricq

Modérateur

Ah ouais, j'aime bien leur solution avec grep, j'y pense jamais à cette commande.
J'adore PERL pour ça, y a toujours dix façons de résoudre un même problème.

En reprenant mon exemple avec la solution qu'ils donnent dans la perldoc, ça donne :

#! /usr/bin/perl

use strict;

my $chaine = "12 33 33 33 77 45 77 24 21";

my $prev;
my @sorted = grep {$_ ne $prev and ($prev = $_) } sort split " ", $chaine;

$,=" ";
print "@sorted\n";

EDIT : par contre je connaissais pas cette façon d'initialiser un hash directement avec un tableau de clefs [:pingouino]

Message cité 1 fois
Message édité par Elmoricq le 07-04-2006 à 15:53:01

franceso

Elmoricq a écrit :

J'adore PERL pour ça, y a toujours dix façons de résoudre un même problème.

Citation :

There's more than one way to do it !

---------------
TriScale innov

fiftoman

merci les gars !
je vais essayer ca lundi matin, là c'est le week end pour moi !! :-)
ciao

Message cité 1 fois

Elmoricq

Modérateur

fiftoman a écrit :

merci les gars !
je vais essayer ca lundi matin, là c'est le week end pour moi !! :-)
ciao

Fonctionnaire !

Message cité 1 fois

anapajari

s/travail/glanding on hfr/gs;

La le code je le trouve quand même un peu "hardcode", la ligne qu'il faut relire 3 fois avant de la comprendre... Et c'est ce que j'aime pas en perl, pour peu que le dev d'avant adore ce genre de chose, on se retrouve vite avec des lignes incompréhensibles...
D'ailleurs tu aurais pu faire pire encore:

Code :

my $chaine = "12 33 33 33 77 45 77 24 21";
my $prev;
$,=" ";
print grep {$_ ne $prev and ($prev = $_) } sort split " ", $chaine;

Elmoricq

Modérateur

Ca manque de regexp pour rendre le truc vraiment illisible [:el g]

pospos

pk pas un petit grep {++$seen{$_}==1} ?

Publicité

fiftoman

Elmoricq a écrit :

Fonctionnaire !

nan nan pas fonctionnaire, allemand ! :sleep:

fiftoman

J'ai une autre question concernant les tris en perl svp:
J'ai ce fichier texte:
#x y
1 5
44 2
3 74
2 11

Et en fait, j'aimerais le transformer en un nouveau fichier texte ou les x sont triés par ordre croissant:

donc le nouveau fichier texte serait:

#x y
1 5
2 11
3 74
44 2

Vous savez comment on peut faire ca svp?
merci.

franceso

le plus simple est de lire ton fichier dans une hash_map (clé x ; valeur y) Ensuite, tu tries les clés de ta map et tu affiches.

---------------
TriScale innov

fiftoman

ok merci, je vais essayer..

anapajari

s/travail/glanding on hfr/gs;

t'as juste a adapter un peu le code fourni plus haut ...
T'es en ou pour l'instant, tu as essayé quoi?

Spoiler :

feignant...

fiftoman

ben en fait, comme je maitrise pas perl, et que je connais pas bien les hashages, j'ai mis chaque ligne de mon fichier dans une liste.

MAis le probleme c'est que les elements de la liste sont les lignes entieres et pas juste les x.

Sinon j'ai pas compris ce qui avait été fait plus haut. J'avais juste appliqué betement.. Donc pour adapter ..hum hum...
Enfin, merci quand même !
Miguel

lami20j

Salut,

Code :

#! /usr/bin/perl
use warnings;
use strict;
my %h = ();
my $entete = <DATA>;
while (<DATA> ){
next unless /^\d/;
my($cle,$val) = split /\s+/,$_;
$h{$cle} = $val;
}
print "$entete";
foreach (sort {$a <=> $b} keys %h){
print "$_ $h{$_}\n";
}
__END__
X Y
1 6
3 22
5 1
0 8
10 258
2 5401

le résultat

Code :

[lamitest@localhost corbeille]$ perl a
X Y
0 8
1 6
2 5401
3 22
5 1
10 258
[lamitest@localhost corbeille]$

lami20j

FORUM HardWare.fr

Programmation

Perl

[perl]effacer répétitions dans une liste

Sujets relatifs
Liste vide	liste deroulante
[Perl] question relativement facile.	Question de débutant. Interface HTML pour mes scripts perl ???
Selectionner valeur dans une liste déroulante	[Perl]Code de 8 lignes à essayer sous Perl sous Linux
[Résolu[VBA][Access] Remplissage d'1 liste déroulante avec 1 Recordset	liste deroulante
[Perl] effacer début fichier texte
Plus de sujets relatifs à : [perl]effacer répétitions dans une liste

Page générée en 0.107 secondes