Just convoluted

Nothing surprising. Just posting my first decent japh. Started with the dereferencing in the last line and went from there.

perl -e '@_=(shift,pop);$*={ord"<"=>[sub{printf"%s",shift;join$&,
@ARGV[$.,$|]}]};$\=(($,)=$"=~?( )?)&&qq; $_[$#_]\n;;print+chop$,,
$*->{$=}->[$[]->($_)foreach($_[$|++]);' Just another Perl hacker,
[download]

Comment on Just convoluted Download Code

Replies are listed 'Best First'.
Re: Just convoluted by deliria (Chaplain) on Aug 10, 2003 at 15:26 UTC
Excellent, ++ ~~(as soon as i get votes again)~~ I don't think i've seen a lot of scripts which abuse the perl internals this much.. Spoiler below Read more... (5 kB)	[reply] [d/l]
Re: Re: Just convoluted by b-funk (Sexton) on Aug 21, 2003 at 02:58 UTC
No internet at the new house, so I haven't had a chance to reply. Thanks for the compliments, and nice work on deciphering the code. I would say something about being a newbie, but that kind of detracts from the previous compliment ;-)	[reply]