Perl stuff from Joey
I found a small trove of Joey Hess's amazing short Perl programs in my account on zork.
Here is one:
#!/usr/bin/perl -pl- ,,ep) ayf >|)nj,,
$_=reverse lc$_;s@"@''@g;y/[]{A-U}<>()a-y1-9,!.?`'/][} # Joey Hess
{><)(eq)paj6y!fk7wuodbjsfn^mxhl2Eh59L86`i'%,/;s@k@>|@g # joey@kitenet.net
(That one turns the date of this diary entry into
l002 `E jaqwafdas `hepuow
which works amazingly well.)
And another:
#!/usr/bin/perl -l
@ARGV=$0;$x=###+H}
99;while(<>)##,+Jt
{$y=0;$a[####{_n#n
$y++][$x]#=",)$i=i
=$& while#_H";(s)r
/./g;$x--#$ 8r*2p
}map{$g.=#;YS=t8,;
"\n".join#(ESxs39'
'',@$_}@a#rOE b+/
;eval $g# oJ"_u9y
######## f".$s3$'
One more -- my favorite:
#!/usr/bin/perl -li361M61AAM61AGMAM61AG261_G326G026M03_MG
@t=('_'x8,GAG,MAMAM,__);for(split$x=6,$^I){s/\d/$t[$&]/eg
;y!MAG!\\ /!;print' 'x$x--,$_}# MC Escher meets Joey Hess
Some people like this kind of humor, and others don't. As for myself, I think Joey is one of the cleverest programmers I've ever met.
