Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: ASCII Rulers

by petral (Curate)
on Apr 03, 2001 at 15:47 UTC ( #69266=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub ruler {
        my $n = 9 + shift; chop $n;
        join "", " ", map(" "x(9-/../).$_, 1..$n), "\n",
        "0123456789" x $n, "0\n"
    }
    
  2. or download this
    sub ruler {
        my $n = shift;
        join"", " ", map(" "x(9-/../).$_, 1..$n/10), "\n",
        map(/.$/g, 0..$n), "\n"
    }
    
  3. or download this
    perl -lwe 'print" ",map(" "x(9-/../).$_,1..$ARGV[0]/10),"\n",map/.$/g,0..shift'

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://69266]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (13)
As of 2014-08-20 15:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (116 votes), past polls