Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

reftype obfu -- oneliner

by Discipulus (Canon)
on Apr 22, 2021 at 20:06 UTC ( [id://11131623] : obfuscated . print w/replies, xml ) Need Help??

perl -MScalar::Util=reftype -e "$}=qr/=.=/,print+(join$\,map{chr(ord($_)-8)}((reftype$})=~/./g))=~s/$}/A/r"

or

perl  -e "$}=qr/=.=/,print+(join$\,map{chr(ord($_)-8)}((uc ref$})=~/./g))=~s/$}/A/r"

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re: reftype obfu -- oneliner
by choroba (Cardinal) on Apr 22, 2021 at 20:21 UTC
    See also Just Another Perl Hacker, where I only used parts of strings returned by ref.

    map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]