Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^2: Perl Python Partial Polyglot

by bliako (Prior)
on Nov 23, 2018 at 23:12 UTC ( #1226245=note: print w/replies, xml ) Need Help??

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]'

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1226245]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2020-08-05 11:34 GMT
Find Nodes?
    Voting Booth?
    Which rocket would you take to Mars?

    Results (35 votes). Check out past polls.