PERL- Enlever mêmes lignes d'un fichier
Fermé
tonixm
Messages postés
127
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
30 janvier 2009
-
17 avril 2008 à 11:50
tonixm Messages postés 127 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 30 janvier 2009 - 17 avril 2008 à 14:01
tonixm Messages postés 127 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 30 janvier 2009 - 17 avril 2008 à 14:01
A voir également:
- PERL- Enlever mêmes lignes d'un fichier
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
6 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 567
17 avril 2008 à 14:00
17 avril 2008 à 14:00
Oui, bien sûr ;-)
root@debian:~# cat tonixm.txt
aaa
bbb
bbb
ccc
ddd
ddd
eee
fff
root@debian:~# cat ccm.pl
#!/usr/bin/perl
use strict;use warnings;
open LIRE,"tonixm.txt";
open ECRIRE ,">tonixm.focal";
my %vu=();
my @unique;
@unique = grep { ! $vu{$_} ++ } <LIRE>;
print ECRIRE @unique;
__END__
root@debian:~# perl ccm.pl
root@debian:~# cat tonixm.focal
aaa
bbb
ccc
ddd
eee
fff
root@debian:~#Voici une autre version sans @uniqueroot@debian:~# cat ccm.pl
#!/usr/bin/perl
use strict;use warnings;
open ECRIRE ,">tonixm.focal";
my %vu=();
print ECRIRE grep { ! $vu{$_} ++ } qx/cat tonixm.txt/;
__END__
Cette fois l'écriture se fait directement dans le fichier tonixm.focal
tonixm
Messages postés
127
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
30 janvier 2009
4
17 avril 2008 à 11:53
17 avril 2008 à 11:53
j'ai entendu, si je ne me trompe pas d'utiliser des tables de hachage, mais alors je ne vois vraiment pas comment procéder
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 567
17 avril 2008 à 12:22
17 avril 2008 à 12:22
Salut,
voici un idiome Perl ;-)
voici un idiome Perl ;-)
root@debian:~# cat tonixm.txt
aaa
bbb
bbb
ccc
ddd
ddd
eee
fff
root@debian:~# cat ccm.pl
#!/usr/bin/perl
use strict;use warnings;
open LIRE,"tonixm.txt";
my %vu=();
my @unique;
@unique = grep { ! $vu{$_} ++ } <LIRE>;
print for @unique;
__END__
root@debian:~# perl ccm.pl
aaa
bbb
ccc
ddd
eee
fff
root@debian:~#
tonixm
Messages postés
127
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
30 janvier 2009
4
17 avril 2008 à 13:22
17 avril 2008 à 13:22
merci lami20j comme d'hab ;)
par contre marche t'il de cette manière c'est a dire en mettant le resulat dans un autre fichier:
open LIRE,"tonixm.txt";
open ECRIRE ,">tonixm.focal";
my %vu=();
my @unique;
@unique = grep { ! $vu{$_} ++ } <LIRE>;
print ECRIRE @unique;
au final aurais-je dans tonixm.focal ??:
aaa
bbb
ccc
ddd
eee
fff
si dans tonixm.txt j'ai:
aaa
bbb
bbb
ccc
ddd
ddd
eee
fff
(cf ton exemple)
par contre marche t'il de cette manière c'est a dire en mettant le resulat dans un autre fichier:
open LIRE,"tonixm.txt";
open ECRIRE ,">tonixm.focal";
my %vu=();
my @unique;
@unique = grep { ! $vu{$_} ++ } <LIRE>;
print ECRIRE @unique;
au final aurais-je dans tonixm.focal ??:
aaa
bbb
ccc
ddd
eee
fff
si dans tonixm.txt j'ai:
aaa
bbb
bbb
ccc
ddd
ddd
eee
fff
(cf ton exemple)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tonixm
Messages postés
127
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
30 janvier 2009
4
17 avril 2008 à 14:00
17 avril 2008 à 14:00
une idée?
tonixm
Messages postés
127
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
30 janvier 2009
4
17 avril 2008 à 14:01
17 avril 2008 à 14:01
merci!!!!
je vais essayer ca!!!
je vais essayer ca!!!
