Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

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; } } }

Comment on perl hit by a tornado.
Download Code
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.

    #!/home/bbq/bin/perl
    # Trust no1!

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (11)
As of 2014-12-27 16:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (177 votes), past polls