reftype obfu -- oneliner

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

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

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.

Comment on reftype obfu -- oneliner Select or Download Code

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]`	[reply] [d/l]