¿Qué hace esta línea perl de un archivo "blanqueado"?

Question

Tengo algunos archivos perl que han sido "blanqueados" (no sé si fue de ACME :: Bleach, o algo similar). Al no ser muy fluido en Perl, me gustaría entender lo que el de una sola línea que se inicia el archivo hace para decodificar el espacio en blanco que sigue:

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

El resto del archivo está espacios en blanco, y el archivo se ejecutable por sí mismo (se coloca en un directorio/bin).

[Solución], gracias a @JB.

La parte pack de esto parece ser la más compleja, y me tomó un tiempo darme cuenta de lo que estaba pasando. El paquete toma el LSB solo de cada 8 caracteres y lo descomprime como un personaje big-endian en binario. Las pestañas se convierten en '0's, y los espacios se convierten en' 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

• $_ = << ''; lee el resto del archivo en el acumulador.
• y;\r\n;;d; tiras devoluciones de carro y avances de línea.
• $_ = pack 'b*', $_; convierte caracteres a bits en $_, LSB primero.
• $_ = eval; ejecuta $_ como código Perl.
• $@ && die $@; $_ maneja las excepciones y el código de retorno correctamente.

Answer 2

Puede usar unbleach.pl para eliminar el blanqueamiento, si eso es lo que realmente está tratando de hacer.