Discussion :

[WetzlarMan]

Bonjour,

Je voudrais ajouter une ligne de commentaire au debut de chaque fichier Perl d un repertoire donné sans en effacer le contenu.

Quelle est la commande qui permet d inserer une ligne en debut de fichier?

open(INFO, ">$file"); # Ouvre en écriture MAIS ecrase le contenu
open(INFO, ">>$file");# Ouvre en ajout a la FIN du fichier

[ma2th]

Bonjour,
Il doit exister une fonction seek qui permet de se positionner au niveau du fichier.
Ca doit être quelque chose de la forme

Code :

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

seek(FICHIER, 0, 0);

pour se positionner au debut.
le premier 0, c'est l'octet où tu veux te placer et le deuxième à partir d'où (ici le début).

enfin, si mes souvenirs sont bons...

Matthieu

[WetzlarMan]

La commande Seek est correcte mais suivie de

open(INFO, ">$file"), elle ecrase toujours le contenu du programme sans le decaler

open(INFO, ">>$file"), elle rajoute les lignes a la fin du programme.

Je voudrais que les lignes que je rajoute decalent le reste du programme sans l effacer.

[Jedai]

C'est impossible, mais ce n'est pas la faute du langage, c'est un problème des systèmes de fichier : il est possible de rajouter des données à la fin d'un fichier mais pas d'en rajouter au début. La seule solution est donc d'ouvrir un fichier temporaire en écriture, d'y écrire ce qu'on veut rajouter, puis d'y recopier le fichier d'origine et enfin de renommer le fichier temporaire pour qu'il prenne la place du fichier d'origine. C'est la procédure standard, quel que soit le langage.

(Nota : il existe des petits "trucs" pour faire ceci avec un one-line, mais je ne pense pas que telle était la question)

--
Jedaï

[WetzlarMan]

Merci pour l'info,

Je vais donc essayer de passer par un fichier temporaire comme tu le suggères.