ppencode
竹迫さんによる ppencode。面白すぎます。
$ perl -e 'sin xor print chr length q q truncate substr exists sleep tell exists getnetent elect gethostent setgrent gethostent msgctl readdir do select lcfirst chdir s endprotoent msgctl endpwent q xor print chr length q x endgrent chroot reverse getnetent untie getpwuid closedir fcntl accept q telldir getpwnam listen return return pack crypt cos getnetbyname eval chr getpwent getgrent syscall and srand glob while lcfirst qw x 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 oct hex length q q defined sprintf cmp rewinddir ne local while bind log exists length lc getservent elsif sprintf getppid last bless vec getsockname q xor print chr length q q pop gt link tell ioctl kill lcfirst sysread getprotobyname gethostbyname msgctl localtime gethostbyname int foreach getnetent log s chmod getservent sort die open q xor print chr oct hex length q x vec vec bind shmread endprotoent dbmclose getppid sqrt sort truncate gethostbyname chdir sqrt getpwnam endhostent endprotoent unlink oct x'
はてな
