Copier un fichier en supprimant des lignes - Perl - Programmation
Marsh Posté le 16-10-2015 à 11:34:01
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+,
Marsh Posté le 16-10-2015 à 08:25:50
Bonjour à toutes et à tous,
J'ai créée un script en perl censé pouvoir copier un fichier à une autre destination. Jusque là, rien de compliqué. Cependant, quand par la suite j'execute la commande sed dans mon script cela ne fait absolument rien (j'aimerais en fait supprimé des lignes du NOUVEAU fichier).
PS : Ces lignes sont comprises entre les mots BEGIN et END
Merci d'avance pour votre aide !