Another japh (my 1st one)

Well, while I'm here I'm posting my 1st japh too. Not that I like it too much any more...

$\=q.,.,$_=q.print'  ,\g,,( w,a'c'e'h,,map{$_-=qif/g/;chr
}107..q[..117,q)[map+hex,split//,join' ,2B,, w$ECDF078D3'
F9'5F3014$,$,];];$\.=$/,s,q,32,g,s,g,112,g,y,' , q,,eval;
[download]

Comment on Another japh (my 1st one) Download Code

Replies are listed 'Best First'.

Re: Another japh (my 1st one)
by jdalbec (Deacon) on Dec 04, 2004 at 03:56 UTC

First level:

$\=q.,.;
$_=q.print'  ,\g,,( w,a'c'e'h,,map{$_-=qif/g/;chr
}107.
.
q[..117,q)[map+hex,split//,join' ,2B,, w$ECDF078D3'
F9'5F3014$,$,];];
#{local $\=$/;print;}
$\.=$/;
s,q,32,g;
#{local $\=$/;print;}
s,g,112,g;
#{local $\=$/;print;}
y,' , q,;
#do {local $\=$/;print;} or
eval;
[download]

Second level:

$\=q.,.,
$\.=$/,
print qq,\112,
#         "J"
,(qw,a c e h,,map{$_-=32if/112/;chr}107..117,32)
# ("a","c","e","h","k","l","m","n","o","P","q","r","s","t","u"," ")
#   0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F
[map+hex,split//,join q,2B,,qw$ECDF078D3 F9 5F3014$,$,];
# ECDF078D32BF92B5F30142B
# ust another Perl hacker
[download]

I especially like the dual use of 112 (octal J and decimal p). ++

[reply]
[d/l]
[select]

Re^2: Another japh (my 1st one)

by blazar (Canon) on Dec 10, 2004 at 13:55 UTC

"I especially like the dual use of 112 (octal J and decimal p)" Indeed I like(d) it too, albeit purely coincidental. Now I'm thinkering wether something similar could be made to work on a more systematic basis... Hmmm I doubt so, but who knows?

[reply]