voici un exemple en ligne de commande lami20j@debian:~/trash$ cat aaa ligne1 ligne2 ligne3 - a supprimer ligne4 ligne5 lami20j@debian:~/trash$ perl -pi.orig -e 's/.*//s if 3..3' aaa lami20j@debian:~/trash$ cat aaa ligne1 ligne2 ligne4 ligne5et avec un script
lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl -i.orig
use strict;use warnings;
while(<>){
print "$_" unless 3 .. 3;
}
__END__
lami20j@debian:~/trash$ cat aaa
ligne1
ligne2
ligne3 - a supprimer
ligne4
ligne5
lami20j@debian:~/trash$ perl ccm.pl aaa
lami20j@debian:~/trash$ cat aaa
ligne1
ligne2
ligne4
ligne5
lami20j@debian:~/trash$ cat aaa.orig
ligne1
ligne2
ligne3 - a supprimer
ligne4
ligne5
lami20j@debian:~/trash$
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.