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. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻