self-reference eval

playing with self-reference eval-ed code:

$_ = q|do{
$x=\$j unless s/(?<=[^t\w])([a-nb-vw])/$$x.=$1 or $2;/xge;
$$x=~tr/bwhvd/h /d;
!exists $r{w} && print $$x.$/;
exit && redo && last;
} while(binmode $a);
crypt(keys %every, "redo");
|; eval;
[download]

which is an evolution of

perl -we '$_=q\s/.(?{$x++%4||$x++})//g;print$x\;eval;'
[download]

i posted early on CB.

the last eval evaluate $_ code which works on $_ itself. the s/// will look for some letters preceded by non-word, and append it to a buffer. the buffer is tr-anslated and printed.

A pity the rest of the code is useless, but it works! maybe one day i will work on something which not only "grab" some chars, but transform $_ to get JAPH.

Oha

Comment on self-reference eval Select or Download Code