Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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?
[hippo]: That was around April 1994. Fun times.

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (9)
As of 2018-06-22 09:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (123 votes). Check out past polls.

    Notices?