Bonjour,
Je cherche a ecrire un code perl qui va regarder dans un fichier une liste de fichiers.
ex:
a.txt
b.txt
c.txt
...
Je veux ouvrir un par un a.txt, b.txt...
Puis je veux regarder si je trouve le mot "start:".
Si "start:" existe ds le fichier je veux ajouter
"jmp real_start" sur la ligne suivant "start:"
Ensuite je veux un log qui me dise quels fichiers ont ete modifies et ceux non modifies.
Pour l'instant j'en suis au stade ajouter du texte ds un fichier.
Je fais:
open(FILE_OPEN, "<a.txt");
$line = <FILE_OPEN>;
open(FILE_WRITE, ">>a.txt");
$add = "jmp real_start\n";
print FILE_WRITE $add;
Mais le texte est ajoute a la fin de a.txt et pas apres la premiere ligne. Pourquoi?
Merci pour votre aide
El Lucho
Partager