Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

My first attempt: JAPH

by Apterigo (Scribe)
on Jun 08, 2000 at 23:42 UTC ( #17188=obfuscated: print w/replies, xml ) Need Help??

Here's my first attempt, so don't expect too much... :)
@msg=qw/106 117 115 116 32 97 110 111 116 104 101 114 32 112 101 114 108 32 104 97 99 107 101 114/; foreach $item (@msg) {print(chr($item))} # Someday

Tell me what you think,
Apterigo

Replies are listed 'Best First'.
RE: My first attempt: JAPH
by cwest (Friar) on Jun 09, 2000 at 02:41 UTC
    My first attempts was similar (but I used Uperase letters too):
    $_='074117115116032097110111116104101114032080101114'.
     '108032072097099107101114010'=>pos()=0;print map chr,
      substr $_=>pos()=>3 and pos()+=3 while pos()<length;
    
    ###
    
    print map{chr}split /\\/,q
    /074\117\115\116\032\097\110\111\116\104\101\114\032
    \080\101\114\108\032\072\097\099\107\101\114\013\010/;
    
    --
    Casey
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2022-08-18 20:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?