Vidul Nikolaev Petrov » JAPH

just another perlmonks’ post

Vidul — Fri, 06 Feb 2009 10:16:00 +0000

perldoc perlfaq1 | perl -ne ’/((?< =”)(.+hack…(?:OR)?))/&&die$2.$/’ -

JAPH with AUTOLOAD

Vidul — Sun, 03 Feb 2008 14:20:00 +0000

#!/usr/bin/perl
 
JAPH->Just->Another->Perl->Hacker;
 
package JAPH;
 
sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } sub DESTROY {}

Just_Another_Perl_Hacker.pm

Vidul — Wed, 09 Jan 2008 05:03:00 +0000

package Just_Another_Perl_Hacker; $$

perl -MJust_Another_Perl_Hacker -e 's|(?< =\w)_| |g && tr/:://d && print for keys %main::'

JAPH

Vidul — Fri, 20 Jul 2007 03:54:00 +0000

$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]