[FWP] Re: ABCs of JAPHs

[abigail@foad.org]

On Mon, Jan 22, 2001 at 04:46:43PM -0500, Jeff Pinyan wrote:
> I am not certifiably insane.  It only looks that way.
> 
> # start
> use overload;use less*b=sub{$_[0]=~y~A-Z~Just Another Perl Hacker\n~;print@_},
> overload::constant(integer=>sub{sprintf"%X",$_[0]});*a=sub{$_=2893025453;y}1C0
> 7}LUOET};$_};*{&a}=*=,*==sub{local($~)=$==~m}(.)$};"$~".&{++$~}};*Z=sub{};b&A;
> # end
> 
> That code uses AUTOLOAD in it... somewhere.


And so do these:

sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s};;; 
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};                # Perl 5.6.0 broke this...
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))


$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_=sub{print/::(.*)/};
$\=$/;q<Just another Perl Hacker>->();


$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_;
sub   _   {push         @_ => /::(.*)/s and goto &{ shift}}
sub shift {print shift; @_              and goto &{+shift}}
Hack ("Just", "Perl ", " ano", "er\n", "ther "); # 20010123



Abigail

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe