Le jeudi 13 septembre, Frédéric BOITEUX a écrit :
> Juste un point : dans ton exemple, si je ne m'abuse, la
> préface/postface est poubellisée ? ?
Oui, c'est pas ce que tu voulais ? ;-)
Voici un exemple qui édite le fichier sur place (enfin, pas vraiment sur
place, il change d'i-node) :
#!/usr/bin/perl -i
# Delimit section of interest.
$mark_start = 'eth0';
$mark_end = '^$';
$in_preface = 1;
$in_postface = 0;
while (<>) {
# Find the right section.
if ($in_postface or $in_preface and ! /$mark_start/) { next; }
$in_preface = 0;
if (/$mark_end/) { $in_postface = 1; next; }
# Do whatever processing is needed...
s/0/(zero)/g; # dumb example
} continue { print; }
Edgar.
