perl ajouter des lignes d'écriture dans un fichier

Bonjour,
Je vous savoir si il était possible d'ajouter des lignes d'écriture en tête d'un fichier sans effacer son contenu.
Merci

En principe, ce n'est pas possible. Il faut écrire ton en-tête dans un nouveau fichier, puis recopier le contenu de ton fichier en entrée, puis renommer les fichiers.

Ou éventuellement faire un script uniligne du genre:

Code:

---

$perl -ni.bak -e 'print "Ceci est une entete\n" if $. == 1; print;' nom_fichier.txt

---

Sous Windows, remplacer les apostrophe par des guillemets et réciproquement.

A tester d'abord sur une copie du fichier.

J'ai fait la 1ere solution.
Merci

Citation:

---

Envoyé par Lolo78

Ou éventuellement faire un script uniligne du genre:

Code:

---

$perl -ni.bak -e 'print "Ceci est une entete\n" if $. == 1; print;' nom_fichier.txt

---

---

Ou éventuellement comme ça :

Code:

---

$perl -pi.bak -e 'BEGIN { print "Ceci est une entete\n" }' nom_fichier.txt

---

;)

Citation:

---

Envoyé par Philou67430

Ou éventuellement comme ça :

Code:

---

$perl -pi.bak -e 'BEGIN { print "Ceci est une entete\n" }' nom_fichier.txt

---

;)

---

Ben non, c'est ce que j'allais d'abord proposer, mais je me suis rendu compte en testant que ça ne marchait pas : le print du bloc BEGIN{} se fait à l'écran, pas dans le fichier.

Ooops... Etrange... et un print STDOUT marche-t-il ?

Citation:

---

Envoyé par Philou67430

Ooops... Etrange... et un print STDOUT marche-t-il ?

---

Ce serait plutôt ARGVOUT mais ça ne marche pas non plus, peut-être pour de bonnes raisons (quel devrait être le comportement si on passe plusieurs fichiers en paramètre ?)

Ceci fonctionne avec plusieurs fichiers :

Code:

---

perl -i.bak -ne 'if ($lastARGV ne $ARGV) { print "ceci est un entête\n"; $lastARGV = $ARGV} print' test1.dat test2.dat ...

---

ceci aussi (-p au lieu de -n) :

Code:

---

perl -i.bak -pe 'if ($lastARGV ne $ARGV) { print "ceci est un entête\n"; $lastARGV = $ARGV}' test1.dat test2.dat...

---

Citation:

---

Envoyé par cmcmc

Ceci fonctionne avec plusieurs fichiers :

Code:

---

perl -i.bak -ne 'if ($lastARGV ne $ARGV) { print "ceci est un entête\n"; $lastARGV = $ARGV} print' test1.dat test2.dat ...

---

ceci aussi (-p au lieu de -n) :

Code:

---

perl -i.bak -pe 'if ($lastARGV ne $ARGV) { print "ceci est un entête\n"; $lastARGV = $ARGV}' test1.dat test2.dat...

---

---

par contre si on veut ajouter quelque chose en fin de fichier, ceci fonctionne

Code:

---

perl -i.bak -ne 'print; print "ceci est un pied\n" if eof' test1.dat test2.dat ...

---

mais je ne crois pas qu'il existe une solution avec -p ... On peut évidemment combiner les deux :

Code:

---

perl -i.bak -ne 'if ($lastARGV ne $ARGV) { print "ceci est un entête\n"; $lastARGV = $ARGV} print; print "ceci est un pied\n" if eof' test1.dat test2.dat ...

---

Citation:

---

Envoyé par cmcmc

Ce serait plutôt ARGVOUT mais ça ne marche pas non plus, peut-être pour de bonnes raisons (quel devrait être le comportement si on passe plusieurs fichiers en paramètre ?)

---

Mmm... exact... (pour STDOUT/ARGVOUT, et pour le traitement de multiples fichiers).