Peace of Code

Volviendo al formato al que nos tenía acostumbrados el amigo Víctor, les traigo un casi-acertijo y un no-acertijo-pero-cuánto-me-reí!!.

A ver quién dice qué hace esto sin ejecutarlo? 1

fortune | perl -lpe 'lc;y/aetios/43710z/;s/(\w)/((int rand 3) % 2)?uc($1):$1/eg'

Parece candidato al Obfuscated Perl contest, lástima que ya no se hace más...

Y este otro?

perl -le '$^=q,161/A@-> /;053; ?5: ?-.1> =A1 4-/1 1? <1853>;?;!,,$_=qq#$^#,y,--A,a-u,,print'

OJO, que muerde! Espero sus explicaciones, que este ya casi está para el OPC!

Y finalmente, les dejo para que se rían un buen rato, un pedazo de código, muy divertido. Les recomiendo leer el man y el código fuente, del módulo Sex, no tiene desperdicio:

package Catholicism;
use Sex qw(strict Religion);

package Mormonism;
use Sex qw(Catholicism Sex);

  1. Inspirado en: http://www.rollmop.org/oneliners/perl.html ↩