Mã Perl này hoạt động như thế nào?

Question

tôi thấy chương trình Perl này:

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

It in "Obfuscated Perl to print obfuscated Perl"

Tôi muốn biết làm thế nào nó thực sự in này.

Answer 1

Sử dụng tốt bitwise string XOR operator^.

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

đánh giá để print,

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

đánh giá để Obfuscated Perl to print obfuscated Perl" và toàn bộ chương trình giảm đến

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

liên quan: Acme::EyeDrops