[perl] OBBBBB-fuscation!
 

Here's an easy one--a.k.a. "Fun with tr///"

<code>$s='Lvtu Copuifs Rfsm Jbdlfs';$s=~tr/[b-zB-Z]/[a-zA-Z]/;print $s;</code>

Here's the above, but kicked up a little bit. I put it on three lines for *koff* readability....

I call this one "Fun with tr/// Part II: Around your Ass to Get to your Elbow". Just LOOKIT that line noise in line #2!

<code>$s='Lvtu Copuifs Rfsm Jbdlfs';
print "${\&t($s)}\n";
sub t{$x=shift;$x=~tr/[b-zB-Z]/[a-zA-Z]/;return($x)}</code>

And here's "In Reverse Around your Ass..."

<code>sub t{$x=shift;$x=~tr/[b-zB-Z]/[a-zA-Z]/;return($x)}
sub r{$b=shift;@b=split('',$b);foreach $l(@b){unshift @o,${\t($l)}};$o=join('',@o)}
$b='sfldbJ msfR sfiupoC utvL';
print "${\r($b)}\n";</code>

Okay, now what 'choo got??? :D

Surely I'm not the only Perl geek at TFP??

Oh well. As long as you've got a camel, you're never really alone....

TMTOWTDI

I too, am a perl nerd, but I try not to show it off :)

perl, maybe, but that? not thanks, I LIKE readable code! :P

I love perl.. but that stuff is just a nightmare hehe.

How about perl poetry?

Yeah, perl is great, but it always makes me wince when I see code like that.

i dont get it at all.

wait...i barely know perl :D.

i see that you are assigning something to a string and then outputting it in the end. that's 'bout all i get :D>

@date = split ' ', `date` #lastest perl command used, to write a cgi script to draw a calendar that highlights the correct day.

Yeah. That's kinda the point.

It warms my... well, not my heart...

ratbastid, have you considered learning C and then trying your newly-obtained skills in obfuscation in the IOCCC? :D

i love that site :) I dont know enough perl to truly begin to read obfuscated code, although the perlmonks website is a great resource for obfuscated perl, but it just makes me shudder to look at it ;)

at least with obfuscated c, i can still read it :)

Here's a couple that I've done:

$line =~ s/\\/\\\\/g; # Replaces "\" with "\\"
$line =~ s/'/\\\'/g; # Replaces "'" with "\'"
$line =~ s/\//\\/g; # Replaces "/" with "\"

Now, nothing like above.. but I was still proud of my little work. I'm not a guru yet :)

A worthy effort, senor Latch! Just LOOK at all those leaning toothpicks!

What, you don't like IOCCC? Why don't you start one for perl? ;)

I thought there already was one for Perl? Such a useful language, but so easy to obfuscate. I love watching people's brain's explode when they try to read obfuscated Perl.