in reply to JAPH Introspection

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

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__

    Spem Successus Alit
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.