in reply to JAPH Introspection
my result is : s544!4s!4s50u!4n , work it good? [download]
#!/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]
Update: I bet you added #!/usr/bin/perl to the top of the file, didn't you.
www.com | www.net | www.org
No recent polls found