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

[shmem]

join map sprintf:

use 5.10.0;
$_=join"+",map{$n=$_*10;sprintf"    %-5s",$n%100||$n}1..22;
s/ /-/g; # replace blanks with dashes
s/-/|/;  # make first dash into a pipe sign
$_.='|'; # add pipe sign to the end
say;
__END__
|---10---+----20---+----30---+----40---+----50---+----60---+----70---+
+----80---+----90---+----100--+----10---+----20---+----30---+----40---
++----50---+----60---+----70---+----80---+----90---+----200--+----10--
+-+----20---|

[roho]

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__