retour chariot fin de fichier

Version imprimable

08/04/2014, 13h03
vince2005

retour chariot fin de fichier

Bonjour,

J'aimerai savoir comment rajouter un retour chariot en fin de fichier uniquement.

Merci pour votre aide.
08/04/2014, 15h47
ggnore

echo "" >> fichier

Tu tiens vraiment à le faire en perl ?
08/04/2014, 16h39
Lolo78

Citation:

Envoyé par ggnore

echo "" >> fichier

Tu tiens vraiment à le faire en perl ?

Pas sûr que ça marche sous tous les systèmes d'exploitation... ;)
10/04/2014, 23h36
disedorgue

Bonjour,
Et je ne pense pas que sa question soit si simple.
Ne faudrait-il pas se poser les questions suivantes:
-Le retour chariot concerne quel type de format de fichier (dos,mac,unix) ?
-Si ce retour chariot est déjà présent, doit on quand même le rajouter ?
14/04/2014, 13h36
vince2005

effectivement, je souhaiterai faire un retour chariot en perl si celui ci n'est pas déjà présent !!

Merci pour vos réponses.
14/04/2014, 16h01
vince2005

le retour chariot concerne aussi bien des fichiers issus de Mac, Windows ou Unix !

Merci pour votre aide.
14/04/2014, 19h01
Lolo78

Essaie ceci:

Code:

perl -pi.bak -e '$last_line = $_; END { print "\n" unless $last_line =~ /\n$/;} ' nom_fichier.txt
15/04/2014, 16h52
vince2005

et à travers un script , ça donne quoi ?
15/04/2014, 18h21
Lolo78
Tu peux essayer quelque chose comme ça:
Code:

1 2 3 4 5 6 7 8 9 use strict; use warnings; my $last_line; while (<>) { print; $last_line = $_; } print "\n" unless $last_line =~ /\n$/;
A lancer comme ceci:

Code:

perl script.pl fichier_entree > fichier_sortie

Ou, si tu préfères, tu ouvres explicitement les fichiers en entrée et en sortie avec la syntaxe que tu connais déjà, et tu lis et écris sur les filehandles respectivement obtenus.
15/04/2014, 20h00
disedorgue

Citation:

Envoyé par vince2005

le retour chariot concerne aussi bien des fichiers issus de Mac, Windows ou Unix !

Merci pour votre aide.

Le retour chariot sous unix => '\n'
Le retour chariot sous windows => '\r\n'
Le retour chariot sous mac => '\r'

Donc, la question est de savoir si tu veux le retour chariot selon le format du fichier ou un bien précit ?

Quel est l'utilité et/ou la finalité ?

Si tu es sous linux, je te conseillerais plutot une commande tel que "ex" au lieu de perl qui fera très bien le travail:

Code:

$ ex -s -c ':wq' plop

Ici, la commande rajoutera le retour chariot à la fin du fichier "plop" si celui-ci n'existe pas et en principe respectera le format du fichier (unix,windows ou mac).
15/04/2014, 23h13
Lolo78

Citation:

Envoyé par disedorgue

Le retour chariot sous unix => '\n'
Le retour chariot sous windows => '\r\n'
Le retour chariot sous mac => '\r'

Donc, la question est de savoir si tu veux le retour chariot selon le format du fichier ou un bien précit ?

Oui, mais en Perl, le retour chariot est codé "\n", quel que soit le système.

Si tu imprimes "toto\n" sous Windows, Perl, sachant qu'il tourne sous Windows, mettra lui-même le "\r" en plus. Et bien que je n'aie jamais utilisé Perl sous Mac, je suis convaincu que Perl transformera le "\n" en "\r" (encore que je me demande si ça n'a pas changé sous les versions récentes de Mac). Mais, bon, bref Perl s'adapte au système d'exploitation sur lequel il tourne. Donc, en principe pas de problème tant que Perl tourne sur la plateforme sur laquelle le fichier sera utilisé.

Là où l'on commence à avoir des problèmes, c'est quand on utilise un fichier généré (par Perl ou autre programme ou langage) sur une autre plateforme. Si le fichier est transféré par FTP en mode ASCII, FTP se charge généralement de bien faire la conversion. Mais s'il est transféré d'une autre façon (FTP en mode binaire, SFTP, transfert binaire d'un ZIP, etc.), alors il y a de fortes chances qu'il faille faire une conversion supplémentaire (avant ou après le transfert) pour ajouter ou retirer ou modifier les caractères de fin de ligne, ce qui n'est pas forcément compliqué: voici par exemple un alias dos2unix en Perl:

Code:

perl -pi.bak -e 's/\r//g;'

et un unix2dos:

Code:

perl -pi.bak -e 's/\n/\r\n;'

Ou, si je sais que mon fichier généré sous Unix ou Linux sera utilisé sous Windows et que le transfert ne fera pas la conversion, alors j'ajoute directement les "/r" nécessaires. Mais cela n'est pas toujours possible: sous Windows, il n'est pas possible à ma connaissance d'empêcher l'insertion des "\r" si le fichier doit être utilisé sous Unix. Une conversion après coup est nécessaire. Et je n'évoquerais même pas les autres systèmes d'exploitation sur lesquels je travaille aussi, comme VMS...

Rien de bien compliqué, donc, mais c'est tout de même assez rageant de constater à l'issue d'un traitement durant deux ou trois heures qu'il n'a rien fait à cause de ce genre de problème (ou, pire, qu'il a fou*u le souk dans une base de données). Je sais de quoi je parle, j'ai vécu plus d'une fois ce genre de désagrément.
16/04/2014, 01h11
disedorgue

La conversion dos2unix par exemple (ou mac2unix, ou l'inverse) ne fait pas que le traitement des retours chariot, il peut aussi faire de la conversion de locale mais bon là on sort du sujet.
Sinon, il m'arrive d'utiliser perl sous cygwin, et dans ce cas, le retour chariot reste par défaut de type unix.

Je suggérais juste que si on était sous linux, la commande 'ex' (qui n'est en fait que vim "en mode commande"), reconnait le type de fichier et donc peut rajouter le bon type de retour chariot sans changer le format de celui-ci (Bien sur, il y a aussi moyen de forcer le type et donc de changer le format).

Après, je suis d'accord, que si ses fichiers doivent être au format de l'OS cible, il faudra passer par une phase de conversion, puis rajouter ce fameux retour chariot.