Copier un fichier en supprimant des lignes

Copier un fichier en supprimant des lignes - Perl - Programmation

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 !  :jap:  
 
 :hello:

Reply

Marsh Posté le 16-10-2015 à 08:25:50   

Reply

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+,


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 ! -- (╯°□°)╯︵ ┻━┻
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed