Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

perl hit by a tornado.

by marko (Beadle)
on Jun 28, 2000 at 21:55 UTC ( #20219=obfuscated: print w/ replies, xml ) Need Help??

my $counter = 3; my $dec_size=""; my $nodigits=""; my $onedigits = "0"; my $twodigits = "00"; my $threedigits = "000"; my $fourdigits = "0000"; for ($i = eval($counter) ; $i>1; $i--) { if ($i > 1000) #:) {if ($i > 9999) { $dec_size = $nodigits } else {$dec_size = $onedigit;}} else # its less than 1000 { if ($i < 100) {if ($i < 10){ $dec_size = $fourdigits; } else {$dec_size = $threedigits;} ;} else { $dec_size = $twodigits; } } }

Replies are listed 'Best First'.
RE: perl hit by a tornado.
by BBQ (Deacon) on Jun 30, 2000 at 20:31 UTC
    The format looks cool! But it doesn't output and its not really obfuscated. I'd work on those two a bit more... Maybe print out "woooosh" or something of the sort, and rename the variables (maybe hash them, add regex with the x modifier) so that it isn't so readable.

    # Trust no1!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://20219]
Approved by root
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: (12)
As of 2016-07-28 17:34 GMT
Find Nodes?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?

    Results (255 votes). Check out past polls.