Re: JAPH Introspection


my result is :  s544!4s!4s50u!4n , work it good?
[download]

Comment on Re: JAPH Introspection Download Code

Replies are listed 'Best First'.
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]