Perl Python Partial Polyglot

[kschwab]

Runs under perl and/or python and produces *almost* the same output...

0 and chr <<1;
'''#'
1
use strict;use warnings;
sub perl{
    map{m&${\uc(q,m,)}&&&($,.=$_,)=~s,[^A-z0-6],,xg}@_;($_=$,)
    =~tr$A-Za-z0-9+,$ -_$;for(unpack("u",join('',map(chr(32+
    length($_)*3/4).$_,m$(.{1,60})$gs)))){$.='$_'.'="';map
    {$..="\\$_"}unpack('(a3)*',$_.'012');$..='"';eval(${\$.}),
    s;\x50++\S{5}+;\u${\substr((caller(0e0))[0b11],-4)
};;print}}${{}={<<'1<<1'=>1}
#'''
l=('137137151155160157162164137137''050047142141163145066064047051',
   '161056142066064144145143157144''145050143051',
   'MTEyMTY1MTYzMTY0MDQwMTQxMTU2MTU3MTY0'
   'MTUwMTQ1MTYyMDQwMTIwMTcxMTY0MTUwMTU3'
   'MTU2MDQwMTUwMTQxMTQzMTUzMTQ1MTYyMDU0'
)
def l1(l):[(yield'\\'+l[i:i+(2|1)])for i in xrange(0,len(l),(2|1))]
i,I=lambda l:eval('"'+''.join(list(l1(l)))+'"'),lambda l:eval(i(l))
c,q=l[0o0+-0o1],I(l[0o1&0o2]);print(i(I(l[-(0o3^0o1)],)))
'''
1<<1
and 1;
perl(split/\n/,(keys(%{${{}}))[0])
#'''

Note: edited 11/23/18 to fix error about keys() on a scalar.

[eyepopslikeamosquito]

Curiously, in this Stack Exchange Obfuscated Hello World Contest, there were no Perl entries and the winning entry was written in Python -- here's an explanation. Nowadays, it's easy to find tutorials on Obfuscated Python.

Python has become more popular than Perl for golf too, as mentioned in The golf course looks great, my swing feels good, I like my chances (Part IV) in the "Which is the Most Popular Golfing Language?" section.

[bliako]

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

[kschwab]

I guess ref() would be pretty similar.

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

[kschwab]

They almost all resort to using lambda though, which I ended up doing also. Not as fun/creative as obfuscated Perl.

[eyepopslikeamosquito]

See also: List of polyglot obfus (Re: Christmas poem since 1988)

[kschwab]

$ perl t1
Experimental keys on scalar is now forbidden at t1 line 25.

Grrr, deprecation. Now I have to figure out how to fix it.

[BrowserUk]

Assuming the offending code looks something like this:

my $hashref = { .... };
my $keysCount = keys $hashref;

Then add a dereference:

my $keysCount = keys ${ $hashref };

Or just:

my $keysCount = keys $$hashref;

[kschwab]

Thanks...what ended up working was changing:

perl(split/\n/,(keys(${{}))[0])

to

perl(split/\n/,(keys(%{${{}}))[0])

[1nickt]

Ahem, both of those snippets are non-working:

$ perl -Mstrict -wE 'my $h = {foo=>"bar"}; my $c = keys ${$h};'

Experimental keys on scalar is now forbidden at -e line 1.
Type of arg 1 to keys must be hash or array (not scalar dereference) a
+t -e line 1, near "};"
Execution of -e aborted due to compilation errors.

$ perl -Mstrict -wE 'my $h = {foo=>"bar"}; my $c = keys $$h;'

Experimental keys on scalar is now forbidden at -e line 1.
Type of arg 1 to keys must be hash or array (not scalar dereference) a
+t -e line 1, near "$h;"
Execution of -e aborted due to compilation errors.

... presumably you meant:

$ perl -Mstrict -wE 'my $h = {foo=>"bar"}; my $c = keys %{$h};'

$ perl -Mstrict -wE 'my $h = {foo=>"bar"}; my $c = keys %$h;'

Aside: how odd that your post continues to garner upvotes (rep up three since I posted this); you don't suppose people vote based on the author's reputation without really reading the post, do you!?

[boftx]

Have you considered becoming a member of Opus Dei?

[kschwab]

Heh. Trying to write obfuscated Python feels a bit like a cilice I suppose.