Sous perl en fenêtre dos:
C:\Perl> perl -nE "chop; printf qq(%-80s\n), pack(qq(A80), $_)" input.txt > output.txt |
ou la même chose avec une syntaxe alternative (pas testé cette seconde forme)
C:\Perl> perl -nE "chop; printf \"%-80s\n\", pack(\"A80\", $_)" input.txt > output.txt |
chaque ligne fera 80 caractères, plus un \n final (sinon, remplacer le 80 par 79)
A+,
Message édité par gilou le 04-09-2013 à 21:25:47
---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --