My first attempt: JAPH


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
[download]

Tell me what you think,
Apterigo

Comment on My first attempt: JAPH Download Code

Replies are listed 'Best First'.

RE: My first attempt: JAPH
by cwest (Friar) on Jun 09, 2000 at 02:41 UTC

$_='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/;