Vidul Nikolaev Petrov: Tag japh

JAPH with AUTOLOAD

root — Sun, 03 Feb 2008 07:20:00 -0700


#!/usr/bin/perl

JAPH->Just->Another->Perl->Hacker;

package JAPH;

sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } sub DESTROY {}

root — Tue, 08 Jan 2008 22:03:00 -0700

package Just_Another_Perl_Hacker; $$

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

root — Thu, 19 Jul 2007 20:54:00 -0600

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