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