Re^2: conditional string formatting

++Very nice, and very easily extended to handle a default case!

c:\@Work\Perl\monks>perl -wMstrict -le
"my %formats = ( 1 => ' %s  ',  2 => ' %s ',  3 => ' %s',  4 => '%s', 
+);
 ;;
 for my $x ('a', 'bc', 'def', 'ghij', 'klmno') {
   printf qq{'@{[ $formats{length($x)} // '%4.4s' ]}' \n}, $x;
   }
"
' a  '
' bc '
' def'
'ghij'
'klmn'
[download]

Give a man a fish: <%-(-(-(-<

Comment on Re^2: conditional string formatting Select or Download Code

Replies are listed 'Best First'.
Re^3: conditional string formatting by QM (Parson) on Jun 10, 2015 at 08:39 UTC
...easily extended to handle a default case! Yes, I forgot to handle that. The defined-or touch is nice. While the `@{[]}` wrapper does the job, is it completely necessary? (Perhaps I have missed something in my uncaffeinated state?) Other than a quick crutch for interpolating inside `qq{}` while adding single quotes and appending a newline? -QM -- Quantum Mechanics: The dreams stuff is made of	[reply] [d/l] [select]
Re^4: conditional string formatting by AnomalousMonk (Archbishop) on Jun 10, 2015 at 14:00 UTC
Not necessary, just a quick, easy path to some example code. Give a man a fish: `<%-(-(-(-<`	[reply] [d/l]