Re^2: How to build a better mousetrap (or a variable to hold a column-measuring scale)

in reply to Re: How to build a better mousetrap (or a variable to hold a column-measuring scale)
in thread How to build a better mousetrap (or a variable to hold a column-measuring scale)

Thank you shmem. I think this is the one I will go with. I tweaked your entry a little to get the first 5 characters right.

use 5.10.0;
$_=join"+",map{my $n=$_*10;sprintf"    %-5s",$n%100||$n}1..22;
s/ /|   + /;  # make first blank a pipe sign
s/ /-/g;      # replace blanks with dashes
$_.='|';      # add pipe sign to the end
say;
__END__
[download]

"It's not how hard you work, it's how much you get done."

Comment on Re^2: How to build a better mousetrap (or a variable to hold a column-measuring scale) Download Code

In Section Seekers of Perl Wisdom