Votre IP: 38.107.191.117 
  
 
Google
 
Accueil e-mail Linux
Linux
Perl
Perl
C
Langage C
Dico
Dictionnaire
Biblio liens
Bibliothèque de liens
Index articles
Index articles
 

Date création : 24-10-2007 00:00:00
Date de la dernière modification : 09-01-2008 14:57:36
Perl  Vous êtes dans : Langage Perl Astuces / Fichiers

Suppression d'une ligne dans un fichier



En ligne de commande


voici un exemple en ligne de commande

lami20j@debian:~h$ cat aaa
ligne1
ligne2
ligne3 - a supprimer
ligne4
ligne5
lami20j@debian:~$ perl -pi.orig -e 's/.*//s if 3..3' aaa
lami20j@debian:~$ cat aaa
ligne1
ligne2
ligne4
ligne5

Avec un script


lami20j@debian:~$ cat ccm.pl
#!/usr/bin/perl -i.orig
use strict;use warnings;

while(<>){
    print "$_" unless 3 .. 3;
}
__END__

lami20j@debian:~$ cat aaa
ligne1
ligne2
ligne3 - a supprimer
ligne4
ligne5
lami20j@debian:~$ perl ccm.pl aaa
lami20j@debian:~$ cat aaa
ligne1
ligne2
ligne4
ligne5
lami20j@debian:~$ cat aaa.orig
ligne1
ligne2
ligne3 - a supprimer
ligne4
ligne5
lami20j@debian:~$



l'option -i.orig sert à sauvegarder le fichier original
Création : octobre 2007  © Tous droits réservés 2007 linux-perl-c
Valid HTML 4.01 TransitionalValid CSS