First Attempt

I hope this is original I spent a whole afternoon working on it Comments welcomed

$x='justice,tan south jer,nor the pearl,her packer';
$_='ice'; foreach $y (split ',', $x) {$i=length;
while($i) {$z=quotemeta;$y =~ s/([$z])//;$z =~ s/$1//;$_=$z; $i--;}
$_=$y;s/ //g;print&&print ' ';}
[download]

Comment on First Attempt Download Code

Replies are listed 'Best First'.
Re: First Attempt by maetrics (Sexton) on Jul 26, 2004 at 18:22 UTC
Just a slight modification using the $& variable =D `$x='justice ,tan south jer,nor the pearl,her packer'; $_='ice'; foreach $y (split ',', $x) {$i=length; while($i) {$z=quotemeta;$y =~ s/[$z]//;$z =~ s/$&//;$_=$z; $i--;} $_=$y;s/ //g;print&&print $&;}` [download] _{janitored by ybiC: Retitle from one-word "Update" to avoid hindering site search}	[reply] [d/l]
Re: First Attempt by perldeveloper (Scribe) on Jul 28, 2004 at 15:07 UTC
The flow is easy to read, the idea behind it is rather obvious (although i'm not saying it's not interesting, I think it is neat), and there are too many redundancies. I don't mean to seem like a jacka$$ or anything, but this does not seem like obfuscation -- in my honest opinion. Well, to really make my point, I've spent some time myself rewriting exactly your idea with my own concepts of obfuscation, meaning this is a bit closer to what I believe obfuscation is about: `print join ' ', ( map{$,=~s &$\&&& while s;[$,,];;;[$,=$_]->[/i/]}@{[qw] ice justice tan,south,jer, nor,the,pearl, her,packer ]]}) [1..4];` [download]	[reply] [d/l]
Re^2: First Attempt by maetrics (Sexton) on Jul 28, 2004 at 23:05 UTC
thank you, your example is great. I'll keep working on the techniques. thanks for the comment.	[reply]
Re^3: First Attempt by perldeveloper (Scribe) on Jul 29, 2004 at 08:48 UTC
Don't mention it, glad you didn't take it the wrong way.	[reply]