Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: asterisk pattern

by Corion (Pope)
on Oct 27, 2011 at 11:35 UTC ( #934120=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $b=this_code_is_from_perlmonks_org;
    
    ...
        print $a,sprintf '%4s','*'x(2+($a cmp $b)), qq(\n);
        $b=$a
    }
    
  2. or download this
    $level=12;
    my $i=12;
    ...
        print sprintf '%'.$i.'s', '*'x$l, qq(\n)
            unless $l<0
    }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2014-08-23 21:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (178 votes), past polls