Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: JAPH Introspection

by cristian (Hermit)
on May 16, 2005 at 13:46 UTC ( #457451=note: print w/replies, xml ) Need Help??


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.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://457451]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2022-01-24 18:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (64 votes). Check out past polls.

    Notices?