package JAPH

{$}=(scalar(%::)=~/\/(\d+)/&&$1)}{package JAPH}
print(($_)=[%::]->[$_]=~/(\w+)/,$/)for+($}-2..$}-2)
[download]

Comment on package JAPH Download Code

Replies are listed 'Best First'.
Re: package JAPH by JavaFan (Canon) on Jan 09, 2009 at 14:53 UTC
You could 'claim' your first line has a Pascal style comment, with the name of the program in it. ;-)	[reply]
Re: package JAPH by ikegami (Patriarch) on Jan 09, 2009 at 19:02 UTC
I get no output using 5.8.8 and "0" with 5.10.0	[reply]
Re^2: package JAPH by setebos (Beadle) on Jan 09, 2009 at 23:00 UTC
Localhost: `$perl -v This is perl, v5.10.0 built for x86_64-linux-thread-multi` [download] You are using win32 interpreter?	[reply] [d/l]
Re^3: package JAPH by ikegami (Patriarch) on Jan 09, 2009 at 23:48 UTC
Yes. At a glance, I didn't see anything system specific. I forgot some keys and values in `%::` are paths. Speaking of, using `%::` instead `%main::` would result in even more obfuscated code.	[reply] [d/l] [select]
Re^4: package JAPH by setebos (Beadle) on Jan 10, 2009 at 15:08 UTC