Discussion :

[El Lucho]

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

[le troll Hebus]

salut

les ajouts ne se font qu'en fin de fichier: tu es donc obligé de lire ton fichier ligne à ligne et de le réécrire au fur et à mesure pour insérer la ligne qui t'intéresse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
my $monfichier = "a.txt";
OPEN (FILE_OPEN, $monfichier); 
OPEN (MON_NOUVEAU_FICHIER, ">a_bis.txt")
...
while (<FILE_OPEN>)  {
  my $ligne = $_;
 
  if ($ligne =~ /.*start.*/)  {
     print MON_NOUVEAU_FICHIER "$ligne\njmp real_start\n"; 
  }
  else  {
     print MON_NOUVEAU_FICHIER "$ligne\n"; 
  }
}
close (MON_NOUVEAU_FICHIER);
close (FILE_OPEN);

pour savoir quels fichiers ont été modifiés ou pas, je créerais un hach en début de script:

my %fichier_modifiés = ();
et dans le if ($ligne =~ /.*start.*/) j'ajouterais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$fichier_modifiés{$monfichier} = 1;

pour savoir ensuite quels sont les fichiers modifiés, tu regardes les clés de ton hach avec keys...

[El Lucho]

Super!!
Ca marche au poil!