Re^2: JAPH Introspection

[ktross]

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.

In short, This Japh should select the appropriate chaticters from it's own code to print the JAPH. Hence the title "Introspection", a deap reflection upon one's self.

# The reformatting with comments nueters the code

seek DATA,0,0; # open file containing this code
while(<DATA>){ # read in each line

#Save each character from the code into a 2-d array @JAPH
@_=split'',$_;push @JAPH,[@_]} 

# split string by ';'
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,1
+5;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 resulting strings by ',' and save points into 2-d array @n
    {@_=split /,/,$_;@_,push @n,[@_]} 

for$c(@a..@n-1){ #cycle through the array of points
    #print the character located at the point position
    print $JAPH[$n[$c][0]][$n[$c][1]] }

__END__ # Tag so the seek will read in entire file