Perl Supprimer redondance dans paragraphe
orlando_84
Messages postés
6
Statut
Membre
-
orlando_84 Messages postés 6 Statut Membre -
orlando_84 Messages postés 6 Statut Membre -
Bonjour,
Je souhaite connaitre la commande pour supprimer les redondances présent dans un même paragraphe
exemple
For AAAAAAAAAAAA
toto
toto
toto
toto
tata
tata
tata
titi
For BBBBBBBBBB
toto
toto
tata
titi
(end fichier)
résultat souhaite:
-------------------
For AAAAAAAAAAAA
toto
tata
titi
For BBBBBBBBBB
toto
tata
titi
merci d'avance
Je souhaite connaitre la commande pour supprimer les redondances présent dans un même paragraphe
exemple
For AAAAAAAAAAAA
toto
toto
toto
toto
tata
tata
tata
titi
For BBBBBBBBBB
toto
toto
tata
titi
(end fichier)
résultat souhaite:
-------------------
For AAAAAAAAAAAA
toto
tata
titi
For BBBBBBBBBB
toto
tata
titi
merci d'avance
Configuration: Windows XP / Firefox 3.5.8
A voir également:
- Perl Supprimer redondance dans paragraphe
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page dans word - Guide
- Supprimer liste déroulante excel - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Supprimer hiberfil.sys - Guide
3 réponses
j'avais commencez un script en shell sur linux (grep -e , sed, sort -u)
mais celui ci n'ai pas compatible avec un Sun
donc je me rabattu sur le PERL
mais celui ci n'ai pas compatible avec un Sun
donc je me rabattu sur le PERL
hello
avec awk:
Sur Solaris, utiliser nawk
avec awk:
Sur Solaris, utiliser nawk
$ cat a1
For AAAAAAAAAAAA
toto
toto
toto
toto
tata
tata
tata
titi
For BBBBBBBBBB
toto
toto
tata
titi
$ awk '/For/ {print;i=$0;next}; {if(!x[$0,i])print;x[$0,i]=$0}' < a1
For AAAAAAAAAAAA
toto
tata
titi
For BBBBBBBBBB
toto
tata
titi
$
Voici ma solution
open(FILE_TEMP, "<FILE_TEMP") or die "Cannot open fichier : $!";
open(FILE_FINAL, ">FILE_FINAL") or die "Cannot open fichier : $!";
my @FILE_TABLE= <FILE_TEMP>;
my $i = 0;
foreach my $element (@FILE_TABLE) {
if ($element ne $FILE_TABLE[$i+1]) {
print FILE_FINAL $element;
}
$i++;
}
close (FILE_FINAL);
close (FILE_TEMP);
open(FILE_TEMP, "<FILE_TEMP") or die "Cannot open fichier : $!";
open(FILE_FINAL, ">FILE_FINAL") or die "Cannot open fichier : $!";
my @FILE_TABLE= <FILE_TEMP>;
my $i = 0;
foreach my $element (@FILE_TABLE) {
if ($element ne $FILE_TABLE[$i+1]) {
print FILE_FINAL $element;
}
$i++;
}
close (FILE_FINAL);
close (FILE_TEMP);
