JAPH Introspection

Here is my first attempt at a sig-line sized JAPH. (4 lines of 70 characters each)
I don't know if it's a good sig, as it has to be run from a file. Oh well...

seek DATA,0,0;while(<DATA>){@_=split'',$_;push @JAPH,[@_]}for(split/;/
,'0,48;0,43;0,44;0,35;0,4;3,20;3,24;3,14;0,35;0,45;0,1;3,15;0,4;0,50;0
,1;3,15;0,17;0,4;0,45;3,20;3,17;0,3;0,1;3,15;0,9'){@_=split /,/,$_;@_,
push @n,[@_]}for$c(@a..@n-1){print $JAPH[$n[$c][0]][$n[$c][1]]}__END__
[download]

It was painstaking to craft, and if you figure out how it works, you'll know why.

Spem Successus Alit

Comment on JAPH Introspection Download Code

Replies are listed 'Best First'.
Re: JAPH Introspection by cristian (Hermit) on May 16, 2005 at 13:46 UTC
`my result is : s544!4s!4s50u!4n , work it good?` [download]	[reply] [d/l]
Re^2: JAPH Introspection by ktross (Deacon) on May 16, 2005 at 14:53 UTC
Perhaps you'd prefer this version `#!/usr/bin/perl seek DATA,0,0;while(<DATA>){@_=split'',$_;push @JAPH,[@_]}for(split/;/ ,'1,48;1,43;1,44;1,35;1,4;4,20;4,24;4,14;1,35;1,45;1,1;4,15;1,4;1,50;1 ,1;4,15;1,17;1,4;1,45;4,20;4,17;1,3;1,1;4,15;1,9'){@_=split /,/,$_;@_, push @n,[@_]}for$c(@a..@n-1){print $JAPH[$n[$c][0]][$n[$c][1]]}__END__` [download] *Spem Successus Alit*	[reply] [d/l]
Re^2: JAPH Introspection by ktross (Deacon) on May 16, 2005 at 14:42 UTC
You don't know how much that disappoints me, mostly because I have no idea why it would output that. It should output `Just another Perl Hacker,` Update: I bet you added `#!/usr/bin/perl` to the top of the file, didn't you. Read more... (1394 Bytes)	[reply] [d/l] [select]