[TXT] Supprimer le dernier caractère

Salut,

Une commande en quel langage?

..et le...le...enfin, non parce c'est...ya...quand...bah tu sais là le...

Salut,

A ne pas oublié qu'une ligne est une chaîne avec un caractère de fin de ligne :

Linux \n
Win \r\n

Exemple :

Je crée un fichier à la volée qui contiendra la lettre 'a', 361 fois

$ perl -e 'print "a" x 361' > vider

j'affiche sa longueur

$ perl -ne 'print length,"\n"' vider
361

j'ajoute une autre chaîne (pas ligne)

$ perl -e 'print "b" x 361' >> vider

et je compte

$ perl -ne 'print length,"\n"' vider
722

Maintenant je vais créer des lignes de 361 caractères + caractère fin de ligne donc 362

$ perl -e 'print "a" x 361,"\n"' > vider
$ perl -e 'print "b" x 361,"\n"' >> vider
$ perl -ne 'print length,"\n"' vider
362
362

Le résultat 362 est normal.
Si j'ai besoin que de la chaîne il me reste à enlever le caractère nouvelle ligne

$ perl -ne 'print length(substr($_,0,length($_)-1)),"\n"' vider
361
361

Et les chaines de 361 caractères affichées (j'ai mis la longueur en 1er et j'ai ajoute dans print un \n pour affichage sinon l'affichage est un chaine de 361 * 2 caractères.

lami20j@debian:~/trash$ perl -ne 'print length($1),$1,"\n" if /(.*)\n/' vider
361aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa­aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa­aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa­aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa­aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa­aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa­aaaa
361bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb­bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb­bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb­bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb­bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb­bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb­bbbb

C'est à titre d'exemple et pas pour apprendre Perl.

lami20j