go ahead... be a heretic | |
PerlMonks |
Re^2: Undocumented Operator Japhby liverpole (Monsignor) |
on Nov 22, 2006 at 12:59 UTC ( [id://585500]=note: print w/replies, xml ) | Need Help?? |
Nicely done, chargrill, as always++
One of the fun parts of creating the obfuscation was writing the subroutine to "decrement" a word (eg. "Jus"-- => "Jur"). It wasn't clear initially clear how many "increments" I was going to want to make, and if it turned out to be more than a few (as it certainly did), I needed to a subroutine to do it. This was what I ended up with:
It's too bad, I think, that a word "decrement" isn't part of the Perl language, at least for the obfuscatory potential it would provide. ;-) s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
In Section
Obfuscated Code
|
|