JAPH with AUTOLOAD
Posted by root Sun, 03 Feb 2008 14:20:00 GMT
#!/usr/bin/perl
JAPH->Just->Another->Perl->Hacker;
package JAPH;
sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } sub DESTROY {}
Just_Another_Perl_Hacker.pm
Posted by root Wed, 09 Jan 2008 05:03:00 GMT
package Just_Another_Perl_Hacker; $$perl -MJust_Another_Perl_Hacker -e 's|(?<=\w)_| |g && tr/:://d && print for keys %main::'JAPH
Posted by root Fri, 20 Jul 2007 02:54:00 GMT
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]