perl - 该Perl代码如何工作？

Question

我找到了这个Perl程序:

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

它打印 "Obfuscated Perl to print obfuscated Perl"
我想知道它是如何实际打印出来的。

Answer 1

它很好地利用了bitwise string XOR operator ^。

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

评估为 print，

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

计算为 Obfuscated Perl to print obfuscated Perl"，整个程序减少为

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

相关: Acme::EyeDrops