Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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 rifling through the Monastery: (6)
As of 2020-10-20 21:07 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (210 votes). Check out past polls.