Front page | perl.fwp |
Postings from November 2011
Rate my JAPH
Thread Next
From:
Salve J Nilsen
Date:
November 10, 2011 15:16
Subject:
Rate my JAPH
Message ID:
alpine.DEB.2.00.1111101512170.7942@microbel.pvv.ntnu.no
Wow, nice to se something happening on this list. :)
Would anyone like to rate my old JAPH below? (Don't know how to rate
it, but maybe it can be fun to figure that out... ;)
- Salve (Oslo.pm)
--
#!/usr/bin/perl
sub AUTOLOAD{$AUTOLOAD=~/.*::(\d+)/;seek(DATA,$1,0);print# Salve Joshua Nilsen
getc DATA}$"="'};&{'";@_=unpack("C*",unpack("u*",':4@,$'.# <sjn@foo.no>
'2!--"5-(50P%$PL,!0X354UC-PP%/0\`'."\n"));eval "&{'@_'}"; __END__ is near! :)
Thread Next
-
Rate my JAPH
by Salve J Nilsen