JAJAPH

JAJAPH (Just another JAPH (Just another perl hacker)) (recursion ... you gotta love it)

open--$--$---;$$
=[$.++...$..$.];
$_=join'',map{
map{hex ord uc}
split//}<0>;$_=
(split)[@$$[$$$[
$[]...$$$[$$$[$.
]].$$$[$[]]];
$r.= chr hex for
(/../g);$_=substr
$r,98,24;s/./chr
(abs(ord($&)-
length$'))/e;$_^=
'%4Bf y_>F q# $'.
'1f9e- &}1f';
s/(?<=ot)./h/;
substr$_,4,1,$";
print ucfirst lc
,$/;
[download]

The 15 year old, freshman programmer,
Stephen Rawls

Comment on JAJAPH Download Code

Replies are listed 'Best First'.
Re: JAJAPH by damian1301 (Curate) on Jun 10, 2001 at 08:23 UTC
Not too sure about you other hackers out there but I get this on Win98, ActivePerl: `Zľ[v qv/'9a2 r)4p4lv` [download] Tiptoeing up to a Perl hacker. Dave AKA damian	[reply] [d/l]
Re: Re: JAJAPH by mpolo (Chaplain) on Jun 10, 2001 at 12:04 UTC
This is another instance of the ^M's inserted by the PerlMonks XML generator breaking the code. To run this, you need to either go in and delete the offending characters or run it through a filter, such as `perl -pi -e 'tr/\r//d'`.	[reply] [d/l]
Re: JAJAPH by Segfault (Scribe) on Jun 12, 2001 at 10:43 UTC
> JAJAPH (Just another JAPH (Just another perl hacker)) (recursion ... you gotta love it) Having "JA" twice in an acronym doesn't make it recursive. Recursion is something that refers to itself, for example, "GNU." It stands for "GNU's Not Unix" and thus it is a recursive acronym.	[reply]