Undocumented Operator Japh

When writing Perl code, it's always fun to use some of the undocumented operators.

The good ol' +- operator always comes in handy. My personal favorite is the ever-reliable '= operator. And what obfuscation would be complete without a terminal /+ operator?

Can you find any other undocumented operators below?

  @ == "GqwpWrlplbnTbnpDwghav"=~  /.../g;
  @ +-  map { +map++ $_,@ =} +$ =  ... 3**7;
  @ '=  split /(?=[A-Q])/, join $* ,@ =;
 die +  qq + @'$ /+
[download]

The inspiration for the technique used came indirectly from this node by blazar.

Update: Fixed wording, as pointed out by jdporter.

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Comment on Undocumented Operator Japh Select or Download Code

Replies are listed 'Best First'.
Re: Undocumented Operator Japh by chargrill (Parson) on Nov 21, 2006 at 22:52 UTC
Clever! liverpole++ Here's a crack at deobfuscating it: <Reveal this spoiler or all in this thread> Update: Cleared up the "obfuscated deobfuscation" as noted by ysth, though the original test was written to most closely resemble (from at least my point of view) the original obfuscated code. Apologies for any confusion. Also added a little extra explanation (with reference to associated documentation). --chargrill `s*lil; $=join'',sort split q; s;.;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$,$/)` [download]	[reply] [d/l] [select]
Re^2: Undocumented Operator Japh by liverpole (Monsignor) on Nov 22, 2006 at 12:59 UTC
Nicely done, chargrill, as always++ <Reveal this spoiler or all in this thread> s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/	[reply] [d/l]
Re^2: Undocumented Operator Japh by ysth (Canon) on Nov 22, 2006 at 01:09 UTC
`for( 60 ... 2187 ){ $num = ++$num }` Please don't obfuscate your deobfuscation.	[reply] [d/l]
Re: Undocumented Operator Japh by wulvrine (Friar) on Nov 21, 2006 at 18:24 UTC
Stop breaking deparse! You are making my head hurt! <secret ++> My eyes are spinning from working this one out, even with help! Heck of a pickup on an obscure ahem feature :) GREAT JOB! s&&VALKYRIE &&& print $_^q\|!4 =+;' *\|	[reply]
Re: Undocumented Operator Japh by diotalevi (Canon) on Nov 22, 2006 at 00:29 UTC
I dub this, "most readable JAPH evar!" It's pretty though. I like it. ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply]
Re^2: Undocumented Operator Japh by Limbic~Region (Chancellor) on Nov 22, 2006 at 13:31 UTC
diotalevi, "most readable JAPH evar!" - Really? I would have thought that Things are not what they seem like. took that award. I mean what, with comments and all. Cheers - L~R	[reply]


Perl Monk, Perl Meditation
	PerlMonks