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:~$ |
