Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

My first Obfuscated code!

by NAstyed (Chaplain)
on Feb 19, 2002 at 20:13 UTC ( #146432=obfuscated: print w/replies, xml ) Need Help??

#!perl use strict ; my$print="0";my@foreach =([4,2,4,2,3,3,1,4],[1,2,1 ,2,1,5,1,2,1,2,1,4],[4,2,4, 2,3,3,1,4],[1,5,1,5,1,1,1, 3,1,4],[1,5,4,2,1,2,1,2,4,1] );for(0..$#foreach){foreach (@{$foreach[$_]}){for(1..$_) {print $print;}if($print=~/^0$/) {$print=' '}else{$print="0";}} print"\n";}#Made in Costa Rica
Zonaunderground is my Latinamerican underground music site, check it out!

Replies are listed 'Best First'.
Re: My first Obfuscated code!
by smgfc (Monk) on Feb 20, 2002 at 03:22 UTC
    I just decided to explain your obfu, so.... here it is: here is the code in a little bit nicer format with nicer variable names:
    $character = "0"; #character to print @howmany = ( [4,2,4,2,3,3,1,4], #layout of "0" and " " [1,2,1,2,1,5,1,2,1,2,1,4], [4,2,4,2,3,3,1,4], [1,5,1,5,1,1,1,3,1,4], [1,5,4,2,1,2,1,2,4,1] ); for ( 0 .. $#howmany ) { # loop through @howmany foreach ( @{ $howmany[$_] } ) { # loop through the arrays of @how +many for ( 1 .. $_ ) { # print $character the number of times spec +ified by the item of an array of @howmany print $character; } if ($character =~ /^0$/) { #switch $character from "0" to " " $character = " "; } else { $character = "0"; } } print "\n"; }
    each array in @ howmany is the sequence of "0" and " " used to make the out put "PERL", ie. since the first line is
    0000__0000__000___0____
    note "_" eq " "
    since there are four "0", two " ", four "0", two " ", three "0", three " ", one "0", and four " ", you get the array:
     4,2,4,2,3,3,1,4 
    . Etc. etc. The loops go through each array of @howmany, printing the value of $character, which changes after every item in the array of @howmany from "0" to " " using the if statement.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (2)
As of 2022-08-14 06:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?