just another perlmonks’ post

Feb 06
2009
Comments Off

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

Written by Vidul in: JAPH, Perl |

JAPH with AUTOLOAD

Feb 03
2008
Comments Off 
#!/usr/bin/perl
 
JAPH->Just->Another->Perl->Hacker;
 
package JAPH;
 
sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } sub DESTROY {}
Written by Vidul in: JAPH, Perl |

Just_Another_Perl_Hacker.pm

Jan 08
2008
Comments Off 
package Just_Another_Perl_Hacker; $$
perl -MJust_Another_Perl_Hacker -e 's|(?< =\w)_| |g && tr/:://d && print for keys %main::'
Written by Vidul in: JAPH, Perl |

JAPH

Jul 19
2007
Comments Off 
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
Written by Vidul in: JAPH, Perl |

Calendar

July 2010
M T W T F S S
« Apr    
 1234
567891011
12131415161718
19202122232425
262728293031  

Tags