Perl Supprimer redondance dans paragraphe
orlando_84
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
orlando_84 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
orlando_84 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Perl Supprimer redondance dans paragraphe
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page dans word - Guide
- Chaque paragraphe doit être espacé de 0,42 cm ou 12 pt du paragraphe qui suit - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - 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);
