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! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --