ratbastid

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>

ratbastid

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>

ratbastid

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???

ratbastid

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....

manalone

TMTOWTDI

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

__________________
--
Man Alone
=======
Abstainer: a weak person who yields to the temptation of denying himself a pleasure.
Ambrose Bierce, The Devil's Dictionary.

cheerios

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

Latch

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

How about perl poetry?

seretogis

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

__________________
seretogis - sieg heil
perfect little dream the kind that hurts the most, forgot how it feels well almost
no one to blame always the same, open my eyes wake up in flames

The_Dude

i dont get it at all.

wait...i barely know perl .

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

__________________
"Luck is what happens when preparation meets opportunity." - Darrel K Royal

cheerios

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

ratbastid

Yeah. That's kinda the point.

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

oberon

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

__________________
"There are finer fish in the sea than have ever been caught." -- Irish proverb

oblar

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

__________________
"All that we can do is just survive.
.All that we can do to help ourselves is stay alive." - Rush

Latch

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

ratbastid

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

oberon

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

__________________
"There are finer fish in the sea than have ever been caught." -- Irish proverb

Pragma

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.

__________________
Eat antimatter, Posleen-boy!