(sed/Perl) supprimer des lignes d'un fichier
Résolu/Fermé
titexe
Messages postés
55
Date d'inscription
lundi 27 novembre 2006
Statut
Membre
Dernière intervention
16 août 2010
-
12 déc. 2006 à 22:40
phoenix1984 - 3 sept. 2009 à 12:06
phoenix1984 - 3 sept. 2009 à 12:06
A voir également:
- (sed/Perl) supprimer des lignes d'un fichier
- Fichier rar - Guide
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Fichier host - Guide
- Impossible de supprimer un fichier - Guide
9 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
13 déc. 2006 à 18:46
13 déc. 2006 à 18:46
Salut,
et voilà en Perl
j'ai considéré aussi la possibilité que le fichier commence et se fini avec des lignes vides qu'on ne veux pas les prendre en compte
donc les lignes 1 et 2 et 14 et 15 sont vides (je ne les comptes pas)
Si je veux prendre en compte les lignes vides (si jamais elles existent)
et voilà en Perl
j'ai considéré aussi la possibilité que le fichier commence et se fini avec des lignes vides qu'on ne veux pas les prendre en compte
$ grep -n '^.*$' fichier 1: 2: 3:1 4:2 5:3 6: 7:4 8:5 9: 10:6 11:7 12:8 13:9 14: 15:
donc les lignes 1 et 2 et 14 et 15 sont vides (je ne les comptes pas)
$ perl -e '@f=<>;pop @f while($f[-1]=~/^$/);shift @f while($f[0]=~/^$/);print@f[2..$#f-2]' fichier > resultat $ cat resultat 3 4 5 6 7
Si je veux prendre en compte les lignes vides (si jamais elles existent)
$ perl -e '@f=<>;print@f[2..$#f-2]' fichier > resultat $ cat resultat 1 2 3 4 5 6 7 8 9
jipicy
Messages postés
40842
Date d'inscription
jeudi 28 août 2003
Statut
Modérateur
Dernière intervention
10 août 2020
4 894
12 déc. 2006 à 23:15
12 déc. 2006 à 23:15
Salut,
Un exemple :
sed -i.bak '1,2d;$d' ligne.txt && sed -i.old '$d' ligne.txtLes "-i.bak" et "-i.old" c'est pour faire une copie de sauvegardes des fichiers originaux.
Un exemple :
[jp@MDK tmpfs]$ cat ligne.txt 1ère ligne 2ème ligne 3ème ligne 4ème ligne 5ème ligne 6ème ligne 7ème ligne 8ème ligne 9ème ligne 10ème ligne [jp@MDK tmpfs]$ sed -i.bak '1,2d;$d' ligne.txt && sed -i.old '$d' ligne.txt [jp@MDK tmpfs]$ cat ligne.txt 3ème ligne 4ème ligne 5ème ligne 6ème ligne 7ème ligne 8ème ligne [jp@MDK tmpfs]$;-))
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
1 sept. 2009 à 14:20
1 sept. 2009 à 14:20
Re,
On utilise le tableau spécial @ARGV
Tu lances avec la commande
On utilise le tableau spécial @ARGV
#!/usr/bin/perl -i.orig
use strict;use warnings;
@ARGV=("/chemin/vers/fichier1", "/chemin/vers/fichier2");
while(<>){
print "$_" for 289 .. eof();
}
__END__
Tu lances avec la commande
perl /chemin/vers/suppr_lignes.pl
Bonjour,
j'ai un petit soucis avec le script d'hier ... je n'avais pas eu le temps de le tester avant ce matin ..
contenu de mon répertoire :
fichier.log
suppr_ligne.pl
contenu du script
#!/usr/bin/perl -i.orig
use strict;use warnings;
@ARGV=("fichier.log");
while(<>){
print "$_" for 289 .. eof();
}
__END__
une fois le script exécuté, le fichier fichier.log est vide et tout le contenu est bien présent dans la sauvegarde fichier.log.orig
étrange ... et le fichier initial contient bien plus de 288 lignes ...
Si tu as une réponse je suis preneur, je continue à chercher de mon côté
merci !
j'ai un petit soucis avec le script d'hier ... je n'avais pas eu le temps de le tester avant ce matin ..
contenu de mon répertoire :
fichier.log
suppr_ligne.pl
contenu du script
#!/usr/bin/perl -i.orig
use strict;use warnings;
@ARGV=("fichier.log");
while(<>){
print "$_" for 289 .. eof();
}
__END__
une fois le script exécuté, le fichier fichier.log est vide et tout le contenu est bien présent dans la sauvegarde fichier.log.orig
étrange ... et le fichier initial contient bien plus de 288 lignes ...
Si tu as une réponse je suis preneur, je continue à chercher de mon côté
merci !
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
2 sept. 2009 à 12:07
2 sept. 2009 à 12:07
Salut,
Au lieu de for mets if
Au lieu de for mets if
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Tres bien, ca fonctionne parfaitement avec IF, donc pour résumer ton code :
#!/usr/bin/perl -i.orig
use strict;use warnings;
@ARGV=("fichier.log");
while(<>){
print "$_" if 289 .. eof();
}
__END__
Ce script efface tres bien les 288 premières lignes du fichier!
Merci à toi lami20j !! :D
#!/usr/bin/perl -i.orig
use strict;use warnings;
@ARGV=("fichier.log");
while(<>){
print "$_" if 289 .. eof();
}
__END__
Ce script efface tres bien les 288 premières lignes du fichier!
Merci à toi lami20j !! :D
Hello !
alors cette commande fonctionne tres bien ... dans mon cas il s'agit de supprimer les 288 lignes d'un fichier .. par contre je souhaiterais passer cette commande directement dans un programme PERL ..
je ne vois pas comment passer les fichiers en arguments par contre ...
merci de votre aide ! :)
alors cette commande fonctionne tres bien ... dans mon cas il s'agit de supprimer les 288 lignes d'un fichier .. par contre je souhaiterais passer cette commande directement dans un programme PERL ..
je ne vois pas comment passer les fichiers en arguments par contre ...
merci de votre aide ! :)
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
1 sept. 2009 à 13:34
1 sept. 2009 à 13:34
Salut,
Les 288 lignes se trouve où, au début ou à la fin de fichier?
Les 288 lignes se trouve où, au début ou à la fin de fichier?
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
1 sept. 2009 à 13:37
1 sept. 2009 à 13:37
Re,
Pour les 288 premières lignes par exemple (Attention: je n'ai pas testé)
Tu écris dans un script que tu l'appelleras suppr_lignes.pl
Ensuite tu lances le script avec la commande
Pour chaque fichier une sauvegarde sera faite avec l'extension .orig
Pour les 288 premières lignes par exemple (Attention: je n'ai pas testé)
Tu écris dans un script que tu l'appelleras suppr_lignes.pl
#!/usr/bin/perl -i.orig
use strict;use warnings;
while(<>){
print "$_" for 289 .. eof();
}
__END__
Ensuite tu lances le script avec la commande
perl /chemin/vers/suppr_lignes.pl fichier1 fichier2 ....... fichierN
Pour chaque fichier une sauvegarde sera faite avec l'extension .orig
merci !! :)
oui c'est bien les 288 premieres ligne ... oublié de préciser pardon ...
par contre mon vrai soucis serait de piuvoir mettre le nom des fichiers dans le programme ...
c'est des noms fixes ... je pensais utiliser des variables, mais je ne vois pas comment faire pour faire pointer la commande de suppression sur ces fichiers dans le programme ...
Merci à toi :)
oui c'est bien les 288 premieres ligne ... oublié de préciser pardon ...
par contre mon vrai soucis serait de piuvoir mettre le nom des fichiers dans le programme ...
c'est des noms fixes ... je pensais utiliser des variables, mais je ne vois pas comment faire pour faire pointer la commande de suppression sur ces fichiers dans le programme ...
Merci à toi :)
