Sounds like another Japh

use strict;use Text::Soundex;
my%w=map{((soundex$_),$_)}qw(

Yet another JAPH for the 
obfuscated code section for
all you Perl monks.  Just a 
simple hack (but then I'm a 
simple hacker really).

Comments welcome! 
(warnings expunged as per
Tilly's suggestion)

);print map{"$w{soundex$_} "}(qw(

jossed a-needier poorly hooker

));
[download]

UPDATE: And now without the variable %w...

use strict;use Text::Soundex;
print map{${{map{((soundex$_),$_)}qw(

Yet another JAPH for the 
obfuscated code section for
all you Perl monks.  Just a 
simple hack (but then I'm a 
simple hacker really).
Updated version without 
warnings and with anonymous
hash.

Comments welcome! 

)}}{soundex$_}." "}(qw(

jossed a-needier poorly hooker

));
[download]

Cheerio!
Osfameron

Comment on Sounds like another Japh Select or Download Code

Replies are listed 'Best First'.
RE: Sounds like another Japh by Nooks (Monk) on Sep 16, 2000 at 17:10 UTC
That's pretty cool. I do so enjoy obfuscated code that teaches me something about Perl when I understand it, as opposed to stuff that's merely hard to read, or has all the whitespace taken out, or such (not that there's a whole lot of that about, mind).	[reply]
RE (tilly) 1: Sounds like another Japh by tilly (Archbishop) on Sep 15, 2000 at 17:19 UTC
Please don't `use warnings;` in obfuscated code. People are not supposed to figure it out, and it won't run in 5.005 (widely used, and many do not consider 5.6.0 truly production quality). Thanks. Ben PS: Cute. :-)	[reply]