Discussion :

[karaudrey88]

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

[Lolo78]

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 :

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

$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.

[karaudrey88]

J'ai fait la 1ere solution.
Merci

[Philou67430]

Ou éventuellement faire un script uniligne du genre:

Code :

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

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

Ou éventuellement comme ça :

Code :

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

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

[Lolo78]

Ou éventuellement comme ça :

Code :

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

$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.

[Philou67430]

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

[cmcmc]

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 :

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

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 :

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

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

[cmcmc]

Ceci fonctionne avec plusieurs fichiers :

Code :

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

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 :

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

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 :

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

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 :

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

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 ...

[Philou67430]

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).