Bonjour,
Fais voir ton code, qu'on te dise ce qui ne va pas.
A priori, en perl, ça devrait être tout bête, un truc de ce genre:
...
my $copy = 1;
while (<$fin> ) {
if (/^BEGIN$/) { $copy = 0; next; }
if (/^END$/) { $copy = 1; next; }
if ($copy) { print $fout $_;}
}
...
A+,
Message édité par gilou le 16-10-2015 à 11:34:29
---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻