Jak działa ten kod Perla?

Question

znalazłem ten program Perl:

''=~('(?{'.(']])@+}'^'-/@._]').'"'.('/<[*-_<+>?}{>]@}+@}]])@+}@<[*-_<+>?}{>]@^'^'`^=_^<]_[[]+[/,]_/]-/@._]/^=_^<]_[[]+[/,|').',$/})') 

drukuje "Obfuscated Perl to print obfuscated Perl"

Chcę wiedzieć, jak to rzeczywiście drukuje to.

Answer 1

Jest to dobry użytek z bitwise string XOR operator^.

']])@+}'^'-/@._]' 

ocenia się print,

'/<[*-_<+>?}{>]@}+@}]])@+}@<[*-_<+>?}{>]@^' 
    ^'`^=_^<]_[[]+[/,]_/]-/@._]/^=_^<]_[[]+[/,|' 

ocenia się Obfuscated Perl to print obfuscated Perl" i cały program sprowadza się do

$ perl -MO=Deparse ... 
'' =~ m[(?{print "Obfuscated Perl to print obfuscated Perl",$/})]; 
... syntax OK 

Related: Acme::EyeDrops