Trailing spaces to lines less than x characters

mlsmit10 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Trailing spaces to lines less than x characters by toolic (Bishop) on Jun 05, 2015 at 16:32 UTC
One way: `use warnings; use strict; while (<DATA>) { chomp; my $len = length; $_ .= ' ' x (76 - $len) if $len < 76; print "$_\n"; } __DATA__ hfgjjasdgasdhgfask jhagfghfjkhsdg fjhsdfj fsf` [download]	[reply] [d/l]
Re: Trailing spaces to lines less than x characters by Tux (Canon) on Jun 05, 2015 at 20:09 UTC
`$ perl -pe's/$/" "x(77-length)/e' file.txt` Enjoy, Have FUN! H.Merijn	[reply] [d/l]
Re: Trailing spaces to lines less than x characters by jeffa (Bishop) on Jun 05, 2015 at 16:45 UTC
How about `perl -ne'chomp; printf "%-76s\n", $_' infile > outfile` [download] Updated to correct silliness. Question: why do you need to append spaces to the end? That seems very impracticle ... spaces are usually prepended to such strings. jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]
Re^2: Trailing spaces to lines less than x characters by davido (Cardinal) on Jun 05, 2015 at 18:46 UTC
That should be... `perl -lne 'printf "%-76s", $_' infile > outfile` [download] ...otherwise the spaces will get appended after the newline on each existing line, and then another newline will be appended after that. Also in-place editing could look like this: `perl -lni.bak -e 'printf "%-76s", $_' infile` [download] Dave	[reply] [d/l] [select]
Re: Trailing spaces to lines less than x characters by AnomalousMonk (Archbishop) on Jun 05, 2015 at 17:49 UTC
If the padding is only for printing (i.e., output), one can also do: `c:\@Work\Perl\monks>perl -wMstrict -le "use constant MIN => 5; ;; my $s = ''; for my $c ('', 'a' .. 'h') { $s .= $c; printf qq{%12s -> '%-s' \n}, qq{'$s'}, MIN, $s; } " '' -> ' ' 'a' -> 'a ' 'ab' -> 'ab ' 'abc' -> 'abc ' 'abcd' -> 'abcd ' 'abcde' -> 'abcde' 'abcdef' -> 'abcdef' 'abcdefg' -> 'abcdefg' 'abcdefgh' -> 'abcdefgh'` [download] See sprintf for discussion of the `` format specifier. Give a man a fish: `<%-(-(-(-<`	[reply] [d/l] [select]
Re: Trailing spaces to lines less than x characters by aaron_baugher (Curate) on Jun 05, 2015 at 18:59 UTC
`perl -pe 's/./$&." "x(76-$+[0])/e' <infile >outfile` [download] Aaron B. Available for small or large Perl jobs and nix system administration; see my home node.	[reply] [d/l]