Re^4: underline variable width column headings

Quester, thank you, your solution helped. I have tried everything I could think of to get a proper variable width underline with no success so I will have to settle for what I’ve got. I get 5 underlines under each heading, but at least the columns line up properly when I use:

push @line, colored(sprintf('%2d', scalar @{$trigraphs{$k}}), 'underli
+ne') . colored(sprintf('%s', $k), 'underline') . colored(sprintf('%-2
+d', scalar keys
%{$flanks{$k}}), 'underline');
[download]

What puzzles me is that It’s possible to get the variable width underline that I want when I use:

push @line, sprintf('%2s%s%-2s', colored(scalar @{$trigraphs{$k}}, 'un
+derline'), colored($k, 'underline'), colored(scalar keys %{$flanks{$k
+}}, 'underline')
);
[download]

I just don’t know how to get it with the columns lining up.

Comment on Re^4: underline variable width column headings Select or Download Code

Replies are listed 'Best First'.
Re^5: underline variable width column headings by quester (Vicar) on Dec 18, 2006 at 09:08 UTC
The columns aren't lining up because the character string returned by colored ($x, "underline") is longer than $x, typically by eight characters. That means that sprintf "%2s", colored(...) will never add an extra space. The easiest way that I can think of to handle this is to put in the extra spaces as an explicit extra step, like this: `push @line, " " x ( 2 - length scalar @{ $trigraphs{$k} } ) . colored( scalar @{ $trigraphs{$k} }, 'underline' ) . colored( $k, 'underline' ) . colored( scalar keys %{ $flanks{$k} }, 'underline' ) . " " x ( 2 - length scalar keys %{ $flanks{$k} } );` [download]	[reply] [d/l]
Re^6: underline variable width column headings by wlegrand (Initiate) on Dec 19, 2006 at 01:51 UTC
Quester, Perfect! Thank you for your code. Thank you for your explanations. Thank you for showing me an excellent way to break across lines, ... but most of all ... Thank you for going the extra mile in helping a novice.	[reply]