JAPH 2nd try

Here is my second attempt at a JAPH. I took a different approach then my first try. Tell me what you think. Might not be the best, but Im proud!

{$_ .= <DATA>;redo if !eof(DATA); }s/#//g;eval 
__END__
########map######$a.=#######chr($##_),     qw/112 114 105 
##110 ##116## 32  34 ##   ##     ##
########   #####  74 ####### 117 ## 115 116 
##32 97 110## 111 116## 104## 101## 114 32 80 101 114 108 32 
##104 97 99###### 107## 101## 114####### 44 34 59/;eval $a
[download]

Hey look mom, I can code in perl!

zzSPECTREz

Comment on JAPH 2nd try Download Code

Replies are listed 'Best First'.
Re: JAPH 2nd try by clash (Novice) on Nov 28, 2000 at 01:17 UTC
Very nice. It seems that nowadays this is the thing for obfusated code. I don't obfuscate my code -- yet :-). If all you monks looking at this like it, then check out just another japh. Thats all bye	[reply]
Re: JAPH 2nd try by Rydor (Scribe) on Nov 28, 2000 at 21:02 UTC
Not bad, but a bit simple. All it is is a very used translation from ord to chr hidden in a bunch of '#'s. Perhaps obfuscate the code hidden in the 'PERL' to make it a bit more confusing. @:::::::((==========Rydor====>	[reply]