Co robi ta linia perl z "wybielonego" pliku?

Question

Mam niektóre pliki perla, które zostały "wybielone" (nie wiem, czy to z ACME :: Bleach, lub coś podobnego). Nie jest bardzo biegły w języku Perl, chciałbym zrozumieć, co one-liner, który uruchamia plik ma dekodować spacje, który następuje:

$_=<<'';y;\r\n;;d;$_=pack'b*',$_;$_=eval;$@&&die$@;$_ 

Reszta plik jest białe znaki, a plik jest plik wykonywalny (jest umieszczony w katalogu/bin).

[Rozwiązanie], dzięki @JB.

Część tego wydaje się najbardziej skomplikowana i zajęło mi trochę czasu, aby zauważyć, co się dzieje. Pack pobiera LSB tylko co 8 znaków i rozpakowuje je jako znak big-endian w binarnym. Tabulatory stają się więc '0, a spacje stają się' 1's.

'\t\t \t ' => '#' 
in binary: 
    00001001 00001001 00100000 00100000 00100000 00001001 00100000 0100000 
every LSB: 
    1 1 0 0 0 1 0 0 
convert from from big-endian format: 
    0b00100011 == 35 == ord('#') 

Answer 1

• $_ = << ''; czyta resztę pliku do akumulatora.
• y;\r\n;;d; paski powroty karetki i posuwy linii.
• $_ = pack 'b*', $_; konwertuje znaki na bity w $_, najpierw LSB.
• $_ = eval; wykonuje kod $_ jako kod Perla.
• $@ && die $@; $_ obsługuje wyjątki i wdzięcznie nadaje kod powrotu.

Answer 2

Możesz użyć unbleach.pl, aby usunąć blaknięcie, jeśli tak naprawdę chcesz to zrobić.