http://namazu.org/~takesako/ppencode/demo.html
Hatena::Diary::naoyaより：
#!/usr/bin/perl cos xor print chr hex ord uc qq qr q xor print chr length q q truncate substr exists sleep tell exists getnetent chop select gethostent setgrent gethostent msgctl readdir do select lcfirst chdir s endprotoent msgctl endpwent q xor print chr hex ord uc qq qr q xor print chr length q q syscall flock getgrgid s exec rand oct getservbyname undef next rmdir print chmod chdir readdir index uc gmtime msgrcv lt gethostent getpwnam lstat values getpwuid q xor print chr hex ord uc qq or do xor print chr length q x connect syswrite q getprotobyname shmget quotemeta reverse pop s sethostent getpeername getprotobyname splice ref push splice getnetbyname fork getprotoent chop x xor print chr hex ord uc qq eq ge xor print chr oct ord qw q do q xor print chr hex ord uc qq qr q xor print chr oct hex length q q sprintf syscall close endpwent values untie reverse for rindex sin xor close exec abs getprotobyname warn my exec import xor alarm q xor print chr hex ord uc qq qr q xor print chr length q x sqrt le sethostent dbmopen msgget ge setgrent glob semop my stat open getnetbyname endpwent shmctl getpriority or cos return getprotobyname endgrent read eval lc x xor print chr hex ord uc qq eq le xor print chr oct ord qw q do q xor print chr hex ord uc qq or no xor print chr oct hex length q q bind and delete local localtime shmread vec chr lc getservbyname eval oct goto next map setpriority pack q xor print chr hex ord uc qq eq ge xor print chr oct hex ord uc qw q uc q
ネーミングがおもしろいですね。
Ruby版のrrencodeもあるらしいです。
