http://www.perlmonks.org?node_id=1226245


in reply to Re: Perl Python Partial Polyglot
in thread Perl Python Partial Polyglot

From the "explanation" you linked above I was impressed by this:

"o" from the second letter of bool: True.__class__.__name__1

I thought one can extend this to cause error messages in $! (in Perl), e.g. "No such file or directory" and use single chars from them to try and form an obfuscated string. e.g. perl -e 'open(IN, "<", "");print @{[split(//,$!)]}[8,1,1,10,9,3,6];'

Have I re-invented the wheel or is this my first obfuscated Perl signature?

bw, bliako

Replies are listed 'Best First'.
Re^3: Perl Python Partial Polyglot
by kschwab (Vicar) on Nov 24, 2018 at 00:26 UTC

    I guess ref() would be pretty similar.

    perl -e 'print @{[split //,ref(\$.)]}[-1,-2,0,1,-2,-3]'