My latest JAPH

Hi,

I had some free time and I was bored, so I decided to hone my Perl-fu with my second ever JAPH. It's quite simple, but I think it looks neat and I had lots of fun doing it. I had the chance to test it only with Perl 5.8.8, but I ~~think~~ hope it'll work with 5.10 too.. At least I can't see why it wouldn't.

To run it, place it in any file and make sure there are no empty lines before the first actual code line.

  $"="032";($:=++$|)*=4;open+0;sub  #074117115116
   _{$_=<0>;~/.*#(.+)(?{$,.=$+.$"   #097110111116104101114
    ;$:--?_():0})/}_;$,=~s/.$//;    #080101114108
     map{print chr}$,=~/(...)/g     #104097099107101114046010
[download]

(fixed, should work with 5.10 now. Thanks wazoox!)

If anybody wants me to, I can post a de-obfuscated version or some commentary, but I hardly think it's necessary.

Please let me know what you think! :-)

Comment on My latest JAPH Download Code

Replies are listed 'Best First'.
Re: My latest JAPH by wazoox (Prior) on Jul 16, 2009 at 14:00 UTC
I hope it'll work with 5.10 too. Hope lost... `$* is no longer supported at - line 1.`	[reply] [d/l]
Re^2: My latest JAPH by jh- (Scribe) on Jul 16, 2009 at 15:02 UTC
Aww. :( Well actually it doesn't matter that much, it could be any variable in its place. The first version just had `$*=4;` which I thought looked cool, so it stayed. Here's one using `$:` instead: `$"="032";($:=++$\|)=4;open+0;sub #074117115116 _{$_=<0>;~/.*#(.+)(?{$,.=$+.$" #097110111116104101114 ;$:--?_():0})/}_;$,=~s/.$//; #080101114108 map{print chr}$,=~/(...)/g #104097099107101114046010` [download] My main source of concern with 5.10 was `(?{})` in a regular expression, since perldoc says it is experimental and may be changed without notice between releases. Thanks for the reply though! :)	[reply] [d/l] [select]